matjaz ladava [mvp]

This code should do the trick. Change "." in computer name to a remote computer name ("." is local computer)


strComputer= "."
Set objWMI = GetObject("winmgmts:{(Shutdown)}\\" + strComputer + "\root\cimv2")
Set colOperatingSystems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(0)
Next

--
Regards

Matjaz Ladava, MCSE (NT4 & 2000), MVP
matjaz@ladava.com
http://ladava.com