pc shudown script

[n3tw0rkadm1n1strat0r]

I can't figure out why this isn't working...I'm bad with the quotes...It gives me an error saying that the system cannot find the specified file, but I know that it is there.

Set objShell = CreateObject("Wscript.Shell")

strComputer = InputBox("Enter the PC name to shutdown:")
strMessage = InputBox("Enter the message to display:")
strTime = InputBox("Enter the time in seconds to shutdown:")

objShell.Run("""%comspec% /K C: | cd WINDOWS\system32 | shutdown.exe -r -m \\""strComputer"" -t ""strTime"" -c ""strMessage"" """), 0, True

Set objShell = Nothing

 

[PHV]

Is by chance your script named shutdown.vbs ?
Try this:
objShell.Run "%comspec% /K shutdown[!].exe[/!] -r -f -t " & strTime & " -c " & Chr(34) & strMessage & Chr(34) & " -m \\" & strComputer, 0, True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[n3tw0rkadm1n1strat0r]

That worked! Ok thanks PHV.

 

[BillDoor]

You can shutdown a PC without using the Shutdown.exe command:

Const SHUTDOWN = 1

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
	objOperatingSystem.Win32Shutdown(SHUTDOWN)
Next