<%
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_PAGETITLE_TEXT
Dim L_SECURITYLBL_TEXT
dim L_SECURITYENABLE_TEXT
Dim L_INSTALLED_FIRSTTIME_TEXT
Dim L_IMPORTANT_TEXT
Dim L_SECURITY_HELP_TEXT
Dim L_ENABLE_SECURITY
L_PAGETITLE_TEXT = objLocMgr.GetString(strSourceName, "&H40010012",varReplacementStrings)
L_SECURITYLBL_TEXT = objLocMgr.GetString(strSourceName, "&H40010013",varReplacementStrings)
L_SECURITYENABLE_TEXT = objLocMgr.GetString(strSourceName, "&H40010014",varReplacementStrings)
L_INSTALLED_FIRSTTIME_TEXT = objLocMgr.GetString(strSourceName, "&H40010015",varReplacementStrings)
L_IMPORTANT_TEXT = objLocMgr.GetString(strSourceName, "&H40010016",varReplacementStrings)
L_SECURITY_HELP_TEXT = objLocMgr.GetString(strSourceName, "&H40010017",varReplacementStrings)
L_ENABLE_SECURITY = objLocMgr.GetString(strSourceName, "&H40010018",varReplacementStrings)
'End of localization content
'-----------------------------------------------------
%>
<%=L_PAGETITLE_TEXT%>
<%
ServePageWaterMarkNavIE
ServeTabBar
ServeMoreTasks
call ServePageWaterMarkEndNavIE("images/security_water.gif", "images/oem_logo.gif", false)
%>
<%
Function ServeMoreTasks
Dim arrTaskTitle()
Dim arrTaskURL()
Dim arrTaskIconPath()
Dim arrTaskHelpText()
Dim i
Dim objElements
Dim objItem
Dim objService
Dim objInet
Dim L_SECURITYLBL_TEXT
Dim L_SECURITYENABLE_TEXT
Dim L_NOTASKS_TEXT
Dim blnTest
on Error resume next
Set objService = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Service.ServiceName=""User Management""")
If Not objService.IsEnabled Then
Response.Write " "
ServeStandardLabelBar(L_SECURITYLBL_TEXT)
%>