vbs更改3389远程桌面端口的脚本
摘要：SetWshShell=CreateObject("Wscript.Shell")FunctionImput()imputport=Inpu...
SetWshShell=CreateObject("Wscript.Shell")
FunctionImput()
imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改终端端口号","3389",100,100)
Ifimputport<>""Then
IfIsNumeric(imputport)Then
WshShell.RegWrite"HKLMSYSTEMCurrentControlSetControlTerminalServerWdsrdpwdTdstcpPortNumber",imputport,"REG_DWORD"
WshShell.RegWrite"HKLMSYSTEMCurrentControlSetControlTerminalServerWinStationsRDP-TcpPortNumber",imputport,"REG_DWORD"
wscript.echo"操作成功"
Elsewscript.echo"输入出错，请重新输入"
Imput()
EndIf
Elsewscript.echo"操作已经取消"
EndIf
EndFunction
Imput()
setWshShell=nothing
【vbs更改3389远程桌面端口的脚本】相关文章：
上一篇：
用vbs实现的exe2swf工具脚本代码
下一篇：
用vbs实现的强制杀进程的脚本