标题: VBS创建系统服务
作者: Demon
链接: https://demon.tw/copy-paste/vbs-create-service.html
版权: 本博客的所有文章,都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
需要注意的是启动模式,应为“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
赞赏微信赞赏支付宝赞赏
随机文章: