WMI 创建系统服务的实现代码(Automatic)

复制代码 代码如下:
Const OWN_PROCESS = & h10
Const ERR_CONTROL = & H2
Const INTERACTIVE = False

ServiceName = "testService"
DisplayName = "This is a test service."
InstallPath = "c:\windows\System32\Test.exe"

Set ObjWMI = GetObject("winmgmts:" & "{ imPErsonationLevel=impersonate, (SecurITy)} !\\.\root\cimv2")

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！