You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
249 lines
5.1 KiB
249 lines
5.1 KiB
<%@ Language=VBScript %>
|
|
<% Option Explicit %>
|
|
|
|
<%
|
|
'==================================================
|
|
' Terminal Services Web Client
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'
|
|
'==================================================
|
|
%>
|
|
|
|
<!-- #include virtual="/admin/sh_page.asp" -->
|
|
<!-- #include virtual="/admin/NASServeStatusBar.asp" -->
|
|
<!-- #include virtual="/admin/tabs.asp" -->
|
|
|
|
<%
|
|
|
|
Function GetPathToHost()
|
|
|
|
GetPathToHost = m_VirtualRoot
|
|
|
|
End Function
|
|
|
|
Function GetUserName()
|
|
Dim domainAndUser
|
|
Dim loginUser
|
|
Dim user
|
|
|
|
loginUser = Request.ServerVariables("LOGON_USER")
|
|
domainAndUser = Split(loginUser, "\")
|
|
If IsArray(domainAndUser) Then
|
|
GetUserName = domainAndUser(UBound(domainAndUser))
|
|
Else
|
|
GetUserName = loginUser
|
|
End If
|
|
End Function
|
|
|
|
%>
|
|
|
|
|
|
<%
|
|
Dim WinNTSysInfo 'Getting object
|
|
Dim strComputerName(1) 'Computer name
|
|
|
|
DIM L_PAGEDESCRIPTION_TEXT
|
|
L_PAGEDESCRIPTION_TEXT = GetLocString("diskmsg.dll", "40420005", "")
|
|
Dim L_HELP_TEXT
|
|
L_HELP_TEXT = GetLocString("diskmsg.dll", "40420006", "")
|
|
|
|
|
|
DIM L_PAGETITLE_TEXT
|
|
DIM L_WINCLIENT_ERROR
|
|
|
|
L_WINCLIENT_ERROR = GetLocString("diskmsg.dll", "C0420001", "")
|
|
|
|
Set WinNTSysInfo = CreateObject("WinNTSystemInfo")
|
|
strComputerName(0) = WinNTSysInfo.ComputerName
|
|
L_PAGETITLE_TEXT = GetLocString("diskmsg.dll", "40420000", strComputerName )
|
|
|
|
DIM L_ERRMSG_TITLE
|
|
DIM L_ERRMSG_PROMPT
|
|
|
|
L_ERRMSG_TITLE = GetLocString("tserver.dll", "40420007", "")
|
|
L_ERRMSG_PROMPT = GetLocString("tserver.dll", "40420006", strComputerName)
|
|
|
|
ServePage
|
|
|
|
%>
|
|
|
|
<%
|
|
Function ServeContent()
|
|
%>
|
|
<script language="JavaScript">
|
|
function ValidatePage()
|
|
{
|
|
return true;
|
|
}
|
|
|
|
function Init()
|
|
{
|
|
}
|
|
|
|
function SetData()
|
|
{
|
|
}
|
|
|
|
</script>
|
|
|
|
<%
|
|
If ( IsIE() AND InStr( Request.ServerVariables("HTTP_USER_AGENT"), "Windows")) Then
|
|
%>
|
|
<script language="VBScript">
|
|
|
|
sub window_onLoad()
|
|
on error resume next
|
|
Err.Clear
|
|
|
|
|
|
If not "<%Response.Write(GetServerName())%>" = "" Then
|
|
srvName = "<%Response.Write(GetServerName()) %>"
|
|
Else
|
|
srvName = Document.location.hostname
|
|
End If
|
|
|
|
Dim objMsTsc
|
|
objMsTsc = Document.all("MsTsc")
|
|
If ( Err.Number <> 0 ) Then
|
|
|
|
Else
|
|
Document.all.MsTsc.Server = srvName
|
|
Document.all.MsTsc.UserName = "<%=GetUserName()%>"
|
|
|
|
If Document.all.MsTsc.SecuredSettingsEnabled Then
|
|
Document.all.MsTsc.SecuredSettings.StartProgram = "mmc diskmgmt.msc"
|
|
Document.all.MsTsc.SecuredSettings.WorkDir = "%windir%\system32"
|
|
Else
|
|
msgbox "Cannot access this program in the current browser zone"
|
|
End If
|
|
|
|
Document.all.MsTsc.Connect()
|
|
End If
|
|
|
|
end sub
|
|
|
|
sub MsTsc_OnDisconnected(disconnectCode)
|
|
if not disconnectCode = 2 then
|
|
msgbox "<%Response.Write(L_ERRMSG_PROMPT) %>", , "<%Response.Write(L_ERRMSG_TITLE) %>"
|
|
end if
|
|
Window.History.back()
|
|
end sub
|
|
|
|
</script>
|
|
<%
|
|
End If
|
|
%>
|
|
|
|
|
|
|
|
<center>
|
|
<table>
|
|
|
|
<%If CONST_OSNAME_XPE = GetServerOSName() Then%>
|
|
<tr width='100%' align=left>
|
|
<td><small><%=L_HELP_TEXT%></small></td>
|
|
</tr>
|
|
|
|
<%Else%>
|
|
|
|
<tr width='100%' align=left>
|
|
<td><small><%=L_PAGEDESCRIPTION_TEXT%></small></td>
|
|
</tr>
|
|
|
|
<%End If%>
|
|
|
|
</table>
|
|
<table>
|
|
<tr>
|
|
<td align=center>
|
|
<%
|
|
If ( IsIE() AND InStr( Request.ServerVariables("HTTP_USER_AGENT"), "Windows")) Then
|
|
%>
|
|
<OBJECT language="vbscript" ID="MsTsc"
|
|
CLASSID="CLSID:9059f30f-4eb1-4bd2-9fdc-36f43a218f4a"
|
|
codebase="<%=SAI_GetTSClientCodeBase()%>"
|
|
|
|
<%
|
|
Dim resWidth
|
|
resWidth = Request.QueryString("rW")
|
|
If resWidth < 200 or resWidth > 1600 Then
|
|
resWidth = 800
|
|
End If
|
|
Response.Write("WIDTH="+CStr(resWidth)+" ")
|
|
|
|
|
|
Dim resHeight
|
|
resHeight = Request.QueryString("rH")
|
|
If resHeight < 200 or resHeight > 1200 Then
|
|
resHeight = 600
|
|
End If
|
|
Response.Write("HEIGHT="+CStr(resHeight) + " " )
|
|
%>
|
|
|
|
</OBJECT>
|
|
<%
|
|
End If
|
|
%>
|
|
</td>
|
|
</tr>
|
|
|
|
</table>
|
|
</center>
|
|
<%
|
|
End Function
|
|
%>
|
|
|
|
<%
|
|
Sub ServePage
|
|
%>
|
|
<HTML>
|
|
|
|
<head>
|
|
|
|
<meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
|
|
<TITLE><%=L_PAGETITLE_TEXT%></TITLE>
|
|
|
|
<LINK REL="stylesheet" TYPE="text/css" HREF="<%=m_VirtualRoot%>style/mssastyles.css">
|
|
<SCRIPT LANGUAGE="JavaScript" SRC="<%=m_VirtualRoot%>sh_page.js"></SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<BODY marginWidth ="0" marginHeight="0" onDragDrop="return false;" topmargin="0" LEFTMARGIN="0" oncontextmenu="//return false;">
|
|
<%
|
|
NASServeStatusBar
|
|
ServeTabBar
|
|
|
|
Dim bIsSupported
|
|
bIsSupported = false
|
|
|
|
'
|
|
' The Terminal Server ActiveX control is only supported on Windows Clients
|
|
' running Internet Explorer.
|
|
'
|
|
|
|
If IsIE() Then
|
|
If InStr( Request.ServerVariables("HTTP_USER_AGENT"), "Windows") Then
|
|
bIsSupported = true
|
|
End If
|
|
End If
|
|
|
|
If ( bIsSupported ) Then
|
|
ServeContent
|
|
Else
|
|
Response.Write("<br><blockquote>")
|
|
Response.Write("<H2>"+Server.HTMLEncode(L_WINCLIENT_ERROR)+"</H2>")
|
|
Response.Write("</blockquote>")
|
|
End If
|
|
|
|
|
|
|
|
%>
|
|
</BODY>
|
|
</HTML>
|
|
<%
|
|
End Sub
|
|
%>
|
|
|
|
|
|
|