VBScript XMLDOM

Question

XMLDOMを使用してVBScriptで以下のXMLからすべての値を取得しようとしています。残念ながら、ノードには同じ名前タグがなく、タグ量（c[n]）は可変です。どのようにして値を辞書に読み込むことができますか？

私が使用してタグを取得することができます：

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

Set values = xmlDoc.getElementsByTagName("header") 

私は<header>のすべての子ノードを反復処理する方法を教えてください。

<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の代わりに、非推奨Microsoft.XMLDOM、代わりにgetElementsByTagName()のXPath式でSelectNodes()を使用しています。

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

Answer 2

あなたはこのコードを試してみることができます。

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 

を