首页 » ASP代码 » VBS修改远程桌面端口,并添加至防火墙

VBS修改远程桌面端口,并添加至防火墙

‘#####################
‘VBS修改远程桌面的默认端口,并添加至Windows防火墙
‘作者51windows.Net
’56868为要设置的端口
‘#####################

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",56868,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",56868,"REG_DWORD"
 
Function Addfirewall(name,port,state)
 Set objFirewall = CreateObject("HNetCfg.FwMgr")
 Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
 Set objPort = CreateObject("HNetCfg.FwOpenPort")
 objPort.Port = port
 objPort.Name = name
 objPort.Enabled = state
 Set colPorts = objPolicy.GloballyOpenPorts
 errReturn = colPorts.Add(objPort)
End Function
 
call Addfirewall("远程桌面56868",56868,1)
set WshShell = nothing
msgbox "设置成功"

, , , ,

转发到新浪微博 转发到新浪微博

目前这篇文章有12条评论(Rss)

  1. serivce | #1
    05/17/2012 at 00:57
     

    MEeOVq Hey, thanks for the blog post. Really Cool.

  2. serivce | #2
    05/17/2012 at 02:47
     

    WFRQwl Great, thanks for sharing this article post.Much thanks again.

1 2 3
我要评论

上一篇：

下一篇：