ايران ويج

set wshell = Createobject ("wscript.shell")

regkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows Media\WMSDK\General\"
A = wshell.RegRead (regkey & "ComputerName")


strComputer = A

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