VBScript查看远程终端的状态并修改!

下面的代码复制到文本文件中，保存为get3389.vbs
'功能：查看远程终端的状态并修改
'使用方法：命令行下 cscript get3389.vbs

Dim OperationRegistry Set OperationRegistry=WScript.createObject("WScript.Shell") WScript.Echo() Dim TSPort,TSState,TSRegPath TSRegPath="HKLM\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber" TSPort=OperationRegistry.RegRead(TSRegPath) WScript.Echo("终端端口为"&TSPort) WScript.Echo() TSRegPath="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\fDenyTSConnections" TSState=OperationRegistry.RegRead(TSRegPath) If TSState=0 Then WScript.Echo("终端可以连接") Else WScript.Echo("终端无法连接,请稍后...") OperationRegistry.RegWrite TSRegPath,0,"REG_DWORD" WScript.Echo("终端状态已改为可连接,可能需要重启") End If