VBScript XMLDOM check if selectSingleNode exists

One really needs to see the XML file which you are trying to process.

For a start there is an inconsistancy of usage in your code. You first refer to "Days" (initial capital the rest lower case) yet later you write "DAYS/MONDAY" (all capitals). XML is case sensitive and you must use the correct case on selection.

The next question is to whether "Days" is the top element. Since your line "Set Days = xmlDoc.documentElement.selectSingleNode("Days")" goes wrong either it is DAYS or something else.

Furthermore in your second posting you write :-

Set DayNodes = xmlDoc.SelectNode("/AgentSettings/RemoteSettings/SnapshotSettings/Schedule/Days")

which tends to suggest that AgentSettings is the top most element?
 

Thanks for the reply.  This is my first attempt at using XMLDOM and wasn't aware it was case sensitive.  Attached in the XML that I'm working with.

As far as the VB Script goes, the only parts that I know work are these:

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load("C:\Scripts\usrcfg.xml")
State = ""
Set NodeList = xmlDoc.getElementsByTagName("*")
For Each Elem in NodeList
   If Elem.tagName = "Days" Then
       State = "Custom"
   End If
Next

(Do Stuff to get the text of each day)

If State = "" Then
   WScript.Echo "Default"
Else
   WScript.Echo "Monday: " & strMonday & " - Tuesday: " &_
       strTuesday & " - Wednesday: " & strWednesday &_
     " - Thursday: " & strThursday & " - Friday: " &_
     strFriday & " - Saturday: " & strSaturday &_
     " - Sunday: " & strSunday
End If
Set xmlDoc = Nothing

I've had two ideas as far as the "Do Something" part of the script.  The first one is this:

If State = "Custom" Then
       Set strMonday = xmlDoc.selectSingleNode("Monday").text
       Set strTuesday = xmlDoc.selectSingleNode("Tuesday").text
       Set strWednesday = xmlDoc.selectSingleNode("Wednesday").text
       Set strThursday = xmlDoc.selectSingleNode("Thursday").text
       Set strFriday = xmlDoc.selectSingleNode("Friday").text
       Set strSaturday = xmlDoc.selectSingleNode("Saturday").text
       Set strSunday = xmlDoc.selectSingleNode("Sunday").text
End If

However, it gives me a 800A01A8 error saying "Object required: 'xmlDoc.selectSingleNode(...)'.

The other idea I had was this:

If State = "Custom" Then
   Set DayNodes = xmlDoc.SelectNodes("/AgentSettings/RemoteSettings/SnapshotSettings/Schedule/Days")
End If

If State = "Custom" Then
   For Each DayNode in DayNodes
       'something to read the text of each day into a variable
   Next
End If

But as you can see, I don't know how to make the For Each loop work.

Thought I had attached the XML...  here it is:

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<AgentSettings>
 <RemoteSettings>
   <MiscSettings>
     <RecommendReinstall>FALSE</RecommendReinstall>
     <NotifyScheduledSnapshotCompleted>FALSE</NotifyScheduledSnapshotCompleted>
     <NotifyScheduledSnapshotFailed>TRUE</NotifyScheduledSnapshotFailed>
     <ShowScheduledProgressIndication>FALSE</ShowScheduledProgressIndication>
     <ContinueIncompleteSnapshot>FALSE</ContinueIncompleteSnapshot>
   </MiscSettings>
   <SnapshotExcludes>
     <Exclude>
       <ExcludeItem location="Path" type="Folder">C:\Documents and Settings\Rich</ExcludeItem>
     </Exclude>
     <Exclude>
       <ExcludeItem location="Path" type="Folder">*:\RECYCLED</ExcludeItem>
     </Exclude>
     <Exclude>
       <ExcludeItem location="Path" type="Folder">*:\RECYCLER</ExcludeItem>
     </Exclude>
     <Exclude>
       <ExcludeItem location="Path" type="Folder">*:\$Recycle.Bin</ExcludeItem>
     </Exclude>
   </SnapshotExcludes>
   <HiddenTransportSettings>
     <BindingPort>80</BindingPort>
     <BindingSecurePort>443</BindingSecurePort>
   </HiddenTransportSettings>
   <SnapshotSettings>
     <MiscSettings>
       <TakeSnapshotOnLogoff>FALSE</TakeSnapshotOnLogoff>
       <WakeUpClientBeforeSnapshot>FALSE</WakeUpClientBeforeSnapshot>
     </MiscSettings>
     <Schedule>
       <StartTime>
         <After>13:00:00</After>
         <Before>03:00:00</Before>
       </StartTime>
       <Days>
         <Monday>FALSE</Monday>
         <Tuesday>FALSE</Tuesday>
         <Wednesday>FALSE</Wednesday>
         <Thursday>FALSE</Thursday>
         <Friday>FALSE</Friday>
         <Saturday>FALSE</Saturday>
         <Sunday>FALSE</Sunday>
       </Days>
       <StartMissedSnapshotOnEvents>
         <ComputerTurnedOn>FALSE</ComputerTurnedOn>
         <ComputerDocked>FALSE</ComputerDocked>
         <ComputerResumed>FALSE</ComputerResumed>
         <ComputerIdle>FALSE</ComputerIdle>
         <ConnectToServer>FALSE</ConnectToServer>
       </StartMissedSnapshotOnEvents>
       <Snapshot type="Full">
         <ItemToBackup type="Folder">C:</ItemToBackup>
       </Snapshot>
     </Schedule>
   </SnapshotSettings>
 </RemoteSettings>
 <CommonSettings>
   <MiscSettings>
     <ShowWelcomeScreen>FALSE</ShowWelcomeScreen>
     <ShowStatusIcon>TRUE</ShowStatusIcon>
     <ShowAgentDesktopIcon>TRUE</ShowAgentDesktopIcon>
     <ShowAgentOptionsInStartMenu>TRUE</ShowAgentOptionsInStartMenu>
   </MiscSettings>
 </CommonSettings>
</AgentSettings>

Just gave this a try and it no longer errors on line 20 with 800A01A8 "Object required: 'xmlDoc.selectSingleNode(...)'.

Instead now I get :

Line: 32
Char: 9
Error: Object required
Code: 800A01A8

Which I don't understand how I'd get that error as I'm using "Set objMonday" etc to create it.

Option Explicit
 
Dim xmlDoc, State, NodeList, Elem
Dim objMonday, objTuesday, objWednesday
Dim objThursday, objFriday, objSaturday, objSunday
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load("C:\Scripts\usrcfg.xml")
 
State = ""
Set NodeList = xmlDoc.getElementsByTagName("*")
For Each Elem in NodeList
	If Elem.tagName = "Days" Then
		State = "Custom"
	End If
Next
 
If State = "Custom" Then
        Set objMonday = xmlDoc.documentElement.selectSingleNode("Monday")
        Set objTuesday = xmlDoc.documentElement.selectSingleNode("Tuesday")
        Set objWednesday = xmlDoc.documentElement.selectSingleNode("Wednesday")
        Set objThursday = xmlDoc.documentElement.selectSingleNode("Thursday")
        Set objFriday = xmlDoc.documentElement.selectSingleNode("Friday")
        Set objSaturday = xmlDoc.documentElement.selectSingleNode("Saturday")
        Set objSunday = xmlDoc.documentElement.selectSingleNode("Sunday")
End If
 
If State = "" Then
        WScript.Echo "Default"
Else
        WScript.Echo "Monday: " & objMonday.text & " - Tuesday: " & objTuesday.text & " - Wednesday: " & objWednesday.text & " - Thursday: " & objThursday.text & " - Friday: " & objFriday.text & " - Saturday: " & objSaturday.text & " - Sunday: " & objSunday.text
End If
 
Set xmlDoc = Nothing

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35: