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.
238 lines
6.3 KiB
238 lines
6.3 KiB
<%@ Language=VBScript %>
|
|
<% '==================================================
|
|
' Microsoft Server Appliance
|
|
'
|
|
' About Page
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'================================================== %>
|
|
|
|
<% Option Explicit %>
|
|
<!-- #include file="inc_framework.asp" -->
|
|
<%
|
|
Const ABOUT_BOX_CONTAINER = "AboutBox"
|
|
|
|
'-----------------------------------------------------
|
|
'START of localization content
|
|
Dim L_PAGETITLE_TEXT
|
|
Dim L_ABOUTLBL_TEXT
|
|
Dim L_MIC_WINDOWS_TEXT
|
|
Dim L_VERSION_TEXT
|
|
Dim L_COPYRIGHT_TEXT
|
|
Dim L_WIN2K_COPYRIGHT
|
|
Dim L_PRODUCTID_TEXT
|
|
Dim L_WARNING_TEXT
|
|
Dim L_OS_BUILD_NUMBER
|
|
|
|
Dim m_strResourceDLL
|
|
Dim m_strAboutResourceDLL
|
|
|
|
m_strResourceDLL = "sakitmsg.dll"
|
|
|
|
|
|
L_PAGETITLE_TEXT = GetLocString(m_strResourceDLL, "&H40010005", "")
|
|
L_ABOUTLBL_TEXT = GetLocString(m_strResourceDLL, "&H40010006", "")
|
|
L_MIC_WINDOWS_TEXT = GetLocString(m_strResourceDLL, "&H40010007", "")
|
|
L_COPYRIGHT_TEXT = GetLocString(m_strResourceDLL, "&H40010009", "")
|
|
L_PRODUCTID_TEXT = GetLocString(m_strResourceDLL, "&H4001000A", "")
|
|
L_WARNING_TEXT = GetLocString(m_strResourceDLL, "&H4001000B", "")
|
|
L_OS_BUILD_NUMBER = GetLocString(m_strResourceDLL, "&H40010038", "")
|
|
L_WIN2K_COPYRIGHT = GetLocString(m_strResourceDLL, "&H400107D0", "")
|
|
|
|
|
|
'End of localization content
|
|
'-----------------------------------------------------
|
|
|
|
ServeAbout()
|
|
|
|
|
|
Function ServeAbout()
|
|
Dim objAM
|
|
Dim objOS
|
|
Dim objHelper
|
|
Dim obj
|
|
Dim strOSName
|
|
Dim strOSBuildNumber
|
|
Dim strBuildNum
|
|
Dim strPID
|
|
Dim iSP
|
|
Dim strReturnURL
|
|
Dim aBuildNumber(1)
|
|
Dim repStrings
|
|
|
|
on error resume next
|
|
Err.Clear
|
|
|
|
strReturnURL = Request("ReturnURL")
|
|
Set objAM = GetObject("WINMGMTS:" & SA_GetWMIConnectionAttributes() &"!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Manager=@" )
|
|
If ( Err.Number <> 0 ) Then
|
|
Call SA_TraceOut(SA_GetScriptFileName(), "Get Microsoft_SA_Manager failed: " + CStr(Hex(Err.Number)) + " " + Err.Description)
|
|
Exit Function
|
|
End If
|
|
|
|
set objOS = GetObject("WINMGMTS:" & SA_GetWMIConnectionAttributes() &"!\\" & GetServerName & "\root\cimv2:Win32_OperatingSystem").Instances_
|
|
If ( Err.Number <> 0 ) Then
|
|
Call SA_TraceOut(SA_GetScriptFileName(), "Get Win32_OperatingSystem failed: " + CStr(Hex(Err.Number)) + " " + Err.Description)
|
|
Exit Function
|
|
End If
|
|
|
|
for each obj in objOS
|
|
strOSName = obj.Caption
|
|
strOSBuildNumber = obj.BuildNumber
|
|
iSP = obj.ServicePackMajorVersion
|
|
exit for
|
|
next
|
|
|
|
Dim strWinOS
|
|
strWinOS = GetLocString("sacoremsg.dll", "40200BC6", "")
|
|
|
|
if strOSName = strWinOS then
|
|
if iSP = 1 then
|
|
Err.Clear
|
|
set objHelper = Server.CreateObject("ServerAppliance.SAHelper")
|
|
if Err.Number = 0 then
|
|
if objHelper.IsWindowsPowered() = true then
|
|
strOSName = GetLocString("sacoremsg.dll", "40200BC7", "")
|
|
end if
|
|
set objHelper = Null
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
|
|
aBuildNumber(0) = objAM.CurrentBuildNumber
|
|
strPID = objAM.ProductId
|
|
Set objAM = Nothing
|
|
|
|
repStrings = aBuildNumber
|
|
L_VERSION_TEXT = GetLocString(m_strResourceDLL, "&H40010008", repStrings)
|
|
|
|
|
|
%>
|
|
<html>
|
|
<!-- Copyright (c) Microsoft Corporation. All rights reserved.-->
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
|
|
<script language=JavaScript src="<%=m_VirtualRoot%>sh_page.js"></script>
|
|
<%
|
|
Call SA_EmitAdditionalStyleSheetReferences("")
|
|
%>
|
|
<title><% = L_PAGETITLE_TEXT %></title>
|
|
</head>
|
|
<BODY onDragDrop="return false;" xoncontextmenu="return false;" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" class="AREAPAGEBODY">
|
|
<br><div align=center><IMG src="<%=m_VirtualRoot%>images/aboutbox_logo.gif" border=0></div>
|
|
<div class=PageBodyIndent>
|
|
<% Call ServeStandardHeaderBar(L_ABOUTLBL_TEXT,"") %>
|
|
<table class="AreaText" cellpadding=10 border=0>
|
|
|
|
|
|
<tr>
|
|
<td>
|
|
<%=strOSName%> <%if iSP<>0 then response.write "SP " & iSP end if %> (<%=L_OS_BUILD_NUMBER%> <%=strOSBuildNumber%>)<BR>
|
|
<%=L_PRODUCTID_TEXT%> <% =strPID %><br>
|
|
<%=L_WIN2K_COPYRIGHT%><br><br>
|
|
<%=L_WARNING_TEXT%><br><br>
|
|
</td>
|
|
</tr>
|
|
|
|
<% ServeComponentList() %>
|
|
</table>
|
|
<br>
|
|
<DIV ID="PropertyPageButtons" class="ButtonBar" align="left">
|
|
<%
|
|
Call SA_ServeOnClickButton(L_FOKBUTTON_TEXT, "images/butGreenArrow.gif", "JavaScript:window.close();", 50,28, SA_DEFAULT)
|
|
%>
|
|
</div>
|
|
|
|
</div>
|
|
<br>
|
|
|
|
</BODY>
|
|
</html>
|
|
|
|
<%
|
|
End Function
|
|
|
|
|
|
|
|
Function ServeComponentList()
|
|
Dim objElements
|
|
Dim objElement
|
|
|
|
Dim sCaptionID
|
|
Dim sCaption
|
|
|
|
Dim sVersionID
|
|
Dim sVersion
|
|
|
|
Dim sCopyrightID
|
|
Dim sCopyright
|
|
|
|
Dim sResourceDLL
|
|
|
|
on error resume next
|
|
Err.Clear
|
|
|
|
Set objElements = GetElements(ABOUT_BOX_CONTAINER)
|
|
Response.Flush
|
|
|
|
For each objElement in objElements
|
|
|
|
If objElement.GetProperty("IsEmbedded") Then
|
|
Response.Write("<tr><td>"+vbCrLf)
|
|
Dim sURL
|
|
|
|
sURL = Trim(objElement.GetProperty("URL"))
|
|
If ( Err.Number <> 0 ) Then
|
|
Response.Clear()
|
|
Elseif ( Len(sURL) <= 0 ) Then
|
|
Response.Clear()
|
|
Else
|
|
Server.Execute(sURL)
|
|
Response.Write("</td></tr>"+vbCrLf)
|
|
Response.Flush()
|
|
End If
|
|
|
|
Else
|
|
|
|
Response.Write("<tr><td>"+vbCrLf)
|
|
|
|
'
|
|
' Get Element RID's for Caption, Copyright, and Version
|
|
'
|
|
sCaptionID = objElement.GetProperty("CaptionRID")
|
|
sVersionID = objElement.GetProperty("VersionRID")
|
|
sCopyrightID = objElement.GetProperty("CopyrightRID")
|
|
sResourceDLL = objElement.GetProperty("Source")
|
|
|
|
|
|
If ( Len(Trim(sCaptionID)) > 0 ) Then
|
|
sCaption = GetLocString(sResourceDLL, sCaptionID, "")
|
|
Response.Write(sCaption + "<br>" + vbCrLf)
|
|
End If
|
|
|
|
If ( Len(Trim(sVersionID)) > 0 ) Then
|
|
sVersion = GetLocString(sResourceDLL, sVersionID, "")
|
|
Response.Write(sVersion + "<br>" + vbCrLf)
|
|
End If
|
|
|
|
If ( Len(Trim(sCopyrightID)) > 0 ) Then
|
|
sCopyright = GetLocString(sResourceDLL, sCopyrightID, "")
|
|
Response.Write(sCopyright + "<br>" + vbCrLf)
|
|
End If
|
|
|
|
Response.Write("</td></tr>"+vbCrLf)
|
|
Response.Flush()
|
|
|
|
End If
|
|
|
|
Response.Flush
|
|
|
|
|
|
Next
|
|
|
|
Set objElements = nothing
|
|
|
|
End Function
|
|
|
|
%>
|