Start and Stop Windows Services

Try This, just change all the NetDDE items to your service. In this example: When NetDDE is stopped it will start NetDDE and then start all services that depend on NetDDE. When NetDDE is running it will stop all services that depend on NetDDE and then will stop NetDDE.

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colService = objWMIService.ExecQuery("Select * from Win32_Service where Name='NetDDE'") For Each objService in colService if objService.State = "Stopped" Then errReturn = objService.StartService() Set colService2 = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='NetDDE'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For each objService2 in colService2 errReturn = objService2.StartService() Next Elseif objService.State = "Running" Then Set colService3 = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='NetDDE'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For each objService3 in colService3 errReturn=objService3.StopService() Next errReturn = objService.StopService() End If Next