<%@ Language=VBScript EnableSessionState=False Option Explicit %> <% 'Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved. Dim strTask Dim rc Dim objContext Dim objTaskCol Dim objTask Dim objServiceCol Dim objService 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_APPLIANCEMGRTEST_TEXT DIM L_APPLIANCEMGR_TEXT DIM L_TASKS_TEXT DIM L_SERVICES_TEXT DIM L_SERVER_TEXT DIM L_TASKHRESULTS_TEXT L_APPLIANCEMGRTEST_TEXT = objLocMgr.GetString(strSourceName, "&H4001004D",varReplacementStrings) L_APPLIANCEMGR_TEXT = objLocMgr.GetString(strSourceName, "&H4001004E",varReplacementStrings) L_TASKS_TEXT = objLocMgr.GetString(strSourceName, "&H4001004F",varReplacementStrings) L_SERVICES_TEXT = objLocMgr.GetString(strSourceName, "&H40010050",varReplacementStrings) L_SERVER_TEXT = objLocMgr.GetString(strSourceName, "&H40010051",varReplacementStrings) L_TASKHRESULTS_TEXT = objLocMgr.GetString(strSourceName, "&H40010052",varReplacementStrings) 'End of localization content '----------------------------------------------------- On Error Resume Next strTask = Request.Form("TaskName") %>

<% =L_APPLIANCEMGR_TEXT %>

<% =L_SERVER_TEXT %><% =GetServerName %>

---

<% =L_TASKS_TEXT %>
<% Set objTaskCol = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Task").Instances_ For each objTask in objTaskCol response.write objTask.TaskName & "
" Next Set objTaskCol = Nothing Set objTask = Nothing Response.Write "

---

" & L_SERVICES_TEXT & "
" Set objServiceCol = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Service").Instances_ For each objService in objServiceCol response.write objService.ServiceName & "
" Next Set objServiceCol = Nothing Set objService = Nothing %>

---

<% If strTask <> "" Then response.write "
" & L_TASKHRESULT_TEXT & ExecuteTask(strTask, objContext) & "
" 'response.write "
" & objContext.GetParameter("TaskName") & "
" End If Set objContext = Nothing %>

<% '========================================= Function GetServerName() On Error Resume Next GetServerName = Request.ServerVariables("SERVER_NAME") End Function ' JUNK 'Set objAM = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Manager=@" ) 'Set objTask = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Task.TaskName=" & Chr(34) & TaskName & Chr(34) ) 'Appsrvcs.ApplianceServices 'Microsoft.ApplianceManager ' 'objTask.Execute() 'response.write "task type: " & typename(objTask) & "
" %>