VBS: Can it shut down a PC?

[kpac]

Can VBScript shut down a PC?
Can it shut down all PCs on a LAN?

[Sidewinder]

Can VBScript shut down a PC?

Yes. This little snippet will shutdown the local computer.

Code: [Select]

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(1)
Next


Can it shut down all PCs on a LAN?

Only if the PC's are part of a domain. This little snippet will shutdown 3 computers on the network.

Code: [Select]

arrComputer = Array("Computer1", "Computer2", "Computer3")

For Each strComputer In arrComputer
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(1)
Next
Next

If none of these are helpful, check out PsTools, specifically PsExec. VBScript can launch a new process with the Run method.

Good luck. 
   
   

[kpac]

Woah, thanks.

[DFND-jimjim1]

The only VBS I ever heard of it .vbs or VBScript

[kpac]

What?

[BC_Programmer]

The only VBS I ever heard of it .vbs or VBScript

[kpac]

Can the second script above be used to restart the PC instead of shutdown...?

[BC_Programmer]

I've never used WMI myself, but you might be able to change:

Code: [Select]

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Shutdown(1)
Next

into:

Code: [Select]

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Restart(1)
Next

Or, it could require simply changing the parameter to Win32Shutdown from 1 to something else...

[kpac]

Yup, I'd imagine it's something like that.

I'm just starting with VBS...

[Sidewinder]

I don't think there is a restart method to the Win32_OperatingSystem class. Try using the reboot method.

Code: [Select]

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot(2)
Next

Good luck. 

[kpac]

Thanks again, I'll test it tomorrow...

[BC_Programmer]

I don't think there is a restart method to the Win32_OperatingSystem class. Try using the reboot method.

Code: [Select]

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot(2)
Next

Good luck. 

well, if this darn notepad had intellisense like the vb6 IDE...

[kpac]

well, if this darn notepad had intellisense like the vb6 IDE...

Excuses, excuses....

[Sidewinder]

well, if this darn notepad had intellisense like the vb6 IDE...

Excuses, excuses....

I'm not sure the VB6 IDE would be helpful here. For the WMI classes I've always used WbemTest which gets installed on systems with WMI.

The program itself is a quagmire, but if you're looking for classes with their methods and properties, this is the place to go.

Before getting involved with this utility, a stop at Don's is suggested.

[BC_Programmer]

actually, I  shouldn't of said Intellisense, but rather the Built in object browser. Besides, using WMI to shutdown windows via VB6 would be silly, since it would be far easier to make a simple API call to ShutdownWindowsEx().