I am trying to add a wizard screen to select which one of our offices the computer is being shipped to. I owe huge credit to David Sebban's orignal modification for Room selection (David Sebban's Room Selection). The website link has been translated from French, which I had to look at the code on the non translated web site. I have attached a jpg below that shows what I have done and the error. If any one could look at the code that I have added, and tell me what I am doing wrong. I have just got into vbscripting, htas, and xml over the 6 months so it might be a easy one I am overlooking. Any help would be highly apprieciated. Thanks in advance. The error message i recieve: A VBScript Runtime Error has occurred: Error: 500 = Variable is undefined VBScript Code: ---------------------------- ValidateFBLOffices Code Snippets: DeployWiz_Definition_ENU.xml:
(Note: See Picture Below. This is a screen capture of the Microsoft Deployment Toolkit Wizard Editor) Under Settings I set the following:
Condition: UCASE(Property("SkipFBLOFFICES"))<>"YES"
Initialization: InitializeFBLOffices
Validation: ValidateFBLOffices
DeployWiz_Initialization.vbs: Function InitializeFBLOffices Dim oItem
Dim oOption
Set oXMLSiteData = nothing ' Load the Site Configuration XML file.
Set oXMLSiteData = oUtility.CreateXMLDOMObjectEx( property("DeployRoot") & "\control\FBLOffices.xml" ) For each oItem In oXMLSiteData.selectNodes("//FBLOffices/FBLOffice")
Set oOption = document.createElement("OPTION")
oOption.Value = oItem.selectSingleNode("ID").text
oOption.Text = oItem.selectSingleNode("Name").text
FBLOfficeList.Add oOption
Next
End Function DeployWiz_Validation.vbs Function ValidateFBLOffices
If SiteList.Value <> "" Then
oEnvironment.Item("FBLOffices") = FBLOfficeList.Value
ValidateFBLOffices = True
Else
ValidateFBLOffices = False
End If
End Function FBLOffices.xml: (See Attachment below)
CustomSettings.ini: Properties=modelalias, FBLOffice |