Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Start Service
- strServiceName = "Alerter"
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
- Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name ='" & strServiceName & "'")
- For Each objService in colListOfServices
- objService.StartService()
- Next
- 'Stop Service
- strServiceName = "Alerter"
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
- Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='" & strServiceName & "'")
- For Each objService in colListOfServices
- objService.StopService()
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement