使用vbscript创建xml值

Question

我需要添加值 ExtraDataItem name =“HostOnly / VirtualBox Host-Only Ethernet Adapter / IPAddress”value =“192.168.2.1”到我的xml ..在图片中你可以看到程序添加后它的样子。在默认的xml中，ExtraData中只存在2行。

你能告诉我如何使用Msxml2吗？我尝试使用此代码，但没有结果：（

Set xmlDoc = CreateObject("Msxml2.DOMDocument")

xmlDoc.setProperty "SelectionLanguage", "XPath"
xmlDoc.load(file1)

Set objNodeList = xmlDoc.getElementsByTagName("DHCPServers")

For each comNodeItem in objNodeList
    'JobName = comNodeItem.getAttribute("name")
    for each fileNodeItem in comNodeItem.ChildNodes
        fileName = fileNodeItem.getAttribute("IPAddress")
        fileNodeItem.setAttribute "IPAddress", "192.168.2.10"
        fileName = fileNodeItem.getAttribute("lowerIP")
        fileNodeItem.setAttribute "lowerIP", "192.168.2.2"
        fileName = fileNodeItem.getAttribute("upperIP")
        fileNodeItem.setAttribute "upperIP", "192.168.2.9"
    next
Next

Set objNodeList = xmlDoc.getElementsByTagName("ExtraData")

For each comNodeItem in objNodeList
    'JobName = comNodeItem.getAttribute("name")
    for each fileNodeItem in comNodeItem.ChildNodes
        fileName = fileNodeItem.getAttribute("ExtraDataItem name")
        comNodeItem.createAttribute "HostOnly/VirtualBox Host-Only Ethernet Adapter/IPAddress"
        fileName = fileNodeItem.getAttribute("value")
        fileNodeItem.setAttribute "value", "192.168.2.1"
    next
Next

xmlDoc.save(file1)

Answer 1

文件说 DO NOT EDIT THIS FILE.

如果需要以编程方式修改VirtualBox配置，请使用适当的工具：

VBoxManage setextradata global "HostOnly/VirtualBox Host-Only Ethernet Adapter/IPAddress" "192.168.2.1"