strComputer = "[red]RemoteServerNameOrIPAddress[/red]"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='NetDDE'")
For Each objService in colServiceList
errReturn = objService.StopService()
Next
Wscript.Sleep 20000
For Each objService in colServiceList
errReturn = objService.StartService()
Next