AddListItem
AddListItem は、スクリプトからユーザーにフィードバックを返せるようにする関数です。 この関数は、渡された任意の文字列を、起動された脆弱性のサブ ノードとして追加します。 AddListItem 関数は、2 つの異なるパラメーターを取ります。 最初のパラメーターは親ノードを指定し、2 番目のパラメーターはツリーに追加される文字列を指定します。 親ノードが指定されない場合、この関数は、指定された文字列を利用可能な最上位ノード (脆弱性の親ノード) に追加します。 ツリーには必要な個数の子ノードを追加できますが、ツリーの階層は 1 レベルに限られます。
構文
AddListItem(String,String)
戻り値
該当なし
例
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