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.
1038 lines
42 KiB
1038 lines
42 KiB
<% '==================================================
|
|
' Microsoft Server Appliance
|
|
'
|
|
' Serves task wizard/propsheet
|
|
'
|
|
' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.
|
|
'================================================== %>
|
|
|
|
<!-- #include file="sh_page.asp" -->
|
|
|
|
<% ' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.
|
|
|
|
'Task module-level variables
|
|
Dim mstrPageName ' used as page identifier, e.g., "Intro"
|
|
Dim mstrTaskTitle ' e.g., "Add User"
|
|
Dim mstrPageTitle ' e.g., "Username and Password"
|
|
Dim mstrTaskType ' "wizard", "prop"
|
|
Dim mstrPageType ' "intro", "standard", "finish"
|
|
Dim mstrMethod ' "BACK", "NEXT", "FINISH", etc
|
|
Dim mstrReturnURL ' URL to return to after ending task
|
|
Dim mstrFrmwrkFormStrings ' framework form values, list of strings to exclude
|
|
Dim mstrIconPath ' image for upper right header
|
|
Dim mstrPanelPath ' image for left panel of intro and finish pg
|
|
Dim mblnCancelDirect ' browser returns directly to ReturnURL
|
|
Dim mblnFinishDirect ' browser returns directly to ReturnURL
|
|
Dim mintElementIndex ' index of embedded wizard page (0 - n, -1 = no extensions)
|
|
Dim mintElementCount ' number of embedded pages in wizard
|
|
Dim mstrErrMsg ' used by SetErrMsg and GetErrMsg
|
|
Dim mstrAsyncTaskName ' Task EXE name - empty if task is synchronous
|
|
Dim intCaptionIDTask
|
|
|
|
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_BACK_BUTTON
|
|
Dim L_BACKIE_BUTTON
|
|
Dim L_NEXT_BUTTON
|
|
Dim L_NEXTIE_BUTTON
|
|
Dim L_FINISH_BUTTON
|
|
Dim L_OK_BUTTON
|
|
Dim L_CANCEL_BUTTON
|
|
Dim L_BACK_ACCESSKEY
|
|
Dim L_NEXT_ACCESSKEY
|
|
Dim L_FINISH_ACCESSKEY
|
|
|
|
L_BACK_BUTTON = objLocMgr.GetString(strSourceName, "&H4001001C",varReplacementStrings)
|
|
L_BACKIE_BUTTON = objLocMgr.GetString(strSourceName, "&H4001001D",varReplacementStrings)
|
|
L_NEXT_BUTTON = objLocMgr.GetString(strSourceName, "&H4001001E",varReplacementStrings)
|
|
L_NEXTIE_BUTTON = objLocMgr.GetString(strSourceName, "&H4001001F",varReplacementStrings)
|
|
L_FINISH_BUTTON = objLocMgr.GetString(strSourceName, "&H40010020",varReplacementStrings)
|
|
L_OK_BUTTON = objLocMgr.GetString(strSourceName, "&H40010021",varReplacementStrings)
|
|
L_CANCEL_BUTTON = objLocMgr.GetString(strSourceName, "&H40010022",varReplacementStrings)
|
|
L_BACK_ACCESSKEY = objLocMgr.GetString(strSourceName, "&H40010039",varReplacementStrings)
|
|
L_NEXT_ACCESSKEY = objLocMgr.GetString(strSourceName, "&H4001003A",varReplacementStrings)
|
|
L_FINISH_ACCESSKEY = objLocMgr.GetString(strSourceName, "&H4001003B",varReplacementStrings)
|
|
|
|
'End of localization content
|
|
'-----------------------------------------------------
|
|
|
|
|
|
|
|
'Task Constants
|
|
Const PROPERTY_TASK_NICE_NAME = "TaskNiceName"
|
|
Const PROPERTY_TASK_URL = "TaskURL"
|
|
Const WBEM_E_PROVIDER_NOT_CAPABLE = "&H80041024"
|
|
Const WIZARD_TASK = "wizard"
|
|
Const PROPSHEET_TASK = "prop"
|
|
Const BODY_PAGE = "standard"
|
|
Const INTRO_PAGE = "intro"
|
|
Const FINISH_PAGE = "finish"
|
|
Const BACK_METHOD = "BACK"
|
|
Const NEXT_METHOD = "NEXT"
|
|
Const FINISH_METHOD = "FINISH"
|
|
Const CANCEL_METHOD = "CANCEL"
|
|
|
|
|
|
'Get standard task values and initialize
|
|
mstrMethod = Request.Form("Method")
|
|
mstrPageName = Request("PageName")
|
|
mstrReturnURL = Request("ReturnURL")
|
|
|
|
mintElementIndex = -1 ' set later in ServeWizardEmbeds()
|
|
mintElementCount = Request.Form("EmbedPageCount") ' get previous value, if any
|
|
If mintElementCount="" Then
|
|
mintElementCount=0
|
|
End If
|
|
mstrFrmwrkFormStrings = "!method!pagename!pagetype!tasktype!returnurl!embedpageindex!embedpagecount!commonvalues!canceldirect!finishdirect!embedvalues0!embedvalues1!embedvalues2!embedvalues3!embedvalues4!"
|
|
mblnCancelDirect = True
|
|
mblnFinishDirect = False
|
|
|
|
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
|
|
|
|
'Setup task page
|
|
Select Case mstrPageName
|
|
Case "shTaskFooter"
|
|
ServeTaskFooterFrame()
|
|
End Select
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : AsyncTaskBusy
|
|
'
|
|
' Synopsis : Determine if the async task is currently being executed
|
|
'
|
|
' Arguments: TaskName(IN) - async task name
|
|
'
|
|
' Returns : true/false
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function AsyncTaskBusy(TaskName)
|
|
|
|
Dim objTask
|
|
|
|
On Error Resume Next
|
|
Set objTask = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Task.TaskName=" & Chr(34) & TaskName & Chr(34) )
|
|
If Not objTask.IsAvailable Then
|
|
AsyncTaskBusy = True
|
|
Else
|
|
AsyncTaskBusy = False
|
|
End If
|
|
Set objTask = Nothing
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : SetErrMsg
|
|
'
|
|
' Synopsis : Sets framework error message string
|
|
'
|
|
' Arguments: Message(IN) - error message text
|
|
'
|
|
' Returns : Nothing
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Function SetErrMsg(Message)
|
|
|
|
On Error Resume Next
|
|
mstrErrMsg = Message
|
|
|
|
End Function
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : GetErrMsg
|
|
'
|
|
' Synopsis : Gets the current framework error message string
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Function GetErrMsg()
|
|
|
|
On Error Resume Next
|
|
GetErrMsg = mstrErrMsg
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeFormValues
|
|
'
|
|
' Synopsis : Serves service specific form values while navigating wizard
|
|
' pages
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function ServeFormValues()
|
|
Dim objItem
|
|
Dim strNewCommonData
|
|
Dim strOldCommonData
|
|
Dim strOldEmbData()
|
|
Dim strNewEmbData()
|
|
Dim intOldEmbIndex
|
|
Dim intPos1
|
|
Dim intPos2
|
|
Dim strName
|
|
Dim strValue
|
|
Dim strNameD
|
|
Dim strValueD
|
|
Dim arrName()
|
|
Dim arrValue()
|
|
Dim i, j
|
|
Dim rc
|
|
|
|
On Error Resume Next
|
|
strNameD = ";;"
|
|
strValueD = ";"
|
|
ReDim strOldEmbData(mintElementCount)
|
|
ReDim strNewEmbData(mintElementCount)
|
|
' get data from post
|
|
strOldCommonData = Request.Form("CommonValues") ' data from host pages
|
|
For i = 0 To mintElementCount
|
|
strOldEmbData(i) = Request.Form("EmbedValues" & i) ' data from embedded pages
|
|
Next
|
|
intOldEmbIndex = CInt(Request.Form("EmbedPageIndex"))
|
|
For i = 0 To mintElementCount ' get previously saved Embed values
|
|
If i <> intOldEmbIndex Then
|
|
strNewEmbData(i) = strOldEmbData(i)
|
|
End If
|
|
Next
|
|
For Each objItem in Request.Form 'loop through items in posted form
|
|
strName = LCase(objItem)
|
|
strName = Replace(strName, strValueD, "")
|
|
strValue = Trim(Request.Form(objItem))
|
|
strValue = Replace(strValue, strValueD, "")
|
|
If strValue = "" Then strValue = " "
|
|
If InStr(mstrFrmwrkFormStrings, "!" & strName & "!") = 0 Then
|
|
' host page data
|
|
If strOldCommonData = "" Then
|
|
' in intro page
|
|
strNewCommonData = strNewCommonData & strNameD & strName & strValueD & strValue
|
|
ElseIf InStr(LCase(strOldCommonData), strNameD & strName & strValueD) <> 0 Then
|
|
' in body page
|
|
strNewCommonData = strNewCommonData & strNameD & strName & strValueD & strValue
|
|
ElseIf intOldEmbIndex <> -1 And Request.Form("PageName") = "TaskExtension" Then
|
|
'extension page - update data for current page
|
|
If InStr(LCase(strOldCommonData), strNameD & strName & strValueD) = 0 Then
|
|
strNewEmbData(intOldEmbIndex) = strNewEmbData(intOldEmbIndex) & strNameD & strName & strValueD & strValue
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
Response.Write "<input name=" & chr(34) & "EmbedPageIndex" & Chr(34) & " type=hidden value=" & Chr(34) & mintElementIndex & Chr(34) & ">" & vbCrLf
|
|
Response.Write "<input name=" & chr(34) & "EmbedPageCount" & Chr(34) & " type=hidden value=" & Chr(34) & mintElementCount & Chr(34) & ">" & vbCrLf
|
|
Response.Write "<input name=" & chr(34) & "CommonValues" & Chr(34) & " type=hidden value=" & Chr(34) & Server.HTMLEncode(strNewCommonData) & Chr(34) & ">" & vbCrLf
|
|
For i = 0 To mintElementCount-1
|
|
Response.Write "<input name=" & chr(34) & "EmbedValues" & i & Chr(34) & " type=hidden value=" & Chr(34) & strNewEmbData(i) & Chr(34) & ">" & vbCrLf
|
|
If mstrPageType="finish" Then ' serve out embed values discretely in Finish page
|
|
If UnpackData(strNewEmbData(i), arrName, arrValue, strNameD, strValueD) Then
|
|
For j = 0 To UBound(arrName)
|
|
Response.Write "<input name=" & chr(34) & arrName(j) & Chr(34) & " type=hidden value=" & Chr(34) & arrValue(j) & Chr(34) & ">" & vbCrLf
|
|
Next
|
|
End If
|
|
End If
|
|
Next
|
|
If mstrPageName = "TaskExtension" Then
|
|
If UnpackData(strNewCommonData, arrName, arrValue, strNameD, strValueD) Then ' serve out common data as discreet form values
|
|
For i = 0 To UBound(arrName)
|
|
Response.Write "<input name=" & chr(34) & arrName(i) & Chr(34) & " type=hidden value=" & Chr(34) & arrValue(i) & Chr(34) & ">" & vbCrLf
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
End Function
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : UnPackData
|
|
'
|
|
' Synopsis : Unpacks service specific form values from one string into
|
|
' individual <name, value> pairs
|
|
'
|
|
' Arguments: InputStrings(IN) - input form variable (which contains all
|
|
' <form, value> pairs as one string
|
|
' arrName(OUT) - on output contains all service form value names
|
|
' arrValue(OUT) - on output contains all service form value values
|
|
' strNameD(IN) - delimiter between names in InputString
|
|
' strValueD(IN) - delimiter between values in InputString
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function UnPackData(InputString, arrName, arrValue, strNameD, strValueD)
|
|
|
|
Dim intPos1, intPos2
|
|
Dim intIndex
|
|
|
|
On Error Resume Next
|
|
InputString = LTrim(InputString)
|
|
If InputString = "" Then
|
|
UnPackData = False
|
|
Exit Function
|
|
End If
|
|
If Left(InputString, 2) = strNameD Then
|
|
InputString = Right(InputString, Len(InputString) - 2)
|
|
End If
|
|
intIndex = 0
|
|
intPos1 = InStr(InputString, strValueD)
|
|
intPos2 = -1
|
|
Do While intPos1 <> 0
|
|
ReDim Preserve arrName(intIndex)
|
|
ReDim Preserve arrValue(intIndex)
|
|
arrName(intIndex) = Trim(Mid(InputString, intPos2 + 2, intPos1 - intPos2 - 2))
|
|
intPos2 = InStr(intPos1, InputString, strNameD)
|
|
If intPos2 = 0 Then
|
|
intPos2 = Len(InputString) + 1 'assumes no end delimiter
|
|
End If
|
|
arrValue(intIndex) = Trim(Mid(InputString, intPos1 + 1, intPos2 - intPos1 - 1))
|
|
If intPos2 + 1 < Len(InputString) Then
|
|
intPos1 = InStr(intPos2 + 2, InputString, strValueD)
|
|
Else
|
|
Exit Do
|
|
End If
|
|
intIndex = intIndex + 1
|
|
Loop
|
|
UnPackData = True
|
|
End Function
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeTaskHeader
|
|
'
|
|
' Synopsis : Serve the task header based on page type
|
|
' Note: Uses module-level variables listed below. These values
|
|
' are set for each task and page as needed.
|
|
' mstrTaskType - "wizard", "prop"
|
|
' mstrPageType - "intro", "finish", "standard"
|
|
' mintElementIndex - index of wizard extension page, (0 - n)
|
|
' mintElementCount - count of extension pages
|
|
' mblnFinishDirect - finish button behavior
|
|
' mblnCancelDirect - cancel button behavior
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function ServeTaskHeader()
|
|
Dim objItem
|
|
|
|
On Error Resume Next
|
|
Response.Buffer = True
|
|
%>
|
|
<html LANG="en">
|
|
<!-- Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.-->
|
|
<meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
|
|
<head>
|
|
<title><% =mstrTaskTitle %></title>
|
|
|
|
<script language=JavaScript src="../sh_page.js"></script>
|
|
<script language=JavaScript>
|
|
var VirtualRoot = '<%=m_VirtualRoot%>';
|
|
</script>
|
|
<script language=JavaScript src="../sh_task.js"></script>
|
|
<link rel="STYLESHEET" type="text/css" href="<%=m_VirtualRoot%>sh_task.css">
|
|
</head>
|
|
<BODY marginWidth="0" marginHeight="0" onload="PageInit();" topmargin="0" leftmargin="0" rightmargin="0" onDragDrop="return false;" oncontextmenu="return false;">
|
|
<FORM name="frmTask" onSubmit="return Next();" action="<% =GetScriptFileName %>" method="POST">
|
|
<INPUT name="PageName" type="hidden" value="<% =mstrPageName %>">
|
|
<INPUT name="Method" type="hidden" value="<% =mstrMethod %>">
|
|
<INPUT name="ReturnURL" type="hidden" value="<% =mstrReturnURL %>">
|
|
<INPUT name="TaskType" type="hidden" value="<% =mstrTaskType %>">
|
|
<INPUT name="PageType" type="hidden" value="<% =mstrPageType %>">
|
|
<INPUT name="FinishDirect" type="hidden" value="<% =mblnFinishDirect %>">
|
|
<INPUT name="CancelDirect" type="hidden" value="<% =mblnCancelDirect %>">
|
|
<%
|
|
' conditionally serve hidden form elements from extended
|
|
' task page
|
|
if mstrTaskType="wizard" then
|
|
ServeFormValues()
|
|
end if
|
|
%>
|
|
<% If( (mstrTaskType="wizard") AND (mstrPageType="intro" OR mstrPageType="finish")) Then %>
|
|
<TABLE width=100% height=101% border=0 cellspacing=0 cellpadding=0 ID=TASKTABLE>
|
|
<TR valign=TOP style="background-color:#FFFFFF">
|
|
<TD width="10%" align="right" valign=TOP style="width:130px; background-color: #313163" rowspan="2">
|
|
<IMG width=130 border=0 src="<% =mstrPanelPath %>" >
|
|
</td>
|
|
<TD width=18 valign=TOP style="background-color: white;" rowspan="2">
|
|
|
|
</td>
|
|
<TD valign=TOP style="background-color: white;" rowspan="2">
|
|
<span class="TASKTITLE"><% =mstrTaskTitle %></span>
|
|
<BR><BR>
|
|
|
|
<% Else %>
|
|
<TABLE width=100% border=0 height="88%" cellspacing=0 cellpadding=0 ID=TASKTABLE >
|
|
|
|
<TR valign=TOP height="10%" style="background-color:#FFFFFF">
|
|
<TD width=3% height="10%" valign=TOP>
|
|
|
|
</TD>
|
|
<TD valign=TOP>
|
|
<span CLASS="TASKTITLE"><%=mstrTaskTitle %></span><BR>
|
|
<span class="PAGETITLE"><% =mstrPageTitle %></span>
|
|
</TD>
|
|
|
|
<TD align="right" valign=TOP bgcolor="#FFFFFF">
|
|
<IMG height=64 width=64 border=0 src="<% =mstrIconPath %>">
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR height="80%" valign=TOP>
|
|
<TD width=26px height=64 valign=TOP>
|
|
|
|
</TD>
|
|
<TD valign="top" height="70%" colspan=2>
|
|
<BR>
|
|
<% End IF%>
|
|
<%
|
|
ServeTaskHeader = True
|
|
End Function
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeTaskFooter
|
|
'
|
|
' Synopsis : Serve the task footer (navigation buttons & error div)
|
|
' Note: The function relies on the following module-level variables:
|
|
' mstrTaskType - prop wizard
|
|
' mstrPageType - standard intro finish failure
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function ServeTaskFooter()
|
|
|
|
On Error Resume Next
|
|
|
|
dim ErrMessage
|
|
|
|
If GetErrMsg <> "" Then
|
|
ErrMessage = "<img src=" & m_VirtualRoot & "images/critical_g.gif border=0> " & GetErrMsg
|
|
SetErrMsg ""
|
|
else
|
|
ErrMessage =""
|
|
End If
|
|
%>
|
|
</TD>
|
|
</TR>
|
|
<%
|
|
If( (mstrPageType<>"intro") AND (mstrPageType<>"finish") ) Then
|
|
If (IsIE()) Then
|
|
|
|
%>
|
|
<Table>
|
|
<TR>
|
|
<TD> </TD>
|
|
<TD ><DIV name="divErrMsg" ID="divErrMsg" class="ErrMsg"><%=ErrMessage%></DIV></TD>
|
|
</TR>
|
|
</Table>
|
|
<% End If %>
|
|
<% End If %>
|
|
</td></tr>
|
|
|
|
</table>
|
|
|
|
<% If Not IsIE() Then %>
|
|
<layer name="layErrMsg" class="ErrMsg"><%=ErrMessage%></layer>
|
|
<% End If %>
|
|
|
|
<%
|
|
Response.Write "</form></BODY></HTML>"
|
|
|
|
End Function
|
|
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeFailurePage
|
|
'
|
|
' Synopsis : Serve the page which redirects the browser to the err_view.asp
|
|
' failure page
|
|
'
|
|
' Arguments: Message(IN) - message to be displayed by err_view.asp
|
|
' intTab(IN) - Tab to be highlighted by err_view.asp
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function ServeFailurePage(Message, intTab)
|
|
On Error Resume Next
|
|
|
|
Dim strURL
|
|
|
|
If InStr(mstrReturnURL, "?") = 0 Then
|
|
strURL = mstrReturnURL & "?R="
|
|
else
|
|
strURL = mstrReturnURL & "&R="
|
|
end if
|
|
%>
|
|
<html>
|
|
<!-- Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.-->
|
|
<head>
|
|
<SCRIPT language=JavaScript>
|
|
function Redirect() {
|
|
|
|
top.location = "<%=getVirtualDirectory()%>" + "util/err_view.asp?Tab=<%=intTab%>&Message=<% =server.urlencode(Message) %>&ReturnURL=<% =strURL%>" + Math.random();
|
|
}
|
|
</SCRIPT>
|
|
</head>
|
|
<body onLoad="Redirect();" bgcolor="#000000">
|
|
|
|
</body>
|
|
</html>
|
|
<%
|
|
Response.End
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeClose
|
|
'
|
|
' Synopsis : Redirect user to the page from which the wizard was launched
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Sub ServeClose
|
|
On Error Resume Next
|
|
%>
|
|
<html>
|
|
<!-- Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.-->
|
|
<head>
|
|
<SCRIPT language=JavaScript>
|
|
function Redirect()
|
|
{
|
|
top.location='<%=EscapeQuotes(mstrReturnURL)%>';
|
|
}
|
|
</SCRIPT>
|
|
</head>
|
|
<body onLoad="Redirect();" bgcolor="Silver">
|
|
|
|
</body>
|
|
</html>
|
|
<%
|
|
End Sub
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServePropEmbeds
|
|
'
|
|
' Synopsis : Serve the embedded property pages
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Function ServePropEmbeds()
|
|
|
|
Dim objElementCol
|
|
Dim objElement
|
|
Dim rc
|
|
|
|
On Error Resume Next
|
|
|
|
Set objElementCol = GetElements(GetScriptPath()) 'retrieve elements based on the task path
|
|
For Each objElement in objElementCol
|
|
rc = GetEmbedHTML(objElement, 0)
|
|
Next
|
|
Set objElementCol = Nothing
|
|
ServePropEmbeds = True
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeWizardEmbeds
|
|
'
|
|
' Synopsis : Handles navigation through wizard extension pages.
|
|
' Note: uses module-level value mstrMethod
|
|
'
|
|
' Arguments: TopPage(IN) - the page just before the first embedded page
|
|
' in the wizard.
|
|
' BottomPage(IN) - the page just after the last embedded page
|
|
' in the wizard.
|
|
'
|
|
' Returns : Returns true or false if HTML is output. Writes wizard HTML
|
|
' to the client.
|
|
' mintElementIndex is set here after getting the initial value
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function ServeWizardEmbeds(TopPage, BottomPage)
|
|
|
|
Dim booServedPage
|
|
Dim objElementCol
|
|
Dim objElement
|
|
Dim arrElementID()
|
|
Dim intOrigIndex
|
|
Dim i
|
|
|
|
On Error Resume Next
|
|
|
|
mintElementIndex = CInt(Request.Form("EmbedPageIndex"))
|
|
Response.Buffer = True
|
|
booServedPage = False
|
|
|
|
Set objElementCol = GetElements(GetScriptPath()) 'retrieve elements based on the task path
|
|
mintElementCount = objElementCol.Count
|
|
ReDim arrElementID(mintElementCount)
|
|
i = 0
|
|
For Each objElement in objElementCol
|
|
arrElementID(i) = objElement.GetProperty("ElementID")
|
|
i = i + 1
|
|
Next
|
|
|
|
If LCase(mstrPageName) = LCase(TopPage) Then
|
|
' entering start of extension (method=NEXT, currentpage=TopPage)
|
|
For mintElementIndex = 0 to UBound(arrElementID)-1
|
|
Set objElement = objElementCol.Item(arrElementID(mintElementIndex))
|
|
If ServeEmbedWizardPage(objElement, mintElementIndex) Then
|
|
booServedPage = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not booServedPage Then
|
|
ServePage(BottomPage)
|
|
End If
|
|
|
|
ElseIf mstrPageName = BottomPage Then
|
|
' entering end of extension (method=BACK, currentpage=BottomPage)
|
|
For mintElementIndex = UBound(arrElementID)-1 to 0 Step -1
|
|
Set objElement = objElementCol.Item(arrElementID(mintElementIndex))
|
|
If ServeEmbedWizardPage(objElement, mintElementIndex) Then
|
|
booServedPage = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not booServedPage Then
|
|
ServePage(TopPage)
|
|
End If
|
|
Else
|
|
'Inside the extension pages (method=NEXT | BACK, currentpage="ExtensionPage" )
|
|
intOrigIndex = mintElementIndex
|
|
If mstrMethod = "NEXT" Then
|
|
For mintElementIndex = intOrigIndex + 1 to UBound(arrElementID)-1
|
|
Set objElement = objElementCol.Item(arrElementID(mintElementIndex))
|
|
If ServeEmbedWizardPage(objElement, mintElementIndex) Then
|
|
booServedPage = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not booServedPage Then
|
|
ServePage(BottomPage)
|
|
End If
|
|
|
|
ElseIf mstrMethod = "BACK" Then
|
|
For mintElementIndex = intOrigIndex - 1 To 0 Step -1
|
|
Set objElement = objElementCol.Item(arrElementID(mintElementIndex))
|
|
If ServeEmbedWizardPage(objElement, mintElementIndex) Then
|
|
booServedPage = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not booServedPage Then
|
|
ServePage(TopPage)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Set objElementCol = Nothing
|
|
Set objElement = Nothing
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeEmbedWizardPage
|
|
'
|
|
' Synopsis : Serve the embedded wizard pages. Handles the actual building of
|
|
' the page
|
|
'
|
|
' Arguments: Element(IN) - the element obj for the wizard page to be
|
|
' served.
|
|
' ElementIndex(IN) - element index
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Function ServeEmbedWizardPage(Element, ElementIndex)
|
|
On Error Resume Next
|
|
'set task framework variables
|
|
mstrPageName = "TaskExtension"
|
|
mstrPageType = "standard"
|
|
mstrTaskType = "wizard"
|
|
intCaptionIDTask = "&H" & Element.GetProperty("CaptionRID")
|
|
strSourceName = ""
|
|
strSourceName = Element.GetProperty ("Source")
|
|
Err.Clear
|
|
If strSourceName = "" Then
|
|
strSourceName = "svrapp"
|
|
End If
|
|
Err.Clear
|
|
mstrPageTitle = objLocMgr.GetString(strSourceName, intCaptionIDTask, varReplacementStrings)
|
|
If Err <> 0 Then
|
|
Err.Clear
|
|
mstrPageTitle = ""
|
|
End If
|
|
ServeTaskHeader
|
|
If GetEmbedHTML(Element, 0) Then
|
|
ServeTaskFooter
|
|
ServeEmbedWizardPage = True
|
|
Else
|
|
ServeEmbedWizardPage = False
|
|
Response.Clear
|
|
End If
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ExecuteTask
|
|
'
|
|
' Synopsis : Calls Microsoft_SA_Task object by name
|
|
'
|
|
' Arguments: TaskName(IN) - name of task to execute.
|
|
' TaskContext(IN) - empty task parameters object. Parameters in the
|
|
' form of hidden form values are added to this
|
|
' object before the task is executed.
|
|
' also mstrAsyncTaskName: if not empty, call task asynchronously
|
|
'
|
|
' Returns : HRESULT from ExecuteTask, or
|
|
' 1 - TaskContext instantiation failed
|
|
' 2 - AppSrvcs instantiation failed
|
|
' 3 - AppSrvcs init failed
|
|
' TaskContext: populated ITaskContext
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Function ExecuteTask(TaskName, TaskContext)
|
|
|
|
Dim objAS
|
|
Dim objTaskContext
|
|
Dim objValue
|
|
Dim objElementCol
|
|
Dim objElement
|
|
Dim varValue
|
|
Dim strName
|
|
Dim arrName
|
|
Dim arrValue
|
|
Dim rc
|
|
Dim i
|
|
|
|
On Error Resume Next
|
|
Set objTaskContext = Server.CreateObject("Taskctx.TaskContext")
|
|
If Err <> 0 Then
|
|
ExecuteTask = 1
|
|
Else
|
|
Set objAS = Server.CreateObject("Appsrvcs.ApplianceServices")
|
|
If Err <> 0 Then
|
|
ExecuteTask = 2
|
|
Else
|
|
objAS.Initialize()
|
|
If Err = 0 Then
|
|
For Each objValue in Request.Form
|
|
strName = objValue
|
|
If InStr(mstrFrmwrkFormStrings, "!" & strName & "!") = 0 Then 'set normal form value data
|
|
varValue = Request.Form(objValue)
|
|
objTaskContext.SetParameter strName, varValue
|
|
End If
|
|
Next
|
|
objTaskContext.SetParameter PROPERTY_TASK_NICE_NAME, mstrTaskTitle
|
|
objTaskContext.SetParameter PROPERTY_TASK_URL, "/" & GetScriptPath()
|
|
Err.Clear
|
|
If mstrAsyncTaskName <> "" Then
|
|
rc = objAS.ExecuteTaskAsync(TaskName, objTaskContext)
|
|
If rc = WBEM_E_PROVIDER_NOT_CAPABLE Then
|
|
'
|
|
'This indicates that the async task is currently running
|
|
'
|
|
End If
|
|
Else
|
|
rc = objAS.ExecuteTask(TaskName, objTaskContext)
|
|
End If
|
|
|
|
' check for and handle errors in embedded pages
|
|
If rc <> 0 And mstrTaskType = "wizard" And mintElementCount > 0 Then
|
|
mintElementCount = 0
|
|
Set objElementCol = GetElements(GetScriptPath()) 'retrieve elements based on the task path
|
|
mintElementCount = objElementCol.Count
|
|
mintElementIndex = 0
|
|
For Each objElement in objElementCol
|
|
If ServeEmbedWizardPage(objElement, mintElementIndex, rc) Then
|
|
Err.Clear
|
|
ExecuteTask = rc
|
|
Else
|
|
mintElementIndex = mintElementIndex + 1
|
|
End If
|
|
Next
|
|
Set objElementCol = Nothing
|
|
Set objElement = Nothing
|
|
End If
|
|
ExecuteTask = Err.Number
|
|
Err.Clear
|
|
Set TaskContext = objTaskContext
|
|
objAS.Shutdown()
|
|
Else
|
|
ExecuteTask = 3
|
|
End If
|
|
End If
|
|
End If
|
|
Err.Clear
|
|
Set objAS = Nothing
|
|
Set objTaskContext = Nothing
|
|
|
|
End Function
|
|
|
|
'==================================================
|
|
Function ServeTaskFooterFrame()
|
|
|
|
On Error Resume Next
|
|
%>
|
|
<html>
|
|
<!-- (c) 1999 Microsoft Corporation. All rights reserved.-->
|
|
<meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
|
|
|
|
<head>
|
|
<title>Footer</title>
|
|
<link rel="STYLESHEET" type="text/css" href="<%=m_VirtualRoot%>sh_task.css">
|
|
<script language=JavaScript>
|
|
var VirtualRoot = '<%=m_VirtualRoot%>';
|
|
</script>
|
|
|
|
<script language=JavaScript src="<%=m_VirtualRoot%>sh_page.js"></script>
|
|
<script language=JavaScript src="<%=m_VirtualRoot%>sh_task.js"></script>
|
|
|
|
<script language=JavaScript>
|
|
|
|
function Init() {
|
|
|
|
var formTask;
|
|
if (IsIE())
|
|
formTask = top.frames[0].frmTask;
|
|
else
|
|
formTask = parent.main.document.forms["frmTask"];
|
|
if ( (formTask) && (top.footer.PropertyPageButtons) && (top.footer.WizardButtons) ) {
|
|
var strTaskType = formTask.TaskType.value;
|
|
var strPageType = formTask.PageType.value;
|
|
|
|
if (document.layers)
|
|
document.captureEvents(Event.KEYPRESS)
|
|
|
|
document.onkeypress = HandleKeyPress;
|
|
|
|
switch (strTaskType) {
|
|
case "<% =PROPSHEET_TASK %>":
|
|
if (IsIE()) {
|
|
top.footer.PropertyPageButtons.style.display = "";
|
|
top.footer.WizardButtons.style.display = "none";
|
|
var tblTaskP = parent.main.document.all("TASKTABLE");
|
|
if (tblTaskP)
|
|
tblTaskP.focus();
|
|
}
|
|
else {
|
|
document.layers["PropertyPageButtons"].visibility = "show";
|
|
document.layers["WizardButtons"].visibility = "hide";
|
|
document.layers["WizardButtons_Finish"].visibility = "hide";
|
|
}
|
|
top.main.EnableCancel();
|
|
top.main.EnableOK();
|
|
switch (strPageType) {
|
|
case "failure":
|
|
document.frmFooter.butOK.style.display = "none";
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
break;
|
|
case "<% =WIZARD_TASK %>":
|
|
if (IsIE()) {
|
|
top.footer.WizardButtons.style.display = "";
|
|
top.footer.PropertyPageButtons.style.display = "none";
|
|
var tblTaskW = parent.main.document.all("TASKTABLE");
|
|
if (tblTaskW)
|
|
tblTaskW.focus();
|
|
}
|
|
else {
|
|
document.layers["PropertyPageButtons"].visibility = "hide";
|
|
}
|
|
|
|
top.main.EnableBack();
|
|
top.main.EnableCancel();
|
|
switch (strPageType) {
|
|
case "<% =INTRO_PAGE %>":
|
|
top.main.DisableBack();
|
|
if (!IsIE()) {
|
|
document.layers["WizardButtons_Finish"].visibility = "hide";
|
|
document.layers["WizardButtons"].visibility = "show";
|
|
}
|
|
else
|
|
top.main.EnableNext();
|
|
break;
|
|
case "<% =FINISH_PAGE %>":
|
|
if (IsIE()) {
|
|
|
|
top.footer.frmFooter.butNext.style.display = "none";
|
|
top.footer.frmFooter.butFinish.style.display = "";
|
|
|
|
}
|
|
else {
|
|
document.layers["WizardButtons_Finish"].visibility = "show";
|
|
document.layers["WizardButtons"].visibility = "hide";
|
|
}
|
|
top.main.EnableFinish();
|
|
break;
|
|
default:
|
|
if (IsIE()) {
|
|
top.footer.frmFooter.butNext.style.display = "";
|
|
top.footer.frmFooter.butFinish.style.display = "none";
|
|
top.main.EnableNext();
|
|
}
|
|
else {
|
|
document.layers["WizardButtons"].visibility = "show";
|
|
document.layers["WizardButtons_Finish"].visibility = "hide";
|
|
}
|
|
break;
|
|
}
|
|
break;
|
|
default:
|
|
if (IsIE())
|
|
PropertyPageButtons.style.display = "";
|
|
break;
|
|
}
|
|
|
|
}
|
|
else
|
|
window.setTimeout('Init();',50);
|
|
}
|
|
</script>
|
|
</head>
|
|
<BODY onLoad="Init()" oncontextmenu="return false;" topmargin="0" leftmargin="0" rightmargin="0" onDragDrop="return false;" tabindex=-1>
|
|
|
|
<% If Not IsIE() Then %>
|
|
<layer ID="WizardButtons" name="WizardButtons" visibility="hide" z-Index="1" width=100%>
|
|
<FORM name="frmFooter">
|
|
<table width=100% cellspacing=10 cellpadding=0 border=0><tr><td width=95%></td>
|
|
<td>
|
|
<input name="butBack" class="NAVBUTTON" type="button" value="<% =L_BACK_BUTTON %>"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Back();">
|
|
</td><td>
|
|
<input name="butNext" class="NAVBUTTON" type="button" value="<% =L_NEXT_BUTTON %>"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Next();">
|
|
</td><td>
|
|
<input name="butCancelW" class="NAVBUTTON" type="button" value="<% =L_CANCEL_BUTTON %>"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Cancel();">
|
|
</td></tr></table>
|
|
</form>
|
|
</layer>
|
|
|
|
<layer ID="WizardButtons_Finish" visibility="hide" width=100%>
|
|
<FORM name="frmFooter">
|
|
<table width=100% cellspacing=10 cellpadding=0 border=0><tr><td width=95%></td>
|
|
<td>
|
|
<input name="butBack" class="NAVBUTTON" type="button" value="<% =L_BACK_BUTTON %>"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Back();">
|
|
</td><td>
|
|
<input name="butFinish" type="button" value="<% =L_FINISH_BUTTON %>" class="NAVBUTTON"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.FinishShell();">
|
|
</td><td>
|
|
<input name="butCancelW" class="NAVBUTTON" type="button" value="<% =L_CANCEL_BUTTON %>"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Cancel();">
|
|
</td></tr></table>
|
|
</form>
|
|
</layer>
|
|
|
|
<layer ID="PropertyPageButtons" visibility="hide" width="100%">
|
|
<FORM name="frmFooter">
|
|
<table width=100% cellspacing=10 cellpadding=0 border=0>
|
|
<tr><td width=90% ></td><td >
|
|
|
|
<input type=button align=right value="<% =L_OK_BUTTON %>" alt="OK" name="butOK" class="NAVBUTTON"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Next();">
|
|
|
|
</td><td>
|
|
<input type="button" name="butCancelP" value="<% =L_CANCEL_BUTTON %>" alt="<% =L_CANCEL_BUTTON %>"
|
|
onClick="if (parent.main.document.forms['frmTask']) parent.main.Cancel();" class="NAVBUTTON">
|
|
|
|
|
|
</td></tr></table>
|
|
</form>
|
|
</layer>
|
|
<% Else %>
|
|
<FORM name="frmFooter">
|
|
<DIV ID="WizardButtons" style="display:none; position:absolute; top:10px; ">
|
|
<table width=100% cellspacing=0 cellpadding=0>
|
|
<tr> <td width=100% > </td>
|
|
<td align="right" nowrap valign="middle">
|
|
<button name="butBack" id="but_back01" class="NAVBUTTON" accesskey="<%=L_BACK_ACCESSKEY%>" alt="<% =L_BACK_BUTTON %>"
|
|
onClick="if (parent.main.frmTask) parent.main.Back();"><% =L_BACKIE_BUTTON %></button>
|
|
</td><td align="right" width="10" nowrap> </td>
|
|
<td align="right" nowrap valign="middle">
|
|
<button name="butNext" id="but_next01" class="NAVBUTTON" accesskey="<%=L_NEXT_ACCESSKEY%>" alt="<% =L_NEXT_BUTTON %>"
|
|
onClick="if (parent.main.frmTask) parent.main.Next();"><% =L_NEXTIE_BUTTON %></button>
|
|
</td>
|
|
<td align="right" nowrap valign="middle">
|
|
<button name="butFinish" id="but_finish01" class="NAVBUTTON" accesskey="<%=L_FINISH_ACCESSKEY%>" alt="<% =L_FINISH_BUTTON %>"
|
|
style="display:none" onClick="if (parent.main.frmTask) parent.main.FinishShell();"><% =L_FINISH_BUTTON %></button>
|
|
</td>
|
|
<td align="right" width="10" nowrap> </td>
|
|
<td align="right" nowrap valign="middle">
|
|
<input type="button" name="butCancelW" value="<% =L_CANCEL_BUTTON %>" alt="<% =L_CANCEL_BUTTON %>"
|
|
style=""onClick="if (parent.main.frmTask) parent.main.Cancel();" class="NAVBUTTON">
|
|
|
|
</td></tr></table>
|
|
</div>
|
|
<DIV ID="PropertyPageButtons" style="display:none; position:absolute; top:10px;">
|
|
<table width=100% cellspacing=0 cellpadding=0><tr><td width=100% ></td><td nowrap>
|
|
<input type=button align=right value="<% =L_OK_BUTTON %>" alt="OK" name="butOK" class="NAVBUTTON" onClick="if (parent.main.frmTask) parent.main.Next();">
|
|
|
|
<input type="button" name="butCancelP" value="<% =L_CANCEL_BUTTON %>" alt="<% =L_CANCEL_BUTTON %>"
|
|
onClick="if (parent.main.frmTask) parent.main.Cancel();" class="NAVBUTTON">
|
|
|
|
</td></tr></table>
|
|
</div>
|
|
</form>
|
|
<% End If
|
|
|
|
Response.Write "</BODY></HTML>"
|
|
|
|
End Function
|
|
|
|
%>
|
|
|
|
|
|
|
|
|