ĬÈÏÇé¿öÏ 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