VBScript XMLDOM

Question

Ich versuche, alle Werte aus dem XML unten in VBScript mit XMLDOM abzurufen. Leider haben die Knoten nicht das gleiche Namensschild und die Anzahl der Tags (c[n]) ist variabel. Wie kann ich die Werte in ein Wörterbuch einlesen?

kann ich die Tags erhalten, indem mit:

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
xmlDoc.Async = "false" 
xmlDoc.Load(xmlhttp.responseXML) 

Set values = xmlDoc.getElementsByTagName("header") 

Wie kann ich alle untergeordneten Knoten <header> laufen?

<table> 
    <header> 
     <c0 type="string">name</c0> 
     <c1 type="ip_address">last_ip_address</c1> 
     <c2 type="string">group_name</c2> 
     <c3 type="enum">device_type</c3> 
     <c4 type="string">os_version_and_architecture</c4> 
     <c5 type="string">device_manufacturer</c5> 
     <c6 type="integer">number_of_cpus</c6> 
     <c7 type="string">cpu_model</c7> 
     <c8 type="integer">number_of_cores</c8> 
     <c9 type="mhz">cpu_frequency</c9> 
     <c10 type="byte">total_ram</c10> 
     <c11 type="integer">number_of_graphical_cards</c11> 
     <c12 type="byte">graphical_card_ram</c12> 
     <c13 type="datetime">last_system_boot</c13> 
     <c14 type="datetime">last_logon_time</c14> 
     <c15 type="string">bios_serial_number</c15> 
     <c16 type="string">device_product_version</c16> 
    </header> 
</table> 

Answer 1

Msxml2.DOMDocument Verwenden anstelle der veralteten Microsoft.XMLDOM, und anstelle von getElementsByTagName()SelectNodes() mit einem XPath Ausdruck verwenden.

Set d = CreateObject("Scripting.Dictionary") 
For Each n In xmlDoc.SelectNodes("//table/header/*") 
    d.Add n.NodeName, n.Text 
Next 

Answer 2

Sie diesen Code ausprobieren können:

Set xobj = CreateObject("MSXML2.DomDocument") 
xobj.async=False 
xmlDoc.Load(xmlhttp.responseXML) 
Set header = xobj.selectnodes("//header") 
Set children = header.item(0).childNodes  'Only the child nodes of first header node. You can easily run a loop to fetch all the headers' childnodes 
Set objD = CreateObject("scripting.dictionary") 
For Each child In Children 
    objD.Add child.nodeName, child.text  'Adding childnode's values to the dictionary; childnode's tagname being the key for each element in dictionary 
Next 
a=objD.items 
For i=0 To UBound(a) 
    MsgBox a(i)        'Displaying the dictionary values 
next 

Set objD = Nothing 
Set xobj=Nothing