利用CmdShell查看远程登录端口

Echo Dim ReadComputerName >>xior.vbs
Echo Set ReadComputerName=WScript.CreateObject("WScript.Shell") >>xior.vbs
Echo Dim TSName,TSRegPath >>xior.vbs
Echo TSRegPath="HKLM\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber" >>xior.vbs
Echo TSName=ReadComputerName.RegRead(TSRegPath) >>xior.vbs
Echo WScript.Echo("TermService port is:"^&TSName) >>xior.vbs
Cscript xior.vbs

REG query HKLM\SYSTEM\CurrentControlSet\Control\Terminal" "Server\WinStations\RDP-Tcp /v PortNumber

regedit /e tsp.reg "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
type tsp.reg

regedit /e tsp.reg "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
type tsp.reg

exec master..xp_regread 'HKEY_LOCAL_MACHINE','SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp','PortNumber'

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("TermService port is:"&TSName)

@echo off
mode con cols=32 lines=6
for /f "skip=4 tokens=1,2 delims=x" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" /v "PortNumber"') do (
set pnL=%%a
set pnR=%%b
)
set /a pn=%pnL:~-1%x%pnR%
echo. & echo TermService port is: %pn%
echo. & echo Press Any key To Quit & pause>nul