VBS创建系统服务

标签: , , , ,

需要注意的是启动模式,应为“Automatic”,而不是“Auto”。

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

原文链接:http://www.enun.net/?p=950

赞赏

微信赞赏支付宝赞赏

随机文章:

  1. VBS转EXE工具:ScriptCryptor
  2. VBS中的Microsoft.CmdLib对象
  3. MAX_PATH 还是 MAX_PATH + 1 ?
  4. VB6拾遗:函数指针与CallWindowProc函数
  5. 批处理技术内幕:随机数%RANDOM%

留下回复