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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | 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 |