Shulou(Shulou.com)06/03 Report--

This article mainly introduces WMI how to create system services, the article is very detailed, has a certain reference value, interested friends must read it!

The code is as follows:

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

These are all the contents of the article "how to create system Services for WMI". Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.