パラメーターのスクリプトへの送信
GFI LanGuard スキャナー ツールは実行されるときにスクリプトにパラメーターを渡します。 たとえば、脆弱性用にスキャンされるターゲット マシンのコンピューター名とコンピューター IP です。 スクリプトをデバッグできるようにするために、これらのパラメーターの値のさまざまなタイプをテストします。 オプション > パラメーター からこれらのパラメーター用の代替値を指定できます。
スクリプト内でこれらのパラメーターへのアクセスを得るために、GetParameter
という特殊な GFI LanGuard 関数を使用して、それを次のようなパラメーターの名前に渡す必要があります。
Function Main
' 使用する必要のあるオブジェクトの宣言
Dim wmi As Object
Dim objswbemobject As Object
' 必要な他の変数の宣言
Dim strComputer As String
Dim cr As String
strComputer = "127.0.0.1"
' 改行
cr = Chr(13) + Chr(10)
' wmi オブジェクトでフック
Set wmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' フックが成功したことをチェック
If wmi is Nothing Then echo ("error1")
' wmi のサービス インスタンスを戻す
Set wmiinst=wmi.instancesof("Win32_Service")
' インスタンスが利用可能かどうかをチェック
If wmiinst is Nothing Then echo ("error2")
' 各インスタンスをループ
For Each objswbemobject In wmiinst
echo("Service Name= ")
' サービスを表示
echo(objswbemobject.DisplayName+cr)
Next
End Function