VBS script that shutdown other pc in network.

[timvdhoorn]

Hi,

I got an VBS script to shutdown pc in network remote..

Option Explicit 
Dim objShell, strComputer, strInput 
Dim strShutdown

Do 
strComputer = (InputBox("Computer name", "Computer Name")) 
If strComputer <> "" Then 
  strInput = True 
End if 
Loop until strInput = True

strShutdown = "shutdown -s -t 120 -f -m \\" & strComputer

set objShell = CreateObject("WScript.Shell")

objShell.run strShutdown

Wscript.Quit

And i want that the script asks how long to wait untill the pc shutsdown..(120 in the script)
PLEASE HELP!
[sorry if its in the wrong section..and sorry for bad english]

 

[KremmenUK]

Replace the 120 with another variable and ask for this during the InputBox display:

strShutdown = "shutdown -s -t" & ShutDownTime & " -f -m \\" & strComputer

 

[timvdhoorn]

Replace the 120 with another variable and ask for this during the InputBox display:

strShutdown = "shutdown -s -t" & ShutDownTime & " -f -m \\" & strComputer

I get an error

 

[timvdhoorn]

Replace the 120 with another variable and ask for this during the InputBox display:

strShutdown = "shutdown -s -t" & ShutDownTime & " -f -m \\" & strComputer

I get an error

The whole script doesn't work........ Pls can you make an other one for me>?

 

[KremmenUK]

Option Explicit

Dim objShell, strComputer, strInput
Dim strShutdown
Dim ShutDownTime

strComputer = (InputBox("Computer name", "Computer Name"))
ShutDownTime = (InputBox("ShutDown In... seconds", "Shutdown"))

If trim(strComputer) <> "" and trim(ShutDownTime) <> "" Then

strShutdown = "shutdown -s -t" & ShutDownTime & " -f -m \\" & strComputer

Set objShell = CreateObject("WScript.Shell")

objShell.run strShutdown

Wscript.Quit



I haven't tested it but it should get you closer.............

 

[timvdhoorn]

Option Explicit

Dim objShell, strComputer, strInput
Dim strShutdown
Dim ShutDownTime

strComputer = (InputBox("Computer name", "Computer Name"))
ShutDownTime = (InputBox("ShutDown In... seconds", "Shutdown"))

If trim(strComputer) <> "" and trim(ShutDownTime) <> "" Then

strShutdown = "shutdown -s -t" & ShutDownTime & " -f -m \\" & strComputer

Set objShell = CreateObject("WScript.Shell")

objShell.run strShutdown

Wscript.Quit



I haven't tested it but it should get you closer.............

Now i get an error Expectect "End"
thanks anyway

 

[timvdhoorn]

Someone Got an sugestion?

 

[azza1993]

Fix

Option Explicit

Dim objShell, strComputer, strInput
Dim strShutdown
Dim ShutDownTime

strComputer = (InputBox("Computer name", "Computer Name"))
ShutDownTime = (InputBox("ShutDown In... seconds", "Shutdown"))

If trim(strComputer) <> "" and trim(ShutDownTime) <> "" Then

strShutdown = "shutdown -s -t " & ShutDownTime & " -f -m \\" & strComputer

Set objShell = CreateObject("WScript.Shell")

objShell.run strShutdown

Wscript.Quit
End If

Notice you didn't finish the If statement. If Then End If is what it should have been.
also there needed to be a space betweem -t and " otherwise it would look like
-t120 instead of -t 120.
Hope this helped
Aaron