VBS脚本的妙用（２）

查看当前电脑启用的服务

for each sc in getobject("winmgmts://./root/cimv2:win32_service").instances_
if sc.startmode="Auto" then
srtTXT=srtTXT&"服务名称:"&sc.name&"|进程名称:"&sc.pathname&chr(10)&chr(13)
end if
next
wscript.echo srtTXT

 

开启已禁用的telnet服务-vbs

'此脚本可以在telnet服务已经禁用且关闭的情况下开启telnet服务，^-^
'script by breakan
Option explicit
dim objwmiservice,colservices
dim objservice,telnetservername
telnetservername="TlntSvr"
set objwmiservice=getobject("winmgmts://.")
set colservices=objwmiservice.instancesof("win32_service")
Dim result
result=MsgBox("[是]开启telnet服务" & vbCr & "[否]关闭telnet服务" & vbCr &"[取消]退出脚本",3+64,"telnet service")
If result=6 then
    for each objservice in colservices
      if objservice.name=telnetservername then
        objservice.changestartmode()    'ChangeStartMode 方法会更改服务的启动模式。
        objservice.startservice()        'StartService 方法会尝试将服务放置到其启动状态中。
      end if
    Next
ElseIf result=7 then
    for each objservice in colservices
      if objservice.name=telnetservername Then
          objservice.stopservice()    'StopService 方法会将该服务放置到其终止状态中。
      end if
    Next
End if