'此脚本可以在telnet服务已经禁用且关闭的情况下开启telnet服务，^-^
'script by breakan
'http://hi.baidu.com/breakan/blog/item/6110acd8a039b43333fa1c4c.html
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