用VBS修改远程桌面3389端口并添加到Windows防火墙的代码

时间:2022-06-01 12:41:52

将下面代码存为.vbs,双击运行。然后重启一下系统,就修改了系统的远程桌面的默认的3389端口

  1. '#####################  
  2. 'VBS修改远程桌面的默认端口,并添加至Windows防火墙  
  3. '作者51windows.Net  
  4. '56868为要设置的端口  
  5. '#####################  
  6.  
  7. Set WshShell = WScript.CreateObject("WScript.Shell")  
  8. WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",56868,"REG_DWORD"  
  9. WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",56868,"REG_DWORD"  
  10.  
  11.  
  12. Function Addfirewall(name,port,state)  
  13.  Set objFirewall = CreateObject("HNetCfg.FwMgr")  
  14.  Set objPolicy = objFirewall.LocalPolicy.CurrentProfile  
  15.  
  16.  Set objPort = CreateObject("HNetCfg.FwOpenPort")  
  17.  objPort.Port = port  
  18.  objPort.Name = name  
  19.  objPort.Enabled = state  
  20.  Set colPorts = objPolicy.GloballyOpenPorts  
  21.  errReturn = colPorts.Add(objPort)  
  22. End Function  
  23.  
  24. call Addfirewall("远程桌面56868",56868,1)  
  25. set WshShell = nothing  
  26.  
  27. msgbox "设置成功"