Install a Windows Service

Install 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 install a Windows service, three bits of information
'  are needed:
'  1) The EXE filepath of the service executable.
'  2) The Service name.
'  3) The Service display name.

service.ExeFilePath = "c:\MyService\MyService.exe"
service.ServiceName = "MyService"
service.DisplayName = "My Cool Service"

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

MsgBox "Windows Service Installed!"
outFile.Close