svcName = InputBox("Service name", "Service Install", "CameraHost")
svcDesc = InputBox("Description", "Service Install", "Camera capture service based on WCS")
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
svcPath = InputBox("Service full path", "Service Install", WshShell.CurrentDirectory + "\ServiceHost.exe")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")
errReturn = objService.Create(svcName, svcName, svcPath, 16, 1, "Manual", True)
If errReturn=0 then
  Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  objRegistry.SetStringValue &H80000002,"System\CurrentControlSet\Services\" + svcName, "Description", svcDesc
  MsgBox "Service installed"
Else
  MsgBox "Service install failed"
End If