<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Expires = 0%>
Reboot Confirmation Page
<%
Dim strStatus
Dim strHostName
Dim objSaHelper
Dim bDuplicate
Dim strContinue
Dim objLocMgr
Dim varReplacementStrings
Dim strDuplicateErrorText
Dim strUnknownErrorText
Dim strConfirmRebootText
Const DUPLICATE_ERROR_TEXT = "&H40020002"
Const UNKNOWN_ERROR_TEXT = "&H40020004"
Const CONFIRM_REBOOT_TEXT = "&H40020003"
On Error Resume Next
Err.Clear
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
If Err.number = 0 Then
strDuplicateErrorText = objLocMgr.GetString("salocaluimsg.dll",DUPLICATE_ERROR_TEXT,varReplacementStrings)
strUnknownErrorText = objLocMgr.GetString("salocaluimsg.dll",UNKNOWN_ERROR_TEXT,varReplacementStrings)
strConfirmRebootText = objLocMgr.GetString("salocaluimsg.dll",CONFIRM_REBOOT_TEXT,varReplacementStrings)
Set objLocMgr = Nothing
End If
If strDuplicateErrorText = "" Then
strDuplicateErrorText = "Host name entered is duplicate with another machine."
End If
If strUnknownErrorText = "" Then
strUnknownErrorText = "Encountered problem in setting host name. The change has been canceled."
End If
If strConfirmRebootText = "" Then
strConfirmRebootText = "Changing host name requires reboot. Do you want to continue?"
End If
Err.Clear
strHostName = Request.QueryString("HostName")
If strHostName <> "" Then
Session("Hostname_Hostname") = strHostName
End If
Set objSaHelper = Server.CreateObject("ServerAppliance.SAHelper")
bDuplicate = objSaHelper.IsDuplicateMachineName(strHostName)
If bDuplicate = true Then
strStatus = strDuplicateErrorText
Else
strStatus = strConfirmRebootText
strContinue = "Continue"
End If
Set objSaHelper = Nothing
%>
<%=strStatus%>