strCommand = """c:this.exe"" IEXPLORER=1"
Set objShell = CreateObject("WScript.Shell")
objShell.Run strCommand, 0, True

Function wait()
    set service = GetObject ("winmgmts:")
    for each Process in Service.InstancesOf ("Win32_Process")
        If Process.Name = "this.exe" then
            WScript.Sleep 2000
            call wait()
            wscript.echo "file is not running"
        End If
    next
    wscript.echo "File is running"
End Function