AddListItem
AddListItem 是一个允许脚本向用户返回反馈的函数。 该函数将添加传递给它的任何字符串作为触发漏洞的一个子节点。 AddListItem 函数具有 2 个不同的参数。 第一个参数指定父节点，第二个参数是要添加到树中的字符串。 如果父节点左侧为空，该函数会将指定字符串添加到顶部的可用节点（漏洞父节点）。 即使树可以根据需要具有很多同级节点，但只能有 1 个级别。
语法
AddListItem(String,String)
返回结果
不适用
示例
Function MAIN
Dim wmi As Object
Dim objset As Object
Dim obj As Object
Dim monitor As Object
Dim prop As Object
Set wmi = GetObject("winmgmts:\\127.0.0.1\root\cimv2")
Set objset = wmi.instancesof("Win32_service")
For Each obj In objset
Set monitor = obj
For Each prop In monitor.properties_
If VarType(prop.value) = 8 Then
If Not (IsNull(prop.value)) Then
If prop.name = "Name" Then
If left(prop.value,1) = "a" then
AddListItem("A",prop.value)
End If
If left(prop.value,1) = "b" then
AddListItem("B",prop.value)
End If
If left(prop.value,1) = "c" Then
AddListItem("C",prop.value)
End if
End If
End If
End If
Next
Next
main = true
End Function