Uninstall a Windows Service

Uninstall 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")

'  To uninstall a Windows service, only the service name is
'  required:
service.ServiceName = "MyService"

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

MsgBox "Windows Service Uninstalled!"
outFile.Close