Help with WshShell.Run, WaitOnReturn

[bmquiroz]

Hello all,

Need help with the below code. I want to run defrag.exe from within a script then have the script pause until defrag.exe finishes, it should then resume execution. Problem is that defrag.exe spawns dfrgntfs.exe, how do I pass this to the script? It's not pausing!

Thanks for the help!

Sip

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "defrag.exe c: -a",True

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.Reboot()

 

[PHV]

Have you tried this ?
WshShell.run "defrag.exe c: -a",[highlight],[/highlight]True

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[bmquiroz]

Thanks for the quick reply! I added the extra comma and it worked! Also made the reboot process into a function.

Sip

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "defrag.exe c: ",,True

Reboot

Function Reboot
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.Reboot()
Next
End Function