数据载入中...

数据载入中...


数据载入中...
数据载入中...
   

数据载入中...

·查看端口修改终极端口vbs- -{2008-5-14 14:10:00}

终端要是端口被修改了,一般的菜鸟就不知道该怎么办了,
我写了个小程序其实就几行,也很简单没有什么技术内容,
以后大家再遇到不知道端口的情况时候可以用到。


Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim TSName,TSRegPath
TSRegPath="HKLM\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber"
TSName=ReadComputerName.RegRead(TSRegPath)
WScript.Echo("终端端口为"&TSName)
WScript.Echo()
WScript.Echo("本程序是帮助你找到终端的端口")
WScript.Echo("黑博基地")
WScript.Echo("http://www.cnxhai.cn")
WScript.Echo("winstear制作")


把以上代码保存为vbs文件,如“3389port.vbs”
然后在命令行下运行cscript 3389port.vbs 即可查看终端端口。

 

版权归黑博基地97ai,97sese所有2007-2008 重要声明本站所有文章均转载互联网,一切版权归作者所有

Blog.H126.Net.