I am using the following code to stop Exchange services. What I would like to do is have the script stop the service, wait until it's completely stopped, then go to the next service and so forth. Can someone help?
Thanks!
sComputer = "."
serviceName = "Microsoft Exchange Management"
Set oWMI = GetObject("WinMgmts:{impersonationLevel=Impersonate}!//" & sComputer & "/root/cimv2")
Set colServices = oWMI.execQuery("SELECT * FROM Win32_Service Where displayname = '" & serviceName & "'")
For Each oService In colServices
errReturn = oService.StopService()
WScript.Echo "Stopping " & serviceName & " service.."
Next
sComputer = "."
serviceName = "Microsoft Exchange Routing Engine"
Set oWMI = GetObject("WinMgmts:{impersonationLevel=Impersonate}!//" & sComputer & "/root/cimv2")
Set colServices = oWMI.execQuery("SELECT * FROM Win32_Service Where displayname = '" & serviceName & "'")
For Each oService In colServices
errReturn = oService.StopService()
WScript.Echo "Stopping " & serviceName & " service.."
Next
Thanks!
sComputer = "."
serviceName = "Microsoft Exchange Management"
Set oWMI = GetObject("WinMgmts:{impersonationLevel=Impersonate}!//" & sComputer & "/root/cimv2")
Set colServices = oWMI.execQuery("SELECT * FROM Win32_Service Where displayname = '" & serviceName & "'")
For Each oService In colServices
errReturn = oService.StopService()
WScript.Echo "Stopping " & serviceName & " service.."
Next
sComputer = "."
serviceName = "Microsoft Exchange Routing Engine"
Set oWMI = GetObject("WinMgmts:{impersonationLevel=Impersonate}!//" & sComputer & "/root/cimv2")
Set colServices = oWMI.execQuery("SELECT * FROM Win32_Service Where displayname = '" & serviceName & "'")
For Each oService In colServices
errReturn = oService.StopService()
WScript.Echo "Stopping " & serviceName & " service.."
Next