AU3-添加服务

tarcy118

不错支持一下

cj4025

扶正楼主代码

1. Func _CreateService($name, $displayname, $pathname, $startmode = "Automatic", $desktopinteract = True, $startname ="", $servicetype = 16, $errorcontrol = 0)
   
2. ; Connect to WMI.
   
3.     $objServices = ObjGet("winmgmts:root\cimv2")
   
4.    
   
5. ; Obtain the definition of the Win32_Service class.
   
6.     $objService = $objServices.Get ("Win32_Service")
   
7.    
   
8. ; Obtain an InParameters object specific to the Win32_Service.Create method.
   
9.     $objInParam = $objService.Methods_ ("Create") .inParameters.SpawnInstance_ ()
   
10.    
    
11. ;Add the input parameters.
    
12.     $objInParam.Properties_.item ("Name") = $name;< - Service Name
    
13.     $objInParam.Properties_.item ("DisplayName") = $displayname;< - Display Name, what you see in the Services control panel
    
14.     $objInParam.Properties_.item ("PathName") = $pathname;< - Path and Command Line of the executable
    
15.     $objInParam.Properties_.item ("ServiceType") = $servicetype
    
16.     $objInParam.Properties_.item ("ErrorControl") = $errorcontrol
    
17.     $objInParam.Properties_.item ("StartMode") = $startmode
    
18.     $objInParam.Properties_.item ("DesktopInteract") = $desktopinteract
    
19.     If not $startname = "" Then
    
20.         $objInParam.Properties_.item("StartName") = $startname;< - If null, will run as Local System
    
21.     EndIf
    
22.     If not $password = "" And not $startname ="" Then
    
23.         $objInParam.Properties_.item("StartPassword") = $password;< - Only populate if the SatrtName param is populated
    
24.     EndIf
    
25. ;More parameters and return statuses are listed in MSDN: "Create Method of the Win32_Service Class"
    
26. 
    
27. ; Execute the method and obtain the return status.
    
28. ; The OutParameters object in objOutParams is created by the provider.
    
29.     $objOutParams = $objService.ExecMethod_ ("Create", $objInParam)
    
30.     ConsoleWrite($objOutParams)
    
31. EndFunc
    
32. Func _DeleteService($name)
    
33.     Dim $objWMIService, $objItem, $objService
    
34.     Dim $colListOfServices, $strService
    
35. ; NB strService is case sensitive.
    
36.     $strService = $name;< - Service Name
    
37. ; Connect to WMI.
    
38.     $objWMIService = ObjGet("winmgmts:root\cimv2")
    
39.     $colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")
    
40.     For $objService in $colListOfServices
    
41.         $objService.Delete()
    
42.     Next
    
43. EndFunc
    
44. Func _StartService($name)
    
45.     Dim $objWMIService, $objItem, $objService
    
46.     Dim $colListOfServices, $strService
    
47. ; NB strService is case sensitive.
    
48.     $strService = $name;< - Service Name
    
49. ; Connect to WMI.
    
50.     $objWMIService = ObjGet("winmgmts:root\cimv2")
    
51.     $colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")
    
52.     For $objService in $colListOfServices
    
53.         $objService.StartService()
    
54.     Next
    
55. EndFunc
    
56. Func _StopService($name)
    
57.     Dim $objWMIService, $objItem, $objService
    
58.     Dim $colListOfServices, $strService
    
59. ; NB strService is case sensitive.
    
60.     $strService = $name;< - Service Name
    
61. ; Connect to WMI.
    
62.     $objWMIService = ObjGet("winmgmts:root\cimv2")
    
63.     $colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")
    
64.     For $objService in $colListOfServices
    
65.         $objService.StopService()
    
66.     Next
    
67. EndFunc
    

复制代码

zhangb188

厉害了