利用WMI开启服务的VBS函数

novaa

蛋糕的心情写的

' Start service
Sub startSvc(lists)
list=split(lists, ",")
For i=0 To UBound(list)
Set objWMIService = GetObject("winmgmts:\\")
Set colServiceList = objWMIService.ExecQuery("select * from Win32_Service where Name = '" & list(i) & "'")
For Each objService in colServiceList
If objService.State <> "Running" Then
If objService.StartMode = "Disabled" Then
objService.ChangeStartMode("Automatic") 'Automatic|Manual|Disabled
End If
errReturnCode = objService.StartService()
End If 
Next
Set objWMIService=Nothing
Next
End Sub
复制代码

用法：startSvc("这里是要开始的服务名称")

somebody

呵呵，鼓励鼓励~~~
----------------------------
这东西没作用，看看或者学习还可以，没有实际用途.....自己想想我说得对不对....

novaa

我试了
是没有什么作用
呵呵
不是本人写的。但是写这个的人VBS可强哦