圆月山庄资源网 Design By www.vgjia.com

复制代码 代码如下:
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

标签:
WMI,系统服务

圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com