以上のようなことをふまえて作成したのがこちら↓ Option Explicit Call StartScan If WaitForEndScan Then Call Shutdown End If ' ウィルススキャンを実行する Sub StartScan Dim WShell Set WShell = WScript.CreateObject("WScript.Shell") WShell.CurrentDirectory = "D:\Download\vpscan\" Call WShell.Run("vpscan.exe /ini",,True) End Sub ' ウィルススキャンの終了まで待機する Function WaitForEndScan Dim objWMIService Dim colMonitoredEvents Dim objLatestEvent Set objW