[VBS] Shutdown PC Dengan WMI Class

' ShutDown PC with WMI Class
Dim WMIServices, OSes, objOS
Set WMIServices = GetObject_
    ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\.\root\cimv2")
Set OSes = WMIServices.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOS in OSes
    objOS.Win32Shutdown(1)
Next

Jangan Lupa Komentar Yaa..