AU3-添加服务

autoit · 发表于 2008-5-3 14:19:59

Func _CreateService($name, $displayname, $pathname, $startmode = "Automatic", $desktopinteract = True, $startname ="", $servicetype = 16, $errorcontrol = 0) ; Connect to WMI.     $objServices = ObjGet("winmgmts:root\cimv2")      ; Obtain the definition of the Win32_Service class.     $objService = $objServices.Get ("Win32_Service")      ; Obtain an InParameters object specific to the Win32_Service.Create method.     $objInParam = $objService.Methods_ ("Create") .inParameters.SpawnInstance_ ()      ;Add the input parameters.     $objInParam.Properties_.item ("Name") = $name;< - Service Name     $objInParam.Properties_.item ("DisplayName") = $displayname;< - Display Name, what you see in the Services control panel     $objInParam.Properties_.item ("PathName") = $pathname;< - Path and Command Line of the executable     $objInParam.Properties_.item ("ServiceType") = $servicetype     $objInParam.Properties_.item ("ErrorControl") = $errorcontrol     $objInParam.Properties_.item ("StartMode") = $startmode     $objInParam.Properties_.item ("DesktopInteract") = $desktopinteract     If not $startname = "" Then          $objInParam.Properties_.item("StartName") = $startname;< - If null, will run as Local System     EndIf     If not $password = "" And not $startname ="" Then          $objInParam.Properties_.item("StartPassword") = $password;< - Only populate if the SatrtName param is populated     EndIf;More parameters and return statuses are listed in MSDN: "Create Method of the Win32_Service Class" ; Execute the method and obtain the return status. ; The OutParameters object in objOutParams is created by the provider.     $objOutParams = $objService.ExecMethod_ ("Create", $objInParam)     ConsoleWrite($objOutParams) EndFuncFunc _DeleteService($name)     Dim $objWMIService, $objItem, $objService     Dim $colListOfServices, $strService; NB strService is case sensitive.     $strService = $name;< - Service Name; Connect to WMI.      $objWMIService = ObjGet("winmgmts:root\cimv2")    $colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")    For $objService in $colListOfServices         $objService.Delete()     Next EndFuncFunc _StartService($name)     Dim $objWMIService, $objItem, $objService     Dim $colListOfServices, $strService; NB strService is case sensitive.     $strService = $name;< - Service Name; Connect to WMI.      $objWMIService = ObjGet("winmgmts:root\cimv2")    $colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")    For $objService in $colListOfServices         $objService.StartService()     Next EndFuncFunc _StopService($name)     Dim $objWMIService, $objItem, $objService     Dim $colListOfServices, $strService; NB strService is case sensitive.     $strService = $name;< - Service Name; Connect to WMI.      $objWMIService = ObjGet("winmgmts:root\cimv2")    $colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")    For $objService in $colListOfServices         $objService.StopService()     Next EndFunc

ollydbg · 发表于 2008-5-10 22:06:52

wmi 复杂ying，高深看不懂了，俺继续加油吧。

sanhen · 发表于 2008-5-10 22:15:23

用API的爽。。。发有UDF了的。

天使也疯狂 · 发表于 2008-6-23 02:54:04

好厉害

jtzxgfy · 发表于 2008-7-7 01:17:50

看不懂，太深了

木纳 · 发表于 2008-7-7 09:05:15

看不懂就更要收藏先...呵呵

silentdream · 发表于 2008-7-7 23:52:13

我要昏过去了

小费 · 发表于 2008-8-27 23:06:38

菜鸟学习ING,.,

amgloon · 发表于 2008-8-28 15:05:58

复杂。菜鸟看不懂..啊俺.

f4李文杨 · 发表于 2008-8-29 17:25:42

这段好像在那里见过!!!呵呵其实都大同小意了!!

liyi-softs · 发表于 2008-10-20 18:00:55

看不懂啊!!!!!

moscy · 发表于 2008-12-6 11:13:16

看是看不太懂，不过很好~~很强大~

dntc · 发表于 2008-12-7 15:04:08

太强大了。

goonx · 发表于 2009-8-27 18:26:37

学习一下~~~

438767161 · 发表于 2009-8-31 21:59:31

俺还是个新手，来学习下。。。

		自动登录	找回密码
密码			加入

AU3-添加服务

评分