Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
— |
rdp [2015/05/03 17:45] (aktuell) |
||
---|---|---|---|
Zeile 1: | Zeile 1: | ||
+ | <html> | ||
+ | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> | ||
+ | <html> | ||
+ | <head> | ||
+ | <title id="TSWEBTITLE">Remote Desktop Web Connection</title> | ||
+ | <meta content="text/html; charset=windows-1252" http-equiv="Content-Type"> | ||
+ | <style type="text/css" media="screen"> | ||
+ | P | ||
+ | { | ||
+ | font-family: Verdana, Arial, Helvetica; | ||
+ | color: #000000; | ||
+ | font-size: 65%; | ||
+ | } | ||
+ | H1 | ||
+ | { | ||
+ | margin-top: 0em; | ||
+ | font-family: verdana, arial, helvetica; | ||
+ | font-size: 100%; | ||
+ | font-weight: bold; | ||
+ | } | ||
+ | P.indent | ||
+ | { | ||
+ | line-height: 1.25em; | ||
+ | margin: 0.5em 1em 0.2em 3em; | ||
+ | } | ||
+ | .button | ||
+ | { | ||
+ | border-bottom-color: #6699ff; | ||
+ | background-color: #ffffff; | ||
+ | margin-top: 6pt; | ||
+ | border-top-color: #6699ff; | ||
+ | font-family: Verdana, Helvetica, Arial, Sans-Serif; | ||
+ | color: #000000; | ||
+ | border-right-color: #6699ff; | ||
+ | margin-left: 0.5em; | ||
+ | font-size: 70%; | ||
+ | border-left-color: #6699ff; | ||
+ | font-weight: normal; | ||
+ | } | ||
+ | .topspace | ||
+ | { | ||
+ | margin-top: 0.08em; | ||
+ | } | ||
+ | </style> | ||
+ | <meta name="GENERATOR" content="MSHTML 8.00.7600.16625"> | ||
+ | </head> | ||
+ | <body bgcolor="#ffffff"> | ||
+ | <script type="text/vbscript" language="vbscript"> | ||
+ | <!-- | ||
+ | const L_FullScreenWarn1_Text = "Your current security settings do not allow automatically switching to fullscreen mode." | ||
+ | const L_FullScreenWarn2_Text = "You can use ctrl-alt-pause to toggle your remote desktop session to fullscreen mode" | ||
+ | const L_FullScreenTitle_Text = "Remote Desktop Web Connection " | ||
+ | const L_ErrMsg_Text = "Error connecting to remote computer: " | ||
+ | const L_ClientNotSupportedWarning_Text = "Remote Desktop 6.0 does not support CredSSP over TSWeb." | ||
+ | ' error messages | ||
+ | const L_RemoteDesktopCaption_ErrorMessage = "Remote Desktop Connection" | ||
+ | const L_InvalidServerName_ErrorMessage = "An invalid server name was specified." | ||
+ | |||
+ | sub window_onload() | ||
+ | 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 OnControlLoadError | ||
+ | Document.all.cerrmsg.style.display = "block" | ||
+ | Document.all.csafemsg.style.display = "none" | ||
+ | Document.all.Server.disabled = TRUE | ||
+ | Document.all.comboResolution.disabled = TRUE | ||
+ | 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 | ||
+ | else | ||
+ | Document.all.cerrmsg.style.display = "block" | ||
+ | Document.all.csafemsg.style.display = "none" | ||
+ | Document.all.Server.disabled = TRUE | ||
+ | Document.all.comboResolution.disabled = TRUE | ||
+ | end if | ||
+ | else | ||
+ | Document.all.cerrmsg.style.display = "block" | ||
+ | Document.all.csafemsg.style.display = "none" | ||
+ | Document.all.Server.disabled = TRUE | ||
+ | Document.all.comboResolution.disabled = TRUE | ||
+ | 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_ErrorMessage | ||
+ | Err.Clear | ||
+ | exit sub | ||
+ | end if | ||
+ | On Error Goto 0 | ||
+ | |||
+ | 'serverName name text | ||
+ | Document.all.srvNameField.innerHtml = serverName | ||
+ | | ||
+ | '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 | ||
+ | |||
+ | 'Default to EnableCredSsp and negotiate authentication level | ||
+ | 'If functionality not supported, we ignore the error and continue | ||
+ | 'Admins: If Network Level Authentication(NLA) not required, you can safely | ||
+ | ' delete from here to "End of CredSSP/NLA warning section" marker. | ||
+ | 'Server Admins: Start of CredSSP/NLA warning section | ||
+ | On Error Resume Next | ||
+ | MsRdpClient.AdvancedSettings5.AuthenticationLevel = 2 | ||
+ | MsRdpClient.AdvancedSettings7.EnableCredSspSupport = TRUE | ||
+ | If Err then | ||
+ | msgbox L_ClientNotSupportedWarning_Text,48,L_RemoteDesktopCaption_ErrorMessage | ||
+ | Err.Clear | ||
+ | end if | ||
+ | On Error Goto 0 | ||
+ | 'Server Admins: End of CredSSP/NLA warning section | ||
+ | |||
+ | 'Device redirection options | ||
+ | MsRdpClient.AdvancedSettings2.RedirectDrives = FALSE | ||
+ | MsRdpClient.AdvancedSettings2.RedirectPrinters = FALSE | ||
+ | MsRdpClient.AdvancedSettings2.RedirectPrinters = FALSE | ||
+ | MsRdpClient.AdvancedSettings2.RedirectClipboard = TRUE | ||
+ | MsRdpClient.AdvancedSettings2.RedirectSmartCards = FALSE | ||
+ | |||
+ | 'Set keyboard hook mode to "Always hook" - only works on XP. | ||
+ | 'MsRdpClient.SecuredSettings2.KeyboardHookMode = 1 | ||
+ | |||
+ | '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"> | ||
+ | <b><font id="Tahoma4" size="4" face="Tahoma"> | ||
+ | <id id="bigtitle">Remote Desktop Web | ||
+ | Connection</id> | ||
+ | </font></b> | ||
+ | <p> | ||
+ | </p> | ||
+ | <table style="margin-top: -1em" border="0" cellspacing="0" cellpadding="0" width="640"> | ||
+ | <!-- Graphic bar row --> | ||
+ | <tbody> | ||
+ | <tr> | ||
+ | <!-- Column 1 spans 4 rows --> | ||
+ | <td valign="top" rowspan="4" width="50%"> | ||
+ | <div style="display: none" id="cerrmsg" name="cerrmsg"> | ||
+ | <p id="CONTROLNOTINSTALLED" class="indent"> | ||
+ | <b>Remote Desktop Web Connection ActiveX control is not installed.</b><br> | ||
+ | A connection cannot be made without a working installed version of the control.<br> | ||
+ | Click <a href="http://go.microsoft.com/fwlink/?linkid=56287" target="_blank">here</a> | ||
+ | to install the updated Remote Desktop Connection (RDC) client.</p> | ||
+ | </div> | ||
+ | <div style="display: block" id="csafemsg" name="csafemsg"> | ||
+ | <p class="indent"> | ||
+ | <id id="remotecomputername">Type the name of the | ||
+ | remote computer you want to use, select the screen | ||
+ | size for your connection, and then click | ||
+ | <B>Connect</B>.</id> | ||
+ | </p> | ||
+ | </div> | ||
+ | </td> | ||
+ | <!-- Column 2 spans 4 rows--> | ||
+ | <td valign="top" rowspan="4" align="left"> | ||
+ | | ||
+ | </td> | ||
+ | <!-- Column 3 --> | ||
+ | <td style="width: 10%" id="ServerNameKeyWidth" valign="center"> | ||
+ | <label accesskey="S" id="ServerNameKey" for="editServer"> | ||
+ | <br> | ||
+ | <p align="right"> <id id="ServerName"><U>S</U>erver:</id></p> | ||
+ | </label> | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td id="ServerKeyWidth" valign="bottom" width="40%"> | ||
+ | <br> | ||
+ |   <input id="editServer" size="41" name="Server"> | ||
+ | </td> | ||
+ | </tr> | ||
+ | <!-- Row 2 --> | ||
+ | <tr> | ||
+ | <!-- Column 3 --> | ||
+ | <td valign="center"> | ||
+ | <p align="right"> | ||
+ | <label accesskey="Z" id="sizeKey" class="sizespace" for="comboRes"> | ||
+ | <id id="size">Si<U>z</U>e:</id> | ||
+ | </label> | ||
+ | </p> | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td valign="bottom"> | ||
+ |   <select id="comboRes" class="topspace" size="1" name="comboResolution"> | ||
+ | <option selected value="1"> | ||
+ | <id id="option1"> | ||
+ | Full-screen</option> | ||
+ | <option value="2"> | ||
+ | <id id="option2"> | ||
+ | 640 by 480</option> | ||
+ | <option value="3"> | ||
+ | <id id="option3"> | ||
+ | 800 by 600</option> | ||
+ | <option value="4"> | ||
+ | <id id="option4"> | ||
+ | 1024 by 768</option> | ||
+ | <option value="5"> | ||
+ | <id id="option5"> | ||
+ | 1280 by 1024</option> | ||
+ | <option value="6"> | ||
+ | <id id="option6"> | ||
+ | 1600 by 1200</option> | ||
+ | </select> | ||
+ | </td> | ||
+ | </tr> | ||
+ | <!-- Row 3 --> | ||
+ | <tr> | ||
+ | <!-- Column 3 --> | ||
+ | <td> | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td align="bottom"> | ||
+ | <input | ||
+ | id="connectbutton" | ||
+ | class="button" | ||
+ | disabled onclick="BtnConnect" | ||
+ | value="Connect" | ||
+ | type="submit" | ||
+ | name="ButtonLogin"> | ||
+ | </td> | ||
+ | </tr> | ||
+ | <!-- Row 4 --> | ||
+ | <tr> | ||
+ | <!-- Column 3 --> | ||
+ | <td height="215"> | ||
+ | | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td> | ||
+ | | ||
+ | </td> | ||
+ | </tr> | ||
+ | </tbody> | ||
+ | </table> | ||
+ | </div> | ||
+ | <!-- ================================= LOGIN FORM ================= | ||
+ | --> | ||
+ | <!-- ================================= CONNECT ==================== | ||
+ | --> | ||
+ | <div style="display: none" id="connectArea"> | ||
+ | <center> | ||
+ | <table> | ||
+ | <tbody> | ||
+ | <tr> | ||
+ | <td> | ||
+ | <object | ||
+ | id="MsRdpClient" | ||
+ | language="vbscript" | ||
+ | onreadystatechange="OnControlLoad" | ||
+ | onerror="OnControlLoadError" | ||
+ | classid="CLSID:4eb89ff4-7f78-4a0f-8b8d-2bf02e94e4b2" | ||
+ | width="800" | ||
+ | height="600"> | ||
+ | </object> | ||
+ | </td> | ||
+ | </tr> | ||
+ | <tr> | ||
+ | <td> | ||
+ | <br> | ||
+ | <font id="srvfontname" color="#000000" size="1" face="Verdana, Arial, Helvetica"> | ||
+ | <div style="display: none" id="connectDisplay"> | ||
+ | <id id="loggedinsrv">Connected to </id> | ||
+ | <i><span id="srvNameField"></span></i> | ||
+ | <br> | ||
+ | </div> | ||
+ | </font> | ||
+ | </td> | ||
+ | </tr> | ||
+ | <script language="VBScript"> | ||
+ | <!-- | ||
+ | sub ReturnToConnectPage() | ||
+ | location.reload | ||
+ | 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 = MsRdpClient.GetErrorDescription(disconnectCode, extendedDiscReason) | ||
+ | if not errMsgText = "" then | ||
+ | msgbox errMsgText,0,L_RemoteDesktopCaption_ErrorMessage | ||
+ | end if | ||
+ | |||
+ | ReturnToConnectPage | ||
+ | |||
+ | end sub | ||
+ | --> | ||
+ | </script> | ||
+ | </tbody> | ||
+ | </table> | ||
+ | </center> | ||
+ | </div> | ||
+ | </body> | ||
+ | </html> |