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.
105 lines
3.4 KiB
105 lines
3.4 KiB
|
|
<!-- #include file="sh_page.asp" -->
|
|
<!-- #include file="tabbar.asp" -->
|
|
|
|
<%
|
|
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
|
|
'-----------------------------------------------------
|
|
%>
|
|
|
|
<HTML>
|
|
|
|
<HEAD>
|
|
<TITLE><%=L_PAGETITLE_TEXT%></TITLE>
|
|
|
|
<LINK REL="stylesheet" TYPE="text/css" HREF="sh_page.css">
|
|
<SCRIPT LANGUAGE="JavaScript" SRC="sh_page.js"></SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<BODY onDragDrop="return false;" topmargin="0" LEFTMARGIN="0">
|
|
<%
|
|
ServePageWaterMarkNavIE
|
|
ServeTabBar
|
|
ServeMoreTasks
|
|
call ServePageWaterMarkEndNavIE("images/security_water.gif", "images/oem_logo.gif", false)
|
|
%>
|
|
|
|
</BODY>
|
|
|
|
</HTML>
|
|
|
|
<%
|
|
|
|
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 "<BR>"
|
|
ServeStandardLabelBar(L_SECURITYLBL_TEXT)
|
|
%>
|
|
|
|
<table border="0" width="386" cellspacing="0">
|
|
<tr>
|
|
<td width="30" height="20" colspan=2 valign="middle"> </td>
|
|
<td width="339" height="20">
|
|
<P ID=PID_1> <%=L_INSTALLED_FIRSTTIME_TEXT%></P>
|
|
|
|
<P ID=PID_4><strong><%=L_IMPORTANT_TEXT%></strong><BR><%=L_SECURITY_HELP_TEXT%></P>
|
|
<strong><P id=P3_ID01> <a href="" title="<% =L_SECURITYENABLE_TEXT %>" onMouseOver="window.status='<% =L_SECURITYENABLE_TEXT %>';return true;"
|
|
onclick="this.href=OpenPage('usermgmt/user_enable.asp'); return true;"><ID ID=PID_3><%=L_ENABLE_SECURITY%></ID></a></strong></td>
|
|
</tr>
|
|
</table>
|
|
<% Else
|
|
Response.Write "<BR>"
|
|
ServeStandardLabelBar(L_SECURITYLBL_TEXT)
|
|
ServeElementBlock "SECURITY", L_NOTASKS_TEXT, True, True, False
|
|
End If
|
|
Set objService = Nothing
|
|
Response.Write "</body></html>"
|
|
End Function
|
|
%>
|