<%@ Language=VBScript %> <% '================================================== ' Microsoft Server Appliance ' ' About Page ' ' Copyright (c) Microsoft Corporation. All rights reserved. '================================================== %> <% Option Explicit %> <% 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) %> <% Call SA_EmitAdditionalStyleSheetReferences("") %> <% = L_PAGETITLE_TEXT %>
<% Call ServeStandardHeaderBar(L_ABOUTLBL_TEXT,"") %> <% ServeComponentList() %>
<%=strOSName%> <%if iSP<>0 then response.write "SP " & iSP end if %> (<%=L_OS_BUILD_NUMBER%> <%=strOSBuildNumber%>)
<%=L_PRODUCTID_TEXT%> <% =strPID %>
<%=L_WIN2K_COPYRIGHT%>

<%=L_WARNING_TEXT%>

<% Call SA_ServeOnClickButton(L_FOKBUTTON_TEXT, "images/butGreenArrow.gif", "JavaScript:window.close();", 50,28, SA_DEFAULT) %>
  

<% 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(""+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(""+vbCrLf) Response.Flush() End If Else Response.Write(""+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 + "
" + vbCrLf) End If If ( Len(Trim(sVersionID)) > 0 ) Then sVersion = GetLocString(sResourceDLL, sVersionID, "") Response.Write(sVersion + "
" + vbCrLf) End If If ( Len(Trim(sCopyrightID)) > 0 ) Then sCopyright = GetLocString(sResourceDLL, sCopyrightID, "") Response.Write(sCopyright + "
" + vbCrLf) End If Response.Write(""+vbCrLf) Response.Flush() End If Response.Flush Next Set objElements = nothing End Function %>