拡張子:Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set objMonitor = objWMIService. _ ExecNotificationQuery("select * from __instancecreationevent " _ & " within 1 where TargetInstance isa 'Win32_Process'") Do ' 次に新しいプロセスが開始されるまで、待ちます Set objProcess = objMonitor.NextEvent ' 終了する手段として winver.exe を実行します if Ucase( objProcess.TargetInstance.Name ) = "WI