| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。