Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//192.168.15.242").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
   OpSys.Reboot()
Next