[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

利用WMI开启服务的VBS函数

蛋糕的心情写的
  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("这里是要开始的服务名称")
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

呵呵,鼓励鼓励~~~
----------------------------
这东西没作用,看看或者学习还可以,没有实际用途.....自己想想我说得对不对....
Software is like sex: it's better when it's free..!

TOP

我试了
是没有什么作用
呵呵
不是本人写的。但是写这个的人VBS可强哦
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

返回列表