VBScript：使用重复节点名称更新/修改XML文件 - 输入：TXT和XML - 输出：XML

Question

我试图使用VBscript。 （我对VBScript并不擅长，实际上并没有使用它几年，但它是我目前正在工作的环境中工作的少数几种工具之一，我至少之前使用过它。 Powershell是可以使用的另一个工具，但我在Powershell中的经验甚少，并且只用于几个点任务。）

关于问题：我有两个输入文件：TEXT和XML将有一个新的输出文件：来自文本文件的XML数据将用于更新XML文件。

文件1：文字

    ! uninteresting text
    ! uninteresting text
    ! uninteresting text 
    ! V-1: This text discusses this vulnerability number.
    All of this text is important, but it only applies to #1.
    It does not apply to #2, or #3.
    !
    ! V-2: This text discusses vulnerability #2.
    It should be noted that it is multiple lines.
    ! V-3: This text discusses the 3rd vulnerability.
    !
    !
    ! __ ???
    ! V-4: This text discusses the 4th vulnerability
    There is other text here, that goes on and on,
    talking about this 4th vulnerability.
    It may or may not be important to you.
    EOF

文件2：XMl文件

    <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <LIST>
        <ASSET>
            <ASSET_TYPE></ASSET_TYPE>
            <HOST_NAME></HOST_NAME>
            <HOST_IP></HOST_IP>
        </ASSET>
        <AUDIT>
            <iAUDIT>
                <AUDIT_INFO></AUDIT_INFO>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-1</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS />
                    <COMMENT />
                </VULN>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-2</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS />
                    <COMMENT />
                </VULN>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-3</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS />
                    <COMMENT />
                </VULN>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-4</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS />
                    <COMMENT />
                </VULN>     
            </iAUDIT>
        </AUDIT>
    </LIST>

我想制作这个输出文件：

file3：XML

    <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <LIST>
        <ASSET>
            <ASSET_TYPE></ASSET_TYPE>
            <HOST_NAME></HOST_NAME>
            <HOST_IP></HOST_IP>
        </ASSET>
        <AUDIT>
            <iAUDIT>
                <AUDIT_INFO></AUDIT_INFO>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-1</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS>: This text discusses this vulnerability number.
                    All of this text is important, but it only applies to #1.
                    It does not apply to #2, or #3.
                    !
                    ! </FINDING_DETAILS>
                    <COMMENT />
                </VULN>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-2</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS>: This text discusses vulnerability #2.
                    It should be noted that it is multiple lines.
                    ! </FINDING_DETAILS>
                    <COMMENT />
                </VULN>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-3</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS>: This text discusses the 3rd vulnerability.
                    !
                    !
                    ! __ ???
                    ! </FINDING_DETAILS>
                    <COMMENT />
                </VULN>
                <VULN>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Num</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>V-4</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Severity</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA></ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Vuln_Explanation</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>This is a vulnerability.</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <AUDIT_DATA>
                        <VULN_ATTRIBUTE>Documentable</VULN_ATTRIBUTE>
                        <ATTRIBUTE_DATA>false</ATTRIBUTE_DATA>
                    </AUDIT_DATA>
                    <FINDING_DETAILS>: This text discusses the 4th vulnerability
                    There is other text here, that goes on and on,
                    talking about this 4th vulnerability.
                    It may or may not be important to you.</FINDING_DETAILS>
                    <COMMENT />
                </VULN>     
            </iAUDIT>
        </AUDIT>
    </LIST>

如何在VBScript中完成？

我找到了几个引用，但是如何在XML中获取V-1，V-2，V-3，V-4。 AUDIT_DATA被多次使用，我无法弄清楚如何抓住我想要的那个。 如果没有抓住正确的，我将无法更新FINDING_DETAIL。

我不想抓住漏洞号码的第一个或第n个出现，我希望能够专门找到V号码。 在这种特殊情况下，它是文件中AUDIT_DATA的第一个实例，如果有任何帮助，则V-数字在XML文件中是有序的。

我希望其他人之前有类似的问题，并且可以提供帮助。

我已经找到了这些特定的参考链接，但是我没有足够的经验来使用VBScript将其同化为一个可行的解决方案。

Microsoft文档出于某种原因喜欢提供Visual Basic示例，但我不确定如果没有Visual Studio（我没有），我可以运行它。

这些是类似的，但与我的问题不同：

VBScript修改一个元素（很多，具有相同的元素名称但具有不同的属性）？

找到具有特定属性的XML节点并进行更改

用vbscript读取xml文件

这非常相似，但是VB.net，而不是VBScript：

使用VB.NET解析具有相同名称的节点的XML文件

这是我目前的代码，但它远不是一个解决方案，所以我不确定除了表明我距离解决方案还有几英里之外它做了什么。

    Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.Async = "False"
    xmlDoc.Load("C:\scripts\audit\original.xml")


    WScript.echo "ShowAllVULN_ATTRIBUTENodes"

    set colVuln_Attribute = xmlDoc.selectNodes ("/LIST/AUDIT/iAUDIT/VULN/AUDIT_DATA/VULN_ATTRIBUTE")

    For Each objNode in colVuln_Attribute
        WScript.Echo objNode.Text
    Next

    WScript.echo "Show All Attribute Data"

    set colAttribute_Data= xmlDoc.selectNodes ("/LIST/AUDIT/iAUDIT/VULN/AUDIT_DATA/ATTRIBUTE_DATA")

    For Each objNode in colAttribute_Data
        WScript.Echo objNode.Text
    Next

'这就是我可以用XML做的程度。

“当我认为这是微不足道的时候，也许它会帮助我超越我原来想要解决这个问题的想法，但我想琐碎取决于你的经验和技能水平。 '我想要的最终结果是：'对于XML中的每个V-number，将FINDING_DETAILS替换为匹配V-number的多行文本。 ''我想引用这个XML数据：

    ' V-1, FINDING_DETAILS
    ' V-2, FINDING_DETAILS
    ' V-3, FINDING_DETAILS
    ' V-4, FINDING_DETAILS

'我想构建一个这样的表来表示文本文件输入：'（我还没有开始这部分。）

    ' V-1, multi-line text
    ' V-2, multi-line text
    ' V-3, multi-line text
    ' V-4, multi-line text

然后，想法是使用V号作为主键，并更新FINDING_DETAILS。

请注意：我修复了XML中导致无法加载的两个拼写错误：standalone = yes

XML VBScript重复节点名称XPath

Answer 1

我建议只将文本文档和XML文档作为文本文件处理，而不是利用vbscript提供的XML节点细分。

这是一个脚本，它分割你的文本文件，搜索V- *并收集字符串，然后收集下一个字符串，直到你的End Of Statement触发器得到处理。 此触发器将在每个漏洞描述的末尾。

Dim a, text, Vulnerabilities(), eos: a = "C:\testenv\text.txt" : eos = false
Redim Vulnerabilities(0)
text = split(CreateObject("Scripting.FileSystemObject").OpenTextFile(a, 1).ReadAll, vbcrlf)
for i=0 to ubound(text) 
    if instr(text(i), "V-") then
       eos = false
       Vulnerabilities(ubound(Vulnerabilities)) = text(i)
       redim preserve Vulnerabilities(ubound(Vulnerabilities) + 1)
    elseif not eos then
       if instr(text(i), "END OF STATEMENT CHECK" then
            eos = true
            Vulnerabilities(ubound(Vulnerabilities)) = Vulnerabilities(ubound(Vulnerabilities)) & "ENDSTATEMENT"
       else
            Vulnerabilities(ubound(Vulnerabilities)) = text(i)
            redim preserve Vulnerabilities(ubound(Vulnerabilities) + 1)
       end if
    end if
next
redim preserve Vulnerabilities(ubound(Vulnerabilities) - 1) 'trim off extra dynamic entry

现在您已经隐藏了所有漏洞数据，您可以一次换掉一行特定的XML段并且并行遍历漏洞数据，一次填充一行XML文件。 有点像查看两个文档并从第二个文档中删除数据，然后将其粘贴到第一个文档上的标记上。

Dim b, xml, counter : b = "C:\testenv\xml.xml" : counter = 0
xml = split(CreateObject("Scripting.FileSystemObject").OpenTextFile(a, 1).ReadAll, vbcrlf)
for i=0 to ubound(xml) 
     if instr(xml(i), "Vuln_Num") then
          for j=counter to ubound(Vulnerabilities)
               if instr(Vulnerabilities(j), "V-") then
                    replace(xml(i), "VulnNum", Vulnerabilities(j)
                    exit for
               end if

               'additional conditional statements can be placed here. 
               'such as detecting when the "ENDSTATEMENT" is in 
               'the vulnerability string and ending the string replacements. 
          next
     end if
next

我使用XML方法和原始数据文件读取方法处理了vbscript中的XML，我更喜欢以编程方式将其作为文本数据读取，而不是使用XML节点方法。 它更简单。 祝你好运。