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.
163 lines
4.6 KiB
163 lines
4.6 KiB
<%@ LANGUAGE="VBSCRIPT"%>
|
|
<%Response.Expires = 0%>
|
|
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HEAD>
|
|
<META HTTP-EQUIV="Content-Type"
|
|
CONTENT="text/html; CHARSET=iso-8859-1">
|
|
<META NAME="GENERATOR"
|
|
CONTENT="Microsoft Frontpage 2.0">
|
|
|
|
<HEAD>
|
|
<TITLE>Set Shutdown Page</TITLE>
|
|
<%
|
|
Err.Clear
|
|
On Error Resume Next
|
|
|
|
Dim objTaskContext
|
|
Dim objAS
|
|
Dim rc
|
|
Dim strStatus
|
|
Dim objLocMgr
|
|
Dim varReplacementStrings
|
|
Dim strShutdownErrorText
|
|
Dim strShuttingDownText
|
|
Const SHUTDOWN_ERROR_TEXT = "&H40020010"
|
|
Const SHUTTINGDOWN_TEXT = "&H40020011"
|
|
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
|
|
If Err.number = 0 Then
|
|
strShutdownErrorText = objLocMgr.GetString("salocaluimsg.dll",SHUTDOWN_ERROR_TEXT,varReplacementStrings)
|
|
strShuttingDownText = objLocMgr.GetString("salocaluimsg.dll",SHUTTINGDOWN_TEXT,varReplacementStrings)
|
|
Set objLocMgr = Nothing
|
|
End If
|
|
|
|
If strShutdownErrorText = "" Then
|
|
strShutdownErrorText = "Encountered problem in shutting down. The change has been canceled."
|
|
End If
|
|
|
|
|
|
Err.Clear
|
|
Const strMethodName = "ShutdownAppliance"
|
|
|
|
|
|
Set objTaskContext = CreateObject("Taskctx.TaskContext")
|
|
If Err.Number <> 0 Then
|
|
strStatus = strShutdownErrorText
|
|
else
|
|
Set objAS = CreateObject("Appsrvcs.ApplianceServices")
|
|
If Err.Number <> 0 Then
|
|
strStatus = strShutdownErrorText
|
|
Set objTaskContext = Nothing
|
|
else
|
|
objTaskContext.SetParameter "Method Name", strMethodName
|
|
objTaskContext.SetParameter "SleepDuration", 1000
|
|
objTaskContext.SetParameter "PowerOff", "1"
|
|
If Err.Number <> 0 Then
|
|
strStatus = strShutdownErrorText
|
|
Set objAS = Nothing
|
|
Set objTaskContext = Nothing
|
|
else
|
|
objAS.Initialize()
|
|
If Err.Number <> 0 Then
|
|
strStatus = strShutdownErrorText
|
|
Set objAS = Nothing
|
|
Set objTaskContext = Nothing
|
|
else
|
|
rc = objAS.ExecuteTaskAsync("ApplianceShutdownTask", objTaskContext)
|
|
If Err.Number <> 0 Then
|
|
strStatus = strShutdownErrorText
|
|
else
|
|
strStatus = "Success"
|
|
End If
|
|
|
|
Set objAS = Nothing
|
|
Set objTaskContext = Nothing
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
%>
|
|
|
|
<SCRIPT LANGUAGE="VBScript">
|
|
<!--
|
|
Option Explicit
|
|
|
|
public iIdleTimeOut
|
|
public bIdle
|
|
|
|
Sub window_onload()
|
|
|
|
Dim objKeypad
|
|
Set objKeypad = CreateObject("Ldm.SAKeypadController")
|
|
|
|
objKeypad.Setkey 0,0,FALSE
|
|
objKeypad.Setkey 1,0,FALSE
|
|
objKeypad.Setkey 2,0,FALSE
|
|
objKeypad.Setkey 3,0,FALSE
|
|
objKeypad.Setkey 4,27,FALSE
|
|
objKeypad.Setkey 5,13,FALSE
|
|
|
|
Set objKeypad = Nothing
|
|
|
|
If "<%=strStatus%>" <> "Success" Then
|
|
stateText.style.display = "none"
|
|
logo.style.display = "none"
|
|
state.style.display = "none"
|
|
errorText.style.display =""
|
|
|
|
iIdleTimeOut = window.SetTimeOut("IdleHandler()",300000)
|
|
End If
|
|
End Sub
|
|
|
|
Sub keydown()
|
|
|
|
If "<%=strStatus%>" <> "Success" Then
|
|
If window.event.keycode = 13 or window.event.keycode = 27 Then
|
|
window.navigate "localui_tasks.asp"
|
|
End If
|
|
|
|
window.clearTimeOut(iIdleTimeOut)
|
|
iIdleTimeOut = window.SetTimeOut("IdleHandler()",300000)
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub IdleHandler()
|
|
|
|
window.navigate "localui_main.asp"
|
|
|
|
End Sub
|
|
|
|
|
|
-->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<body RIGHTMARGIN=0 LEFTMARGIN=0 OnKeyDown="keydown()">
|
|
|
|
<A id="errorText" STYLE="position:absolute; top:0; left:0; font-size:10; font-family=arial; display=none;"
|
|
OnKeyDown="keydown()">
|
|
<%=strStatus%>
|
|
</A>
|
|
|
|
<A id="stateText" STYLE="position:absolute; top:36; left:0; font-size:10; font-family=arial;">
|
|
<%=strShuttingDownText%>
|
|
</A>
|
|
|
|
<IMG id="logo" STYLE="position:absolute; top:0; left=0;" SRC="localui_salogo.bmp"
|
|
BORDER=0>
|
|
|
|
<IMG id="state" STYLE="position:absolute; top:48; left=0;"
|
|
SRC="localui_shutting_down.bmp" BORDER=0>
|
|
|
|
|
|
</body>
|
|
|
|
</html>
|