利用WMI开启服务的VBS函数

novaa

蛋糕的心情写的

1. ' Start service
   
2. Sub startSvc(lists)
   
3. list=split(lists, ",")
   
4. For i=0 To UBound(list)
   
5. Set objWMIService = GetObject("winmgmts:\")
   
6. Set colServiceList = objWMIService.ExecQuery("select * from Win32_Service where Name = '" & list(i) & "'")
   
7. For Each objService in colServiceList
   
8. If objService.State <> "Running" Then
   
9. If objService.StartMode = "Disabled" Then
   
10. objService.ChangeStartMode("Automatic") 'Automatic|Manual|Disabled
    
11. End If
    
12. errReturnCode = objService.StartService()
    
13. End If
    
14. Next
    
15. Set objWMIService=Nothing
    
16. Next
    
17. End Sub

复制代码

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

somebody

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

novaa

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