72 lines
1.9 KiB
Plaintext
72 lines
1.9 KiB
Plaintext
' // ***************************************************************************
|
|
' //
|
|
' // Copyright (c) Microsoft Corporation. All rights reserved.
|
|
' //
|
|
' // Microsoft Deployment Toolkit Solution Accelerator
|
|
' //
|
|
' // File: Summary_scripts.vbs
|
|
' //
|
|
' // Version: 6.3.8456.1000
|
|
' //
|
|
' // Purpose: Scripts to initialize and validate summary wizard
|
|
' //
|
|
' // ***************************************************************************
|
|
|
|
Option Explicit
|
|
|
|
Dim iErrors
|
|
Dim iWarnings
|
|
Dim sBuffer
|
|
Dim sDeploymentType
|
|
|
|
Function InitializeSummary
|
|
|
|
Dim oResults
|
|
Dim iRetVal
|
|
|
|
|
|
' Load the results
|
|
|
|
If oFSO.FileExists(oEnv("TEMP") & "\Results.xml") then
|
|
Set oResults = oUtility.CreateXMLDOMObjectEx(oEnv("TEMP") & "\Results.xml")
|
|
iErrors = CInt(oUtility.SelectSingleNodeString(oResults, "//Errors"))
|
|
iWarnings = CInt(oUtility.SelectSingleNodeString(oResults, "//Warnings"))
|
|
sBuffer = oUtility.SelectSingleNodeString(oResults, "//Messages")
|
|
iRetVal = oUtility.SelectSingleNodeString(oResults, "//RetVal")
|
|
sDeploymentType = oUtility.SelectSingleNodeString(oResults, "//DeploymentType")
|
|
Else
|
|
iErrors = 0
|
|
iWarnings = 1
|
|
sBuffer = "Unable to locate the Results.xml file needed to determine the deployment results. "
|
|
sBuffer = sBuffer & "(This may be the result of mismatched script versions. Ensure all boot images have been updated.)"
|
|
End if
|
|
|
|
|
|
' If this is a replace, then modifiy the title
|
|
|
|
If sDeploymentType = "REPLACE" then
|
|
NormalTitle.style.display = "none"
|
|
ReplaceTitle.style.display = "inline"
|
|
End if
|
|
|
|
|
|
' Set the background color based on the return code
|
|
|
|
If iRetVal = "0" or iRetVal = "" then
|
|
If iErrors > 0 or iWarnings > 0 then
|
|
MyContentArea.style.backgroundColor = "yellow"
|
|
End if
|
|
Else
|
|
MyContentArea.style.backgroundColor = "salmon"
|
|
End if
|
|
|
|
|
|
' Update the dialog
|
|
|
|
ErrorCount.InnerText = CStr(iErrors)
|
|
WarningCount.InnerText = CStr(iWarnings)
|
|
optionalWindow1.InnerText = sBuffer
|
|
buttonCancel.disabled = true
|
|
|
|
End Function
|