Stop a Windows Service

Stop a Windows service.

Note:This software is available as a pre-release.

Download the Chilkat Service ActiveX here: ChilkatService.zip
Unzip and register with regsvr32.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set service = CreateObject("Chilkat.Service")

service.ServiceName = "MyService"

success = service.Stop()
If (success <> 1) Then
    MsgBox "Failed to stop service."
    outFile.WriteLine(service.LastErrorText)
    WScript.Quit
End If

MsgBox "Windows Service Stopped!"
outFile.Close