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
您可能感兴趣的文章
- 01-10远程或本地获取系统信息的脚本RGIS.vbs
- 01-10可以得到当前系统信息的脚本sysinfo.vbs
- 01-10利用VBS脚本自动创建计算机帐户的代码
- 01-10用vbs控制iis创建虚拟目录的代码
- 01-10基于逻辑运算的简单权限系统(原理,设计,实现) VBS 版
- 01-10右键发送(sendto),创建快捷方式到自定义的位置
- 01-10创建Guid 的代码
- 01-10基于逻辑运算的简单权限系统(原理,设计,实现) VBS 版
- 01-10右键发送(sendto),创建快捷方式到自定义的位置 的vbs
- 01-10改进后的mkw3site.vbs(创建虚拟目录)