windtear 追求完美

默认情况下 tsweb 使用 3389 作为 terminal/rdp 端口连接
并且 tsweb 不支持类似 server:port 的输入方式改变端口
如果想访问非默认端口的 rdp server
只能修改 tsweb 服务器的 default.htm 文件
根据 Microsoft Knowledge Base Article - 326945 提示
        http://support.microsoft.com/?id=326945
        《如何更改 Windows 终端服务器 Web 客户端中的侦听端口》
给出如下代码 (patch) 供参考

tswebsetup.exe  489,776         2003/05/15  23:03:18
6.00.2509.0000 (main.010702-1146)

----->  增加代码
   'port support  server:port
   portPos = Instr(serverName,":")
   if portPos > 0 then
        portValue = Right(serverName,Len(serverName)-portPos)
        if IsNumeric(portValue) then
                MsRdpClient.AdvancedSettings2.RDPPort = portValue
        end if
        MsRdpClient.server = Left(serverName,portPos-1)
   else
        MsRdpClient.server = serverName
   end if

----->  patch
--- orig.default.htm    Tue Mar 25 00:00:00 2003
+++ default.htm Tue May 11 21:09:32 2004
@@ -189,7 +189,18 @@
    serverName = trim(serverName)
    
    On Error Resume Next
-   MsRdpClient.server = serverName
+   'port support  server:port
+   portPos = Instr(serverName,":")
+   if portPos > 0 then
+       portValue = Right(serverName,Len(serverName)-portPos)
+       if IsNumeric(portValue) then
+               MsRdpClient.AdvancedSettings2.RDPPort = portValue
+       end if
+       MsRdpClient.server = Left(serverName,portPos-1)
+   else
+       MsRdpClient.server = serverName
+   end if
+
    If Err then 
       msgbox L_InvalidServerName_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage
       Err.Clear