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