原代码：
Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim TSName,TSRegPath
TSRegPath="HKLM\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber"
TSName=ReadComputerName.RegRead(TSRegPath)
WScript.Echo("终端端口为"&TSName)
WScript.Echo("本程序是帮助你找到终端的端口")
WScript.Echo("安全基地
www.cnnsc.org")
WScript.Echo("不懂就問.cn制作 联系QQ：239941")
