复制代码 代码如下:

Const OWN_PROCESS = &H10

Const ERR_CONTROL = &H2

Const INTERACTIVE = False

ServiceName = "TestService"

DisplayName = "This is a test service."

InstallPath = "c:windowssystem32Test.exe"

Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!.rootcimv2")

Set ObjSvr = ObjWMI.Get("Win32_Service")

Return = ObjSvr.Create(ServiceName, DisplayName, InstallPath, OWN_PROCESS, ERR_CONTROL, "Automatic", INTERACTIVE, "LocalSystem", "")

If (Return = 0) Then

Wscript.Echo "Service create success."

Wscript.Echo "ServiceName: " & ServiceName

Wscript.Echo "DisplayName: " & DisplayName

Wscript.Echo "InstallPath: " & InstallPath

Wscript.Echo ""

Else

Wscript.Echo "Service create failure(" & Return & ")."

Wscript.Quit(Return)

End If

Wscript.Quit