aspm已禁用,开启已禁用的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