jaml311 Posted May 31, 2009 CID Share Posted May 31, 2009 Looking for a quick way to shut down a large number of computers on a network. Where i work i shut down a lot of computers before i leave at night and was wondering if this would be able to do this. Was also wondering if this would bypass any stoppages asking to save a document or if a program will not end while its shutting down Quote Link to comment Share on other sites More sharing options...
mudmanc4 Posted May 31, 2009 CID Share Posted May 31, 2009 '/'|| RemoteShutdown.vbs '|| '|| Created by Harvey Hendricks, MCP, MCSE, A+ '|| March 2001 '|| '|| '|| Based on techniques and ideas from: '|| SMS admin, SMS Installer, & WMI forums -> '|| Win32 Scripting -> http://cwashington.netreach.net/ '|| Microsoft Windows Script Technologies -> '|| http://msdn.microsoft.com/scripting '|| Microsoft Online Library -> '|| http://msdn.microsoft.com/library/default.asp '|| Microsoft VBScript 5.5 documentation and Microsoft WMI SDK '|| '||~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '|| SCRIPT LOGIC FLOW: '|| Collects computername from user, calls function to ping the computername '|| to determine if it is accessible, if not then display message and exit '|| otherwise continue. '|| Collects desired action to perform from the user, does error checking on '|| the input to determine if it is acceptable, if not then display message '|| and exit otherwise continue. '|| Set variables and output messages based on the action chosen. Calls '|| Win32Shutdown with the appropriate variable. Displays success message '|| and exits '|| '|| Uses WMI Win32Shutdown method from the Win32_OperatingSystem class '|| to perform different logoff / powerdown / reboot functions '|| '|| Testing found the following values to be effective on Win32Shutdown: '|| Action decimal binary '|| Logoff 0 0000 '|| Force Logoff 4 0100 '|| Reboot 2 0010 '|| Force Reboot 6 0110 '|| Powerdown 8 1000 '|| Force Powerdown 12 1100 '|| '|| Notice that the third bit from the right appears to be the "FORCE" bit. '|| '|| A value of 1 will do a shutdown, ending at the "It is safe to turn '|| off your computer" screen. I have no use for this and did not test it. '|| '|| '||NOTES: - tested under Windows 2000 Pro. with ACPI compliant systems - '|| SHOULD work under Windows NT4 without modification IF the '|| system has compatible versions of WSH / WMI / VBscripting '|| '||Logoff / Powerdown / Reboot: '|| Does not work if a password protected screen saver is active or '|| there is data to save. Either way the system waits for user input. '|| '||Force Logoff / Force Powerdown / Force Reboot: '|| Does not work if a password protected screen saver is active, will wait '|| for user input. Otherwise will close open applications without saving '|| data. '|| '/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '////////////// start function function Ping(byval strName) dim objFSO, objShell, objTempFile, objTS dim sCommand, sReadLine dim bReturn set objShell = WScript.CreateObject("Wscript.Shell") set objFSO = CreateObject("Scripting.FileSystemObject") 'Set default return value bReturn = false 'Create command line to ping and save results to a temp file sCommand = "cmd /c ping.exe -n 3 -w 1000 " & strName & " > C:temp.txt" 'Execute the command objShell.run sCommand, 0, true 'Get the temp file set objTempFile = objFSO.GetFile("C:temp.txt") set objTS = objTempFile.OpenAsTextStream(1) 'Loop through the temp file to see if "reply from" is found, 'if it is then the ping was successful do while objTs.AtEndOfStream <> true sReadLine = objTs.ReadLine if instr(lcase(sReadLine), "reply from") > 0 then bReturn = true exit do end if loop 'Close temp file and release objects objTS.close objTempFile.delete set objTS = nothing set objTempFile = nothing set objShell = nothing set objFSO = nothing 'Return value Ping = bReturn end function '////////////// end function '/////////// Start Main body of script 'Get computer name to operate on ComputerName=InputBox("Enter the Machine name of the computer" & vbCRLF _ & "you wish to Shutdown / Reboot / Logoff", _ "Remote Shutdown / Reboot / Logoff", _ "ComputerName") 'if Cancel selected - exit If (ComputerName = "") Then Wscript.Quit 'change the name to uppercase ComputerName=UCase(ComputerName) 'ping the computername to see if it is accessible bPingtest = ping(Computername) If bPingtest = FALSE Then y = msgbox ("'" & ComputerName & "' is not accessible!" & vbCRLF _ & "It may be offline or turned off." & vbCRLF _ & "Check the name for a typo." & vbCRLF, _ vbCritical, ComputerName & " NOT RESPONDING") Wscript.Quit end IF 'Get the action desired Action=InputBox( _ "Select Action to perform on " & ComputerName & vbCRLF & vbCRLF _ & " 1 - Logoff" & vbCRLF _ & " 2 - Force Logoff ( NO SAVE )" & vbCRLF _ & " 3 - Powerdown" & vbCRLF _ & " 4 - Force Powerdown ( NO SAVE )" & vbCRLF _ & " 5 - Reboot" & vbCRLF _ & " 6 - Force Reboot ( NO SAVE )" & vbCRLF & vbCRLF _ & "NOTE:" & vbCRLF _ & " Using Force will close windows" & vbCRLF _ & " without saving changes!", _ "Select action to perform on " & ComputerName, "") 'if Cancel selected - exit If (Action = "") Then Wscript.Quit 'error check input If (INSTR("1234567",Action)=0) OR (Len(Action)>1) then y = msgbox("Unacceptable input passed -- '" & Action & "'", _ vbOKOnly + vbCritical, "That was SOME bad input!") Wscript.Quit end if 'set flag to disallow action unless proper input achieved, 1 => go 0 => nogo flag = 0 'set variables according to computername and action Select Case Action Case 1 'Logoff x = 0 strAction = "Logoff sent to " & ComputerName flag = 1 Case 2 'Force Logoff x = 4 strAction = "Force Logoff sent to " & ComputerName flag = 1 Case 3 'Powerdown x = 8 strAction = "Powerdown sent to " & ComputerName flag = 1 Case 4 'Force Powerdown x = 12 strAction = "Force Powerdown sent to " & ComputerName flag = 1 Case 5 'Reboot x = 2 strAction = "Reboot sent to " & ComputerName flag = 1 Case 6 'Force Reboot x = 6 strAction = "Force Reboot sent to " & ComputerName flag = 1 Case 7 'Test dialog boxes y = msgbox("Test complete", vbOKOnly + vbInformation, "Dialog Box Test Complete") flag = 0 Case Else 'Default -- should never happen y = msgbox("Error occurred in passing parameters." _ & vbCRLF & " Passed '" & Action & "'", _ vbOKOnly + vbCritical, "PARAMETER ERROR") flag = 0 End Select 'check flag ' if equal 1 (TRUE) then perform Win32Shutdown action on remote PC ' and display a confirmation message ' if not equal 1 (FALSE) then skip the action and script ends if flag then Set OpSysSet=GetObject("winmgmts:{(Debug,RemoteShutdown)}//" _ & ComputerName & "/root/cimv2").ExecQuery( _ "Select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.Win32Shutdown(x) y = msgbox(strAction,vbOKOnly + vbInformation,"Mission Accomplished") next end If 'Release objects set OpSys = nothing set OpSysSet = nothing [/code] Here's a neet one i found layin around Quote Link to comment Share on other sites More sharing options...
jaml311 Posted May 31, 2009 Author CID Share Posted May 31, 2009 im trying to shut down a computer not fly a space shuttle lol Quote Link to comment Share on other sites More sharing options...
mudmanc4 Posted May 31, 2009 CID Share Posted May 31, 2009 im trying to shut down a computer not fly a space shuttle lol Well there's more to it then just a switch and a comment , You mad made remark that if there were any programs running, you would want them to shut down, the machine will ask that, as well as to save any open documents. This wont work if the user has password protection / screen saver set , but it should work on XP if it is formatted ntfs, just save it in a text editor, as .vbs. You might not make it too the moon though Quote Link to comment Share on other sites More sharing options...
jaml311 Posted May 31, 2009 Author CID Share Posted May 31, 2009 we do have the password protect screen savers. is there any way to enter the passwords in the program so they would be inserted in to get rid of the screen saver? Quote Link to comment Share on other sites More sharing options...
wknight40 Posted May 31, 2009 CID Share Posted May 31, 2009 I do not currently have a link or the name of software, but isn't there count down timers that can be installed that will shut the PC down at a certian time? Granted this would need to be installed on each PC. Also it might shutdown in the middle of updating or something like that. How about a remote access software with admin rights to log them off from one PC individually? Quote Link to comment Share on other sites More sharing options...
ninjageek Posted May 31, 2009 CID Share Posted May 31, 2009 While I did not come up with this found it long ago I thought I may post it if someone else wanted to use it for there own computer.http://www.tutorial5.com/content/view/99/47/. I put both shutdown and reboot in my quick launch bar. Also if you use peerguardian and utorrent. Make a new text document on your desktop Copy and paste @echo off start "" "C:Program FilesuTorrentuTorrent.exe" start "" "C:Program FilesPeerGuardian2pg2.exe" Now rename the text document utorrentplus.bat. Now open your program files. Create a new folder. Call it Utorrent Plus. Copy and paste the bat file into the folder. Now right click on it and put a shortcut on your desktop. Now when you click on it utorrent and peerguardian will both open at the same time. Both these little tricks work on windows 7. Quote Link to comment Share on other sites More sharing options...
jaml311 Posted May 31, 2009 Author CID Share Posted May 31, 2009 I do not currently have a link or the name of software, but isn't there count down timers that can be installed that will shut the PC down at a certian time? Granted this would need to be installed on each PC. Also it might shutdown in the middle of updating or something like that. How about a remote access software with admin rights to log them off from one PC individually? i already do have remote access but that is to time consuming, there are certain groups of computers at stations that im gonna shutdown at a time and just save the names and put them in the field of computers to shutdown with shutdown -i Quote Link to comment Share on other sites More sharing options...
mudmanc4 Posted May 31, 2009 CID Share Posted May 31, 2009 I jeep finding this , though it isn't free, there is a trial period in which you could find the funds while evaluating it. Or I found this on MS website. ~ Click Start, click All Programs, click Accessories, and click Command Prompt. Type shutdown /i to display the Remote Shutdown dialog box (Shutdown.exe). Under Computers, click Add to enter computer names, or click Browse to open the Find Computers dialog box. Under What do you want these computers to do, click Restart or Shut down. Select the appropriate reason for the restart or shutdown from the list. Source Might want to check this out as well. Whatever you decide toy use, please post it for the rest of us to gain from Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.