Dim delayer Set delayer = CreateObject("WScript.Shell") WScript.sleep 10000 delayer.Run "HT203_IrisRec", 1, FALSE Set delayer = Nothing WScript.quit