Echo Dim ReadComputerName >>port.<b>vbs</b>
Echo Set ReadComputerName=WScript.CreateObject("WScript.Shell") >>port.<b>vbs</b>
Echo Dim TSName,TSRegPath >>port.<b>vbs</b>
Echo TSRegPath="HKLM\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber" >>port.<b>vbs</b>
Echo TSName=ReadComputerName.RegRead(TSRegPath) >>port.<b>vbs</b>
Echo WScript.Echo("TermService port is:"^&TSName) >>port.<b>vbs</b>
Cscript port.<b>vbs</b>
<b></b>
<b> 本文轉自 simeon2005 51CTO部落格,原文連結:http://blog.51cto.com/simeon/46233</b>