Telnet服务器

开发平台：

VBScript

EnableTelnet.vbs：源码内容

							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 

						