- ' 版本 2012 12 04
- ' 作者 xiaoli110
- ' 实现原理
- ' 修改注册表,打开远程桌面键值
- ' 读取远程桌面端口数值,写入注册表
- rdp_port=38522
- '修改注册表 打开远程桌面 修改端口
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\fDenyTSConnections",0,"REG_DWORD"
- WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",rdp_port,"REG_DWORD"
- WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",rdp_port,"REG_DWORD"