<%@ Language=VBScript %> <% '================================================== ' Microsoft Server Appliance ' ' Alert Viewer ' ' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved. '================================================== %> <% Option Explicit %> <% Dim strCookie Dim rc Dim mstrMethod Dim mstrReturnURL On Error Resume Next Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager") strSourceName = "sakitmsg.dll" if Err.number <> 0 then Response.Write "Error in localizing the web content " Response.End end if '----------------------------------------------------- 'START of localization content Dim L_ALERTLBL_TEXT Dim L_CLEARALERT_TEXT Dim L_ALERTVWRTITLE_TEXT Dim L_CLEARDESC_TEXT L_ALERTLBL_TEXT = objLocMgr.GetString(strSourceName, "&H4001002C",varReplacementStrings) L_CLEARALERT_TEXT = objLocMgr.GetString(strSourceName, "&H4001002D",varReplacementStrings) L_ALERTVWRTITLE_TEXT = objLocMgr.GetString(strSourceName, "&H4001002E",varReplacementStrings) L_CLEARDESC_TEXT = objLocMgr.GetString(strSourceName, "&H4001002F",varReplacementStrings) 'End of localization content '----------------------------------------------------- mstrMethod = Request.Form("Method") 'framework variable mstrReturnURL = Request("ReturnURL") 'framework variable, used in Redirect() strCookie = Request("Cookie") If strCookie = "" Then ServeClose Select Case mstrMethod Case "CLEAR" rc = ClearAlert(strCookie) response.Redirect mstrReturnURL Case "CLOSE" response.Redirect mstrReturnURL Case Else ServePage(strCookie) End Select '---------------------------------------------------------------------------- ' ' Function : ServePage ' ' Synopsis : Generate the alert page ' ' Arguments: Cookie(IN) - alert cookie to use in getting alert information ' ' Returns : None ' '---------------------------------------------------------------------------- Sub ServePage(Cookie) Dim objAlert Dim objElementCol Dim objElement Dim objLocMgr Dim strAlertSrc Dim intAlertID Dim intAlertType Dim intCaptionID Dim intDescriptionID Dim strCaption Dim strDescription Dim strElementID Dim varReplacementStrings Dim varReplacementStringsNone Dim objElements Dim objItem Dim arrTitle Dim arrURL Dim arrHelpText Dim blnEnabled Dim i On Error Resume Next Set objAlert = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Alert.Cookie=" & Cookie ) strAlertSrc = objAlert.AlertLog intAlertID = objAlert.AlertID intAlertType = objAlert.AlertType strElementID = strAlertSrc & Hex(intAlertID) Set objElementCol = GetElements("AlertDefinitions") Set objElement = objElementCol.Item(strElementID) If Err.Number <> 0 Then response.Redirect mstrReturnURL End If intCaptionID = "&H" & objElement.GetProperty("CaptionRID") intDescriptionID = "&H" & objElement.GetProperty("DescriptionRID") varReplacementStrings = objAlert.ReplacementStrings Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager") strCaption = objLocMgr.GetString(strAlertSrc, intCaptionID, varReplacementStrings) strDescription = objLocMgr.GetString(strAlertSrc, intDescriptionID, varReplacementStrings) Set objLocMgr = Nothing Set objAlert = Nothing Set objElementCol = Nothing Set objElement = Nothing %> <%=L_ALERTVWRTITLE_TEXT%> <%ServePageWaterMarkNavIE%> <%ServeTabBar %> <%ServHelpMenu%>
<% ServeAreaLabelBar(L_ALERTLBL_TEXT) %>
      

<% =strCaption %>

<% =strDescription %>

 <% ' User Actions - keys off of AlertSource + AlertID (hex) intAlertID = Hex(intAlertID) Set objElements = GetElements(strAlertSrc & intAlertID) Response.Write "" Response.Flush Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager") For Each objItem in objElements blnEnabled = true If Err <> 0 Then blnEnabled = True Err.Clear End If If blnEnabled Then %> <% Response.Write "" End If Next Response.Write "" Set objElements = Nothing Set objItem = Nothing Response.Write "
 " intCaptionID = "&H" & objItem.GetProperty("CaptionRID") intDescriptionID = "&H" & objItem.GetProperty("DescriptionRID") strSourceName = "" strSourceName = objItem.GetProperty ("Source") If strSourceName = "" Then strSourceName = "svrapp" End If arrTitle = objLocMgr.GetString(strSourceName, intCaptionID, varReplacementStringsNone) arrHelpText = objLocMgr.GetString(strSourceName, intDescriptionID, varReplacementStringsNone) arrURL = objItem.GetProperty("URL") arrURL = m_VirtualRoot & arrURL %> <% Response.Write arrTitle Response.Write "" Response.Write "
" Response.Flush %>
 
     <% If intAlertType <> 1 Then Response.Write "

" & L_CLEARDESC_TEXT & "

" %>     <% =L_CLEARALERT_TEXT %> <% End If %>
<% Select Case intAlertType Case 0 call ServePageWaterMarkEndNavIE(m_VirtualRoot & "util/images/alert_water.gif", m_VirtualRoot & "images/oem_logo.gif", true) Case 1 call ServePageWaterMarkEndNavIE(m_VirtualRoot & "util/images/critical_water.gif", m_VirtualRoot & "images/oem_logo.gif", true) Case 2 call ServePageWaterMarkEndNavIE(m_VirtualRoot & "util/images/info_water.gif", m_VirtualRoot & "images/oem_logo.gif", true) Case Else call ServePageWaterMarkEndNavIE(m_VirtualRoot & "util/images/alert_water.gif",m_VirtualRoot & "images/oem_logo.gif", true) End Select %>
<% End Sub %>