remote logoff/reboot VBS Script

' ****************** Remote Reboot Shutdown Script *******************************
' Note: You may substitute the line that reads objOperatingSystem.Win32Shutdown(0)
' with any of the Win32Shutdown paramaters isted below:
' Log Off         objOperatingSystem.Win32Shutdown(0)
' Forced Log Off  objOperatingSystem.Win32Shutdown(0+4) -- (Currently Choice 1)
' Shutdown        objOperatingSystem.Win32Shutdown(1)
' Forced Shutdown objOperatingSystem.Win32Shutdown(1+4) -- (Currently Choice 2)
' Reboot          objOperatingSystem.Win32Shutdown(2)
' Forced Reboot   objOperatingSystem.Win32Shutdown(2+4) -- (Currently Choice 3)
' Power Off       objOperatingSystem.Win32Shutdown(8)
' Forced Power OffobjOperatingSystem.Win32Shutdown(8+4) -- (Currently Choice 4)
' ********************************************************************************
'
' Take rem out of the line below once testing is complete to turn off error messaging.
' On Error Resume Next
Dim Lock
 
strComputer = InputBox("Please Enter Machine Name","Remote Shutdown / Reboot")
 
If strComputer="" Then
   Wscript.Echo "Script cancelled."
   wscript.quit
end if
 
Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}")_
    .ExecQuery("SELECT * FROM Win32_PingStatus where address = '" & strComputer & "'")
 
For Each objItem in colItems
If objItem.StatusCode = 0 Then
    Wscript.Echo "The machine " & UCase(strComputer) & " is online and is ready for instructions."
Else
    Wscript.Echo "The machine " & UCase(strComputer) & " is offline or was not reachable."
    Wscript.quit
End if
Next
 
Lock = 0
 
Do
strShutdown = InputBox("What do you wish to do?"& vbcr &"1 - Force User Log Off"& vbcr &"2 - Shutdown the machine"& vbcr &"3 - Reboot the machine"& vbcr &"4 - Power down the machine")
if strShutdown = "" then
    Wscript.Echo "The machine request for" & UCase(strComputer) & " has been cancelled due to no selection."
    Wscript.quit
    Lock = 1
End if
Select Case strShutdown
Case "1"
   Set objWMI = GetObject("winmgmts:{(Shutdown)}\\" + strComputer + "\root\cimv2")
   Set colOperatingSystems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
   For Each objOperatingSystem in colOperatingSystems
       ObjOperatingSystem.Win32Shutdown(0+4)
   Next
   Wscript.Echo "The machine " & UCase(strComputer) & " is forcing the user to log off."
   Lock = 1
Case "2"
   Set objWMI = GetObject("winmgmts:{(Shutdown)}\\" + strComputer + "\root\cimv2")
   Set colOperatingSystems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
   For Each objOperatingSystem in colOperatingSystems
       ObjOperatingSystem.Win32Shutdown(1+4)
   Next
   Wscript.Echo "The machine " & UCase(strComputer) & " is shutting down."
   Lock = 1
Case "3"
   Set objWMI = GetObject("winmgmts:{(Shutdown)}\\" + strComputer + "\root\cimv2")
   Set colOperatingSystems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
   For Each objOperatingSystem in colOperatingSystems
       ObjOperatingSystem.Win32Shutdown(2+4)
   Next
   Wscript.Echo "The machine " & UCase(strComputer) & " is rebooting."
   Lock = 1
Case "4"
   Set objWMI = GetObject("winmgmts:{(Shutdown)}\\" + strComputer + "\root\cimv2")
   Set colOperatingSystems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
   For Each objOperatingSystem in colOperatingSystems
       ObjOperatingSystem.Win32Shutdown(8+4)
   Next
   Wscript.Echo "The machine " & UCase(strComputer) & " is forcing a power down."
   Lock = 1
Case Else
   Wscript.Echo "You have made an incorrect selection."
   Lock = 0
end Select
Loop Until Lock=1

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83: