Sys-Admin Forum

Запуск программы с задержкой

Можно запустить приложение с задержкой к примеру в 10 секунд, но как это сделать?
Есть решение:

========= Delay.vbs =======================
Delay=Wscript.Arguments.Named.Item("d")
Exec=Wscript.Arguments.Named.Item("e")
Call Proba (exec,delay)

Sub Proba(program,delay)
if isempty(Delay)=true then
delay=1
end if
if isempty(program)=true then
exit sub
end if
delay=delay*1000

Wscript.Sleep delay
set WSHell=Wscript.CreateObject("WScript.Shell")
program=""""&program&""""
wshell.run(program)
End Sub
========== Delay.vbs ========================

Паpаметpы:
/e:Путь к программе
/d:Пауза в секундах

Пpимеp:
C:\User\VBScripts\Delay.vbs /e:“C:\windows\notepad.exe” /d:10

Пример был найден здесь.