Re: Problem with Web based client

From: Jim Hubbard (someone_at_home.com)
Date: 06/22/04 

Date: Tue, 22 Jun 2004 01:08:02 -0400

Seems like you are having problems accessing the web server on the PC you
are connecting to. Can you access any web pages on the machine you are
trying to control?

Jim Hubbard
Hubbard Software

"jcrompton" <jcrompton@discussions.microsoft.com> wrote in message
news:5BDD1B2E-B73F-4678-A131-01FCFCDEF849@microsoft.com...
> My remote desktop connection works fine when I connect with a Remote
Desktop client. However when I connect with a web based connection I get the
following error -- this happened out of the blue after successful use for
over 2 years.
> Any ideas??? ...
>
> error as follows:
>
> timed out. Please try connecting to the remote computer again." const
L_DisconnectIdleTimeout_ErrorMessage = "The remote session was ended because
the idle timeout limit was reached. This limit is set by the server
administrator or by network policies." const
L_DisconnectLogonTimeout_ErrorMessage ="The remote session ended because the
total logon time limit was reached. This limit is set by the server
administrator or by network policies." const
L_ProtocolErrWITHCODE_ErrorMessage = "Client disconnected due to internal
protocol error: " const L_LicensingTimeout_ErrorMessage = "A licensing error
occurred while the client was attempting to connect (Licensing timed
out).Please try connecting to the remote computer again." const
L_LicensingNegotFailed_ErrorMessage = "The remote computer disconnected the
session because of an error in the licensing protocol.Please try connecting
to the remote computer again or contact your server administrator." const
L_DisconnectRemoteByServerTool_ErrorMessage = "The remote session to the
remote computer was ended by means of an administration tool.Your
administrator might have ended your connection." const
L_LogoffRemoteByServer_ErrorMessage = "The remote session was disconnected
because your session was logged off at the remote computer.Your
administrator or another user might have ended your connection." const
L_DisconnectByOtherConnection_ErrorMessage = "The remote session was
disconnected because another user has connected to the session." const
L_ConnectionBroken_ErrorMessage = "The connection to the remote computer was
broken. This may have been caused by a network error.Please try connecting
to the remote computer again." const L_ServerOutOfMemory_ErrorMessage = "The
connection was disconnected because the remote computer is low on memory."
const L_LicenseInternal_ErrorMessage = "The remote session was disconnected
because there was an internal error in the remote computer's licensing
protocol." const L_NoLicenseServer_ErrorMessage = "The remote session was
disconnected because there are no Terminal Server License Servers available
to provide a license.Please contact the server administrator." const
L_NoLicense_ErrorMessage = "The remote session was disconnected because
there are no Terminal Server client access licenses available for this
computer.Please contact the server administrator." const
L_LicenseBadClientMsg_ErrorMessage = "The remote session was disconnected
because the remote computer received an invalid licensing message from this
computer." const L_LicenseHwidDoesntMatch_ErrorMessage = "The remote session
was disconnected because the Terminal Server client access license stored on
this computer has been modified." const L_BadClientLicense_ErrorMessage =
"The remote session was disconnected because the Terminal Server client
access license stored on this computer is in an invalid format." const
L_LicenseCantFinishProtocol_ErrorMessage = "The remote session was
disconnected because there were network problems during the licensing
protocol.Please try connecting to the remote computer again." const
L_LicenseClientEndedProtocol_ErrorMessage = "The remote session was
disconnected because the client prematurely ended the licensing protocol."
const L_LicenseBadClientEncryption_ErrorMessage = "The remote session was
disconnected because a licensing message was incorrectly encrypted." const
L_CantUpgradeLicense_ErrorMessage = "The remote session was disconnected
because the local computer's client access license could not be upgraded or
renewed.Please contact the server administrator." const
L_LicenseNoRemoteConnections_ErrorMessage = "The remote session was
disconnected because the remote computer is not licensed to accept remote
connections.Please contact the server administrator." const
L_DecompressionFailed_ErrorMessage = "The remote session was disconnected
because of a decompression failure at the client side. Please try connecting
to the remote computer again." const L_ServerDeniedConnection_ErrorMessage
="The client could not establish a connection to the remote computer.The
most likely causes for this error are:1) Remote connections might not be
enabled at the remote computer.2) The maximum number of connections was
exceeded at the remote computer.3) A network error occurred while
establishing the connection." sub window_onload() if not
LCase(Navigator.CpuClass) = "x86" then msgbox L_PlatformCheck_ErrorMessage
end if if not autoConnect() then Document.all.editServer.Focus end if end
sub function autoConnect() Dim sServer Dim iFS, iAutoConnect sServer = getQS
("Server") iAutoConnect = getQS ("AutoConnect") iFS = getQS ("FS") if NOT
IsNumeric ( iFS ) then iFS = 0 else iFS = CInt ( iFS ) end if if
iAutoConnect <> 1 then autoConnect = false exit function else if iFS < 0 or
iFS >= Document.all.comboResolution.options.length then iFS = 0 end if if
IsNull ( sServer ) or sServer = "" then sServer = window.location.hostname
end if Document.all.comboResolution.selectedIndex = iFS
Document.all.Server.value = sServer btnConnect () autoConnect = true end if
end function function getQS ( sKey ) Dim iKeyPos, iDelimPos, iEndPos Dim
sURL, sRetVal iKeyPos = iDelimPos = iEndPos = 0 sURL = window.location.href
if sKey = "" Or Len(sKey) < 1 then getQS = "" exit function end if iKeyPos =
InStr ( 1, sURL, sKey ) if iKeyPos = 0 then sRetVal = "" exit function end
if iDelimPos = InStr ( iKeyPos, sURL, "=" ) iEndPos = InStr ( iDelimPos,
sURL, "&" ) if iEndPos = 0 then sRetVal = Mid ( sURL, iDelimPos + 1 ) else
sRetVal = Mid ( sURL, iDelimPos + 1, iEndPos - iDelimPos - 1 ) end if getQS
= sRetVal end function sub checkClick if Document.all.Check1.Checked then
Document.all.tableLogonInfo.style.display = ""
Document.all.editUserName.Disabled = false Document.all.editDomain.Disabled
= false else Document.all.tableLogonInfo.style.display = "none"
Document.all.editUserName.Disabled = true Document.all.editDomain.Disabled =
true end if end sub sub OnControlLoad set Control =
Document.getElementById("MsRdpClient") if Not Control is Nothing then if
Control.readyState = 4 then Document.all.connectButton.disabled = FALSE end
if end if end sub sub BtnConnect Dim serverName 'server if not
Document.all.Server.value = "" then serverName = Document.all.Server.value
else serverName = Document.location.hostname end if serverName =
trim(serverName) MsRdpClient.server = serverName 'serverName name text
Document.all.srvNameField.innerHtml = serverName 'Username/Domain if
Document.all.CheckBoxAutoLogon.checked then MsRdpClient.UserName =
Document.all.UserName.Value MsRdpClient.Domain = Document.all.Domain.Value
end if 'Resolution MsRdpClient.FullScreen = FALSE select case
document.all.comboResolution.value case "1" MsRdpClient.FullScreen = TRUE
resWidth = screen.width resHeight = screen.height case "2" resWidth = "640"
resHeight = "480" case "3" resWidth = "800" resHeight = "600" case "4"
resWidth = "1024" resHeight = "768" case "5" resWidth = "1280" resHeight =
"1024" case "6" resWidth = "1600" resHeight = "1200" end select
MsRdpClient.DesktopWidth = resWidth MsRdpClient.DesktopHeight = resHeight
MsRdpClient.Width = resWidth MsRdpClient.Height = resHeight 'Device
redirection options MsRdpClient.AdvancedSettings2.RedirectDrives = FALSE
MsRdpClient.AdvancedSettings2.RedirectPrinters = TRUE
MsRdpClient.AdvancedSettings2.RedirectPorts = FALSE
MsRdpClient.AdvancedSettings2.RedirectSmartCards = FALSE 'FullScreen title
MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & "(" & serverName &
")" 'Display connect region Document.all.loginArea.style.display = "none"
Document.all.connectArea.style.display = "block" 'Connect
MsRdpClient.Connect end sub -->
>
>
> Remote Desktop Web Connection
>
>
>
> Type the name of the remote computer you want to use, select the screen
size for your connection, and then click Connect.
>
> When the connection page opens, you can add it to your Favorites for easy
connection to the same computer.
>
>
> Server:
>
>
> Size:
> Full-screen 640 by 480 800 by 600 1024 by 768 1280 by 1024 1600 by
1200
> Send logon information for this connection
>