WMI 創(chuàng)建系統(tǒng)服務的實現(xiàn)代碼(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