AddListItem
AddListItem ist eine Funktion, mit deren Hilfe Skripte dem Benutzer Feedback geben können. Diese Funktion fügt den übergebenen String als Unterknoten der ausgelösten Schwachstelle ein. Die Funktion AddListItem erwartet zwei unterschiedliche Parameter. Der erste Parameter bestimmt den übergeordneten Knoten, der zweite Parameter den String, der in die Baumstruktur eingefügt werden soll. Wenn der übergeordnete Knoten nicht angegeben wird, fügt die Funktion den angegebenen String in den obersten verfügbaren Knoten ein (den übergeordneten Knoten der Schwachstelle). Die Baumstruktur kann nur aus einer Ebene bestehen, aber so viele Geschwisterknoten wie nötig enthalten.
Syntax
AddListItem(String,String)
Rückgabewert
K. A.
Beispiel
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