更改终端端口VBS代码

2009-7-20 12:58 479 0

摘要: 　　Set WshShell=CreateObject("Wscript.Shell")　　Function Imput()　　imputport=InputBox("请输入一个端口号，注意：这个端口...

关键词： imputport WshShell Wscript 输入 CurrentControlSe Imput PortNumber 口号终端 Terminal

　　Set WshShell=CreateObject("Wscript.Shell")　　Function Imput()　　imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)　　If imputport<>"" Then　　If IsNumeric(imputport) Then　　　　WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD"　　WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD"　　wscript.echo "操作成功"　　Else wscript.echo "输入出错，请重新输入"　　Imput()　　End If　　Else wscript.echo "操作已经取消"　　End If　　End Function　　Imput()　　set WshShell=nothing

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除