WMIでイベントを取得してみよう - WMI Step

今まではプロパティを取得・設定したりメソッドを実行していたりしまいたが、これだけでは芸がないと思ったのでこのステップではイベントの取得方法を紹介したいと思います。
今回はVBSを使用したサンプルを紹介しますが基本的にはVBでも問題なく使用可能です。(単にVBでやると私の環境では固まることがまれにあったので、今回はVBSで書いているだけだったりします…。)

では実行してみましょう。
実行するとこのスクリプトはあるイベントが発生するまで待機して待ちづける事になります。
これを実現しているのは

Set Prc = Service.ExecNotificationQuery _
　　("SELECT * FROM __InstanceCreationEvent " _
　　& "WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'")

Set PrcEvt= Prc.NextEvent

になります。
ExecNotificationQueryメソッドがWQLで指定した条件での通知を待つためのオブジェクトを作成しています。このメソッドを実行するとSWbemEventSource型が帰ってきます。
この型にはNextEventメソッドが用意されていてWQLで指定したクエリーのイベントが発生するまでプログラムがそこで待つことになります。
今回はWin32_Processを使用したサンプルで何かアプリケーションを実行してプロセスが作成するイベントが発生するまで待つ形になります。

WQLで指定しているWITHIN句はポーリングする間隔(秒)です。待ち続けている間ここで指定したポーリングの間隔でプロセスが作成されたか否かをチェックします。
__instancecreationeventはインスタンスが作成された際に発生するイベントを取得することを示しています。
TargetInstance isa 'Win32_Process'という形で明示しておく事によりイベント発生時にはTargetInstanceを経由してWin32_Processの各種値の取得が可能です。

最後にイベントが発生した際に起動されたプロセスが「NOTEPAD.EXE」であればメッセージボックスを表示して勝手に終了させてしまいます。
メモ帳が起動したかどうか確認するためにPrcEvt.TargetInstance.Nameという記述を行っていますがこれは、イベントが発生した際の情報が Win32_Processクラスの実装のとおりPrcEvt.TargetInstanceで参照できるようになるため可能になります。