VBScript读取XML文件

首先，确保您的系统上安装了Microsoft XML Core Services。这是Windows操作系统的一部分，通常与Internet Explorer一起安装。

接下来，您可以使用以下VBScript代码来读取XML文件：

Dim xmlDoc
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
xmlDoc.async = False
xmlDoc.load("example.xml")
' 检查XML文件是否成功加载
If xmlDoc.readyState = 4 Then
    ' 获取XML根节点
    Dim rootNode
    Set rootNode = xmlDoc.documentElement
    ' 遍历子节点并输出其值
    Dim childNode
    For Each childNode In rootNode.childNodes
        WScript.Echo childNode.nodeName & "=" & childNode.nodeValue
    Next
Else
    WScript.Echo "Failed to load XML file."
End If

在上面的代码中，我们首先创建了一个MSXML2.DOMDocument.6.0对象。然后，我们使用load方法加载XML文件。async属性被设置为False，这意味着加载过程将同步进行。加载完成后，我们检查readyState属性是否为4，表示文件已成功加载。如果是，我们获取根节点并遍历其子节点，输出它们的名称和值。

请注意，您需要将代码中的example.xml替换为您要读取的实际XML文件的路径。确保文件路径正确，否则代码将无法找到并加载XML文件。