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