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
