- strComputer = "."
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colListOfServices = objWMIService.ExecQuery _
- ("Select * from Win32_Service Where State = 'Paused' and StartMode = 'Auto'")
- For Each objService in colListOfServices
- objService.ResumeService()
- Next