<html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> <title>Conexin Web a Escritorio remoto </title> <style type="text/css" media="screen"> p { color:"#000000";
font-family: "Verdana, Arial, Helvetica"; font-size:"65%"} h1 { font-size: 100%; font-family: verdana, arial, helvetica; font-weight: bold; margin-top: 0em;} p.indent { margin-left: 3em; margin-top: .5em; line-height: 1.25em; margin-botto m: .2em; margin-right: 1em;} .button { FONT-FAMILY: Verdana, Helvetica, Arial, San-Serif; font-weight:normal; font-size:70%; color:#000000; background-color:#ffffff; border-color:#6699ff; margin-top:6pt; margin-left: .5em; } .topspace {margin-top: .08em; } </style> </head> <body bgcolor="#ffffff"> <script language="vbscript"> <!-const L_FullScreenWarn1_Text = "Su configuracin de seguridad actual no permite ca mbiar automticamente al modo de pantalla completa." const L_FullScreenWarn2_Text = "Puede usar ctrl-alt-pausa para cambiar su sesin d e escritorio remoto al modo de pantalla completa" const L_FullScreenTitle_Text = "Conexin Web a Escritorio remoto " const L_ErrMsg_Text = "Error en la conexin con el equipo remoto: " const L_PlatformCheck_ErrorMessage = "El control ActiveX de conexin Web a Escrito rio remoto slo puede ejecutarse en la versin de 32 bits de Internet Explorer." ' error messages const L_RemoteDesktopCaption_ErrorMessage = "Conexin a Escritorio remoto" const L_DisconnectedCaption_ErrorMessage = "Escritorio remoto desconectado" const L_ErrConnectCallFailed_ErrorMessage = "Se ha producido un error cuando el cliente intentaba conectarse al equipo remoto. Compruebe la memoria del sistema e intente conectarse de nuevo." const L_DisconnectRemoteByServer_ErrorMessage = "Terminal Server ha finalizado l a conexin." const L_LowMemory_ErrorMessage = "El equipo local tiene poca memoria. Intente vo lver a conectarse al equipo remoto despus de cerrar alguna aplicacin." const L_SecurityErr_ErrorMessage = "Debido a un error de seguridad, el cliente n o puede conectarse al equipo remoto. Despus de comprobar que inici la sesin en la r ed, intente volver a conectarse." const L_BadServerName_ErrorMessage = "No se ha encontrado el equipo remoto espec ificado. Compruebe que ha escrito correctamente el nombre del equipo o la direcc in IP e intente conectarse de nuevo." const L_ConnectFailedProtocol_ErrorMessage = "El cliente no pudo conectarse al e quipo remoto debido a un error de protocolo. Intente conectase al equipo remoto de nuevo. Si el cliente sigue teniendo problemas en la conexin, pngase en contacto con el administrador de red." const L_CannotLoopBackConnect_ErrorMessage = "El cliente no se pudo conectar. No se puede conectar a la consola desde una sesin de consola del mismo equipo." const L_NetworkErr_ErrorMessage = "Debido a un error de red, se terminar la conex
in. Intente volver a conectarse al equipo remoto." const L_InternalErr_ErrorMessage = "Error interno." const L_NotResponding_ErrorMessage = "El cliente no pudo conectarse al equipo re moto. Puede ser que las conexiones remotas no estn habilitadas o que el equipo es t muy ocupado para aceptar nuevas conexiones. Tambin es posible que problemas con la red estn impidiendo la conexin. Pruebe a conectarse ms tarde. Si el problema con tinua, pngase en contacto con el administrador." const L_VersionMismatch_ErrorMessage = "Las versiones del cliente y del servidor no coinciden. Actualice su software de cliente y luego vuelva a intentar la con exin." const L_EncryptionError_ErrorMessage = "Error de cifrado de datos. Esta sesin fin alizar. Vuelva a intentar la conexin con el equipo remoto." const L_ProtocolErr_ErrorMessage = "Debido a un error de protocolo, se desconect ar la sesin. Intente volver a conectarse al equipo remoto." const L_IllegalServerName_ErrorMessage = "El nombre de equipo especificado conti ene caracteres no vlidos. Compruebe el nombre e intntelo de nuevo." const L_ConnectionTimeout_ErrorMessage = "Se ha agotado el tiempo de la conexin r emota. Intente conectarse de nuevo al equipo remoto." const L_DisconnectIdleTimeout_ErrorMessage = "Finaliz la sesin remota porque se al canz el lmite de tiempo de inactividad. Este lmite es establecido por el administra dor o a travs de directivas de red." const L_DisconnectLogonTimeout_ErrorMessage ="Finaliz la sesin remota porque se al canz el lmite del tiempo total de inicio de sesin. Este lmite es establecido por el administrador o a travs de directivas de red." const L_ProtocolErrWITHCODE_ErrorMessage = "Cliente desconectado debido a un er ror de protocolo interno: " const L_LicensingTimeout_ErrorMessage = "Error de licencias mientras el cliente intentaba conectarse (caduc el tiempo de espera de licencias). Intente conectarse nuevamente al equipo remoto." const L_LicensingNegotFailed_ErrorMessage = "El equipo remoto desconect la sesin d ebido a un error en el protocolo de licencias. Pruebe a conectarse al equipo rem oto de nuevo o pngase en contacto con el administrador de servidor." const L_DisconnectRemoteByServerTool_ErrorMessage = "Una herramienta administrat iva finaliz la sesin con el equipo remoto. El administrador debe haber finalizado su sesin." const L_LogoffRemoteByServer_ErrorMessage = "Se desconect la sesin remota porque s u sesin fue cerrada desde el equipo remoto. El administrador u otro usuario deben haber cerrado su sesin." const L_DisconnectByOtherConnection_ErrorMessage = "Se desconect la sesin remota p orque otro usuario se ha conectado a la sesin." const L_ConnectionBroken_ErrorMessage = "Se perdi la conexin con el equipo remoto . Esto pudo deberse a un error de red. Intente nuevamente la conexin con el equip o remoto." const L_ServerOutOfMemory_ErrorMessage = "Se desconect la sesin porque el equipo r emoto no tiene memoria suficiente." const L_LicenseInternal_ErrorMessage = "Se desconect la sesin remota porque hubo u n error interno en el protocolo de licencias del equipo remoto." const L_NoLicenseServer_ErrorMessage = "Se desconect la sesin remota porque no hay servidores de licencias de Terminal Server disponibles para proporcionar una li cencia. Pngase en contacto con el administrador del servidor." const L_NoLicense_ErrorMessage = "Se desconect la sesin remota porque no hay licen cias de acceso de cliente de Terminal Server disponibles para este equipo. Pngase en contacto con el administrador del servidor." const L_LicenseBadClientMsg_ErrorMessage = "Se desconect la sesin remota porque el equipo remoto recibi un mensaje de licencias incorrecto desde este equipo." const L_LicenseHwidDoesntMatch_ErrorMessage = "Se desconect la sesin remota porque la licencia de acceso de cliente de Terminal Server almacenada en este equipo h a sido modificada." const L_BadClientLicense_ErrorMessage = "Se desconect la sesin remota porque la li cencia de acceso de cliente de Terminal Server almacenada en este equipo tiene u
n formato incorrecto." const L_LicenseCantFinishProtocol_ErrorMessage = "Se desconect la sesin remota por que hubo problemas de red durante el protocolo de licencias. Vuelva a intentar c onectarse con el equipo remoto." const L_LicenseClientEndedProtocol_ErrorMessage = "Se desconect la sesin remota po rque el cliente termin prematuramente el protocolo de licencias." const L_LicenseBadClientEncryption_ErrorMessage = "Se desconect la sesin remota po rque se cifr incorrectamente un mensaje de licencias." const L_CantUpgradeLicense_ErrorMessage = "Se desconect la sesin remota porque la licencia de acceso de cliente del equipo local no se pudo actualizar o renovar. Pngase en contacto con el administrador del servidor." const L_LicenseNoRemoteConnections_ErrorMessage = "Se desconect la sesin remota po rque el equipo remoto no tiene licencias para aceptar conexiones remotas. Pngase en contacto con el administrador del servidor." const L_DecompressionFailed_ErrorMessage = "Se desconect la sesin remota debido a error de descompresin en el lado del cliente. Vuelva a intentar conectarse al equ ipo remoto." const L_ServerDeniedConnection_ErrorMessage ="El cliente no pudo establecer la c onexin con el equipo remoto. Las causas posibles del error son: 1) No estn habilit adas las conexiones remotas en el equipo remoto. 2) Se excedi el nmero mximo de con exiones en el equipo remoto. 3) Se produjo un error de red al establecer la cone xin." const L_ControlLoadFailed_ErrorMessage= "No se pudo instalar el control ActiveX de conexin Web a Escritorio remoto. No se puede realizar una conexin si no se inst ala una versin funcional del control. Pngase en contacto con el administrador del sistema." const L_InvalidServerName_ErrorMessage = "Se especific un nombre de servidor no vl ido." 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 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 OnControlLoadError msgbox L_ControlLoadFailed_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessag = iFS
e 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) On Error Resume Next MsRdpClient.server = serverName If Err then msgbox L_InvalidServerName_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMess age Err.Clear exit sub end if On Error Goto 0 '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 MsRdpClient.AdvancedSettings2.RedirectPrinters MsRdpClient.AdvancedSettings2.RedirectPorts MsRdpClient.AdvancedSettings2.RedirectSmartCards = = = = FALSE TRUE FALSE 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 --> </script> <!---> <!-- =========================LOGIN AREA --> <div id=loginArea> <font size="4"> ==========================
<img border="0" src="win2000l.gif" id=leftalign align="left" width="124" height= "123" hspace="10"></font></font><font id=Tahoma1 face="Tahoma" size="1"><br> </font><font size="6" id=Tahoma2 face="Tahoma"> <img border="0" src="win2000r.gif" hspace="0" vspace="7" width="145" height="45" ></font><font id=Tahoma3 face="Tahoma" size="4"><br> </font><b> <font id=Tahoma4 face="Tahoma" size="4"><ID id=bigtitle>Conexin Web a Escritorio remoto </ID></font></b><p> </p> <table border="0" width="640" cellspacing="0" cellpadding=0 style="margin-top: 1em;"> <!-- Graphic bar row --> <tr> <td width="50%"></td>
<td colspan=3 align="left" valign="middle"> <img src="bluebarh.gif" alt="blue bar graphic" width="325" height="8"></td> </tr> <!-- Row 1 --> <tr> <!-- Column 1 spans 4 rows --> <td valign="top" width="50% "rowspan=4> <p class=indent><ID id=remotecomputername>Escriba el nombre del equipo remoto que desea usar, seleccione el tamao de la pantalla para la conexin y haga clic en <b>Conectar</b>.</ID></p> <p class=indent><ID id=helpfultip1>Cuando la pgina de conexin se abre, u sted puede agregarlo a sus Favoritos para una conexin sencilla en el mismo equipo .</ID></p> </td> <!-- Column 2 spans 4 rows--> <td rowspan=4 valign="top" align="left"> <img src="bluebarv.gif" alt="blue bar graphic" border=0 width="8" height="33 0"> </td> <!-- Column 3 --> <td id="ServerNameKeyWidth" style="width:10%;" valign="middle"> <label id=ServerNameKey accessKey="S" for="editServer"> <br><p align="right"> <ID id=ServerName><u>S</u>ervidor:</ID></lab el></p> </td> <!-- Column 4 --> <td id="ServerKeyWidth" width="40%" valign="bottom"> <br> <input type="text" name="Server" size="41" id="editServe r"> </td> </tr> <!-- Row 2 --> <tr> <!-- Column 3 --> <td valign="middle"> <p align="right"><label id=sizeKey accessKey="T" for="comboRes" class="sizespace "><ID id=size><u>T</u>amao:</ID></p></td> <!-- Column 4 --> <td valign="bottom"> <select size="1" name="comboResolution" id=combo Res class="topspace"> <option selected value="1"><ID id=option1>Pantalla completa</ID></ option> <option value="2"><ID id=option2>640 por 480</ID></option> <option value="3"><ID id=option3>800 por 600</ID></option> <option value="4"><ID id=option4>1024 por 768</ID></option> <option value="5"><ID id=option5>1280 por 1024</ID></option> <option value="6"><ID id=option6>1600 por 1200</ID></option> </select> </label> </td> </tr> <!-- Row 3 --> <tr> <!-- Column 3 --> <td></td> <!-- Column 4 --> <td align="bottom"> <p class=topspace> <input type="checkbox" name="CheckBoxAutoLogon"
ID=Check1 value="OFF" onclick = "checkClick"><label for="Check1" ID=SendLogonKe y accesskey="r"><ID id=logoninfo>Enviar info<u>r</u>macin de sesin de esta conexin& nbsp;</ID></label><br> <span ID="tableLogonInfo" style="display: none"> <p align="right" class=topspace> <br> <ID id=usernamelabel><u>U</u>suario:</ID> <label id=UserNameKey accessKey="U" for="editUserName"><input ty pe="text" name="UserName" id=editUserName size="25"></label><br> <ID id=domainlabel><u>D</u>ominio:</ID> <label id=editDomainKey accessKey="D" for="editDomain"> <input type="text" name="Domain" id=editDomain size="25"></label></p>< /span> <input type="submit" id=connectbutton value="Conectar" disabled="TRUE" name="ButtonLogin" OnClick=BtnConnect class="button"> </td> </tr> <!-- Row 4 --> <tr> <!-- Column 3 --> <td height="215"> </td> <!-- Column 4 --> <td> </td> </tr>
</table> </div> <!-- ================================= LOGIN FORM ================= --> <!-- ================================= CONNECT ==================== --> <div id=connectArea style="display: none"> <center> <table> <tr> <OBJECT language="vbscript" ID="MsRdpClient" onerror="OnControlLoadError" onreadystatechange="OnControlLoad" CLASSID="CLSID:7584c670-2274-4efb-b00b-d6aaba6d3850" CODEBASE="msrdp.cab#version=5,2,3790,3959" WIDTH=<% resWidth = Request.QueryString("rW") if resWidth < 200 or resWidth > 1600 then resWidth = 800 end if Response.Write resWidth %> HEIGHT=<% resHeight = Request.QueryString("rH") if resHeight < 200 or resHeight > 1200 then resHeight = 600 end if Response.Write resHeight %>> </OBJECT> </tr> <tr> <br> <font size="1" color="#000000" id="srvfontname" face="Verdana, Arial, He
lvetica"> <div id=connectDisplay style="display:none"> <ID id=loggedinsrv>Al estar conectado a </ID><i><span id="srvNameField"> </span></i></font><br></div> </tr> <script language="VBScript"> <!-sub ReturnToConnectPage() Window.Navigate("Default.htm") end sub sub MsRdpClient_OnConnected() Document.All.connectDisplay.style.display = "block" end sub sub MsRdpClient_OnDisconnected(disconnectCode) extendedDiscReason = MsRdpClient.ExtendedDisconnectReason majorDiscReason = disconnectCode And &hFF if (disconnectCode = &hB08 or majorDiscReason = 2 or majorDiscReason = 1) and not (extendedDiscReason = 5) then 'Switch back to login area ReturnToConnectPage exit sub end if errMsgText = L_DisconnectRemoteByServer_ErrorMessage if not extendedDiscReason = 0 then 'Use the extended disconnect code select case extendedDiscReason case 0 errMsgText = "" case 1 errMsgText = L_DisconnectRemoteByServerTool_ErrorMessage case 2 errMsgText = L_LogoffRemoteByServer_ErrorMessage case 3 errMsgText = L_DisconnectIdleTimeout_ErrorMessage case 4 errMsgText = L_DisconnectLogonTimeout_ErrorMessage case 5 errMsgText = L_DisconnectByOtherConnection_ErrorMessage case 6 errMsgText = L_ServerOutOfMemory_ErrorMessage case 7 errMsgText = L_ServerDeniedConnection_ErrorMessage case 256 errMsgText = L_LicenseInternal_ErrorMessage case 257 errMsgText = L_NoLicenseServer_ErrorMessage case 258 errMsgText = L_NoLicense_ErrorMessage case 259 errMsgText = L_LicenseBadClientMsg_ErrorMessage case 260 errMsgText = L_LicenseHwidDoesntMatch_ErrorMessage case 261 errMsgText = L_BadClientLicense_ErrorMessage case 262 errMsgText = L_LicenseCantFinishProtocol_ErrorMessage case 263 errMsgText = L_LicenseClientEndedProtocol_ErrorMessage case 264 errMsgText = L_LicenseBadClientEncryption_ErrorMessage case 265 errMsgText = L_CantUpgradeLicense_ErrorMessage case 266 errMsgText = L_LicenseNoRemoteConnections_ErrorMessage case else errMsgText = L_ErrMsg_Text end select if extendedDiscReason > 4096 then errMsgText = L_ProtocolErrWITHCODE_ErrorMessage & errMsgText end if else ' no extended error information, use the disconnect code select case disconnectCode case 0 errMsgText = L_ErrMsg_Text case 1 errMsgText = L_ErrMsg_Text
case 2 errMsgText = L_ErrMsg_Text case 260 errMsgText = L_BadServerName_ErrorMessage case 262 errMsgText = L_LowMemory_ErrorMessage case 264 errMsgText = L_ConnectionTimeout_ErrorMessage case 516 errMsgText = L_NotResponding_ErrorMessage case 518 errMsgText = L_LowMemory_ErrorMessage case 520 errMsgText = L_BadServerName_ErrorMessage case 772 errMsgText = L_NetworkErr_ErrorMessage case 774 errMsgText = L_LowMemory_ErrorMessage case 776 errMsgText = L_BadServerName_ErrorMessage case 1028 errMsgText = L_NetworkErr_ErrorMessage case 1030 errMsgText = L_SecurityErr_ErrorMessage case 1032 errMsgText = L_IllegalServerName_ErrorMessage case 1286 errMsgText = L_EncryptionError_ErrorMessage case 1288 errMsgText = L_BadServerName_ErrorMessage case 1540 errMsgText = L_BadServerName_ErrorMessage case 1542 errMsgText = L_SecurityErr_ErrorMessage case 1544 errMsgText = L_LowMemory_ErrorMessage case 1796 errMsgText = L_NotResponding_ErrorMessage case 1798 errMsgText = L_SecurityErr_ErrorMessage case 1800 errMsgText = L_CannotLoopBackConnect_ErrorMessage case 2052 errMsgText = L_BadServerName_ErrorMessage case 2056 errMsgText = L_LicensingNegotFailed_ErrorMessage case 2310 errMsgText = L_SecurityErr_ErrorMessage case 2566 errMsgText = L_SecurityErr_ErrorMessage case 2822 errMsgText = L_EncryptionError_ErrorMessage case 3078 errMsgText = L_EncryptionError_ErrorMessage case 3080 errMsgText = L_DecompressionFailed_ErrorMessage case 3334 errMsgText = L_ProtocolErr_ErrorMessage case 10500 errMsgText = L_ProtocolErr_ErrorMessage case else errMsgText = L_InternalErr_ErrorMessage end select end if msgbox errMsgText,0,L_DisconnectedCaption_ErrorMessage ReturnToConnectPage end sub --> </script> </table> </center> </div> </body> </html>
