Dim oShutdown, oOPSysSet oShutdown = GetObject("winmgmts:{impersonationlevel=impersonate,(shutdown)}").Execquery("Select * From win32_operatingsystem")For Each oOPSys In oShutdown
     oOPSys.win32shudown (12)
Next