AddListItem
AddListItem é uma função que permite que os scripts retornem feedback ao usuário. Essa função adiciona as cadeias de caracteres que passem por ela como subnó da vulnerabilidade acionada. A função AddListItem usa 2 parâmetros diferentes. O primeiro parâmetro especifica o nó pai e o segundo, a cadeia de caracteres a adicionar à árvore. Se o nó pai estiver em branco, a função adicionará a cadeia de caracteres especificada ao nó superior disponível (o nó pai da vulnerabilidade). A árvore só pode ter 1 nível, mas esse nível pode ter o número de irmãos que for necessário.
Sintaxe
AddListItem(cadeia,cadeia)
Retorno
N/A.
Exemplo
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