复制代码 代码如下:
Const OWN_PROCESS = &H10
Const ERR_CONTROL = &H2
Const INTERACTIVE = False
ServiceName = "TestService"
DisplayName = "This is a test service."
InstallPath = "c:windowssystem32Test.exe"
Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!.rootcimv2")
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 创建系统服务的实现代码(Automatic)】相关文章：
★ Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码
★ VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)