Shutdown vbs

[RNF0528]

I am attempting to run a script that will use the shutdown command to reboot my system once a week. I am getting an expected end of statement error...

here is the line with the error

strShutdown = "shutdown /l /r /y /t:14400 /c" "This is a test of the Shutdown system."

The test in the statement must be in qoutes and i think thats were my problem is but i cant figure out the syntax.

 

[PHV]

strShutdown = "shutdown /l /r /y /t:14400 /c ""This is a test of the Shutdown system."""

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

 

[RNF0528]

Thank you very Much!

 

[TheKidd]

This will work as well:

onst ForReading = 1
Set WshShell = CreateObject("Wscript.shell")
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\PCs.txt", ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
objDictionary.Add i, strNextLine
i = i + 1
Loop
For Each objItem in objDictionary
strComputer = objDictionary.Item(objItem)
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & strComputer).ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Reboot()
next
Next

 

[markdmac]

Correction to the above code:
onst ForReading = 1

Should be
[red]C[/red]onst ForReading = 1


I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.