AddListItem
AddListItem es una función que permite scripts para brindar comentarios al usuario. Esta función agregará cualquier cadena que se le transmita como nodo secundario de la vulnerabilidad desencadenada. La función AddListItem toma 2 parámetros diferentes. El primero especifica el nodo principal y el segundo la cadena que se debe agregar al árbol. Si el nodo principal se deja vacío, la función agregará la cadena especificada al nodo más disponible (el nodo principal de vulnerabilidades). El árbol solo puede tener 1 nivel, aunque puede tener tantos elementos del mismo nivel como se necesiten.
Sintaxis
AddListItem(cadena,cadena)
Devolución
N/D.
Ejemplo
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