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