80 lines
2.7 KiB
Plaintext
80 lines
2.7 KiB
Plaintext
<html>
|
|
<head>
|
|
<title> Terminal Services Connection to <%Response.Write Request.QueryString("Server")%></title>
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<script language="vbscript" >
|
|
<!--
|
|
const FullScreenWarnTxt1 = "Your current security settings do not allow automatically switching to fullscreen mode."
|
|
const FullScreenWarnTxt2 = "You can use ctrl-alt-pause to toggle your terminal services session to fullscreen mode"
|
|
const FullScreenTitleTxt = "Terminal Services Connection "
|
|
Const ErrMsgText = "Error connecting to terminal server: "
|
|
|
|
sub window_onLoad()
|
|
If not "<%Response.Write Request.QueryString("Server")%>" = "" then
|
|
srvName = "<%Response.Write Request.QueryString("Server")%>"
|
|
else
|
|
srvName = Document.location.hostname
|
|
end if
|
|
MsTscAx.Server = srvName
|
|
MsTscAx.AdvancedSettings.ProxyServer = "<%Response.Write Request.QueryString("ProxyServer")%>"
|
|
MsTscAx.AdvancedSettings.ProxyUseHttps = true
|
|
|
|
Document.all.srvNameField.innerHtml = srvName
|
|
MsTscAx.Domain = "<%Response.Write Request.QueryString("Domain")%>"
|
|
MsTscAx.UserName = "<%Response.Write Request.QueryString("UserName")%>"
|
|
if "<% Response.Write Request.QueryString("FS") %>" = "1" then
|
|
if MsTscAx.SecuredSettingsEnabled then
|
|
MsTscAx.SecuredSettings.FullScreen = "<% Response.Write Request.QueryString("FS") %>" = "1"
|
|
else
|
|
msgbox (FullScreenWarnTxt1 & vbCrLf & FullScreenWarnTxt2 )
|
|
end if
|
|
end if
|
|
|
|
// MsTscAx.FullScreenTitle = FullScreenTitleTxt & "(" & "<%Response.Write Request.QueryString("Server")%>" & ")"
|
|
MsTscAx.Connect()
|
|
end sub
|
|
-->
|
|
</script>
|
|
<center>
|
|
<table>
|
|
<tr>
|
|
<OBJECT language="vbscript" ID="MsTscAx"
|
|
CLASSID="CLSID:a41a4187-5a86-4e26-b40a-856f9035d9cb"
|
|
CODEBASE="mstscax.cab#version=5,0,2221,1"
|
|
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" face="Verdana, Arial, Helvetica">
|
|
You are logged in to <i><span id="srvNameField"></span></i></font><br>
|
|
</tr>
|
|
|
|
<script language="VBScript">
|
|
<!--
|
|
sub MsTscAx_OnDisconnected(disconnectCode)
|
|
if not disconnectCode = 2 then
|
|
msgbox ErrMsgText & MsTscAx.Server
|
|
end if
|
|
'redirect back to login page
|
|
Window.Navigate("/")
|
|
end sub
|
|
-->
|
|
</script>
|
|
</table>
|
|
</center>
|
|
</body>
|
|
</html>
|