Очень нужна помощь!

Распаковываю архив. Затем сам архив удаляю. Но так как архив еще не распаковался, то доступа к файлу архива нет.

Подскажите как реализовать в VBScript задержку, чтобы дождаться окончания распаковки.

Function Main()
dim WshShell
dim Command
dim fso
dim pkg
dim conTextFile
dim stpEnterLoop
dim stpFinished
dim Shell

set pkg = DTSGlobalVariables.Parent
set stpEnterLoop = pkg.Steps("DTSStep_DTSActiveScriptTask_2")
set stpFinished = pkg.Steps("DTSStep_DTSActiveScriptTask_5")


Set WshShell = CreateObject("WScript.Shell")
set fso = CREATEOBJECT("Scripting.FileSystemObject")


Command = "d:\7z.exe e -oD:\Alcatel_unload1\ " & DTSGlobalVariables("gv_FileNameTar").Value
WshShell.Run Command

fso.DeleteFile DTSGlobalVariables("gv_FileNameTar").Value

stpEnterLoop.DisableStep = False
stpFinished.DisableStep = True
stpEnterLoop.ExecutionStatus = DTSStepExecStat_Waiting

Main = DTSTaskExecResult_Success
End Function

Использую я это все в ДТС пакетах.

Задам вопрос по другому.

Есть скрипт, в котором выполняется задержка пока длится процесс.


Вся загвоздка в WScript. Везде пишут следующее: Объект WScript можно использовать сразу, без какого-либо предварительного описания или создания, т.к. его экземпляр создается сервером сценариев WSH автоматически.
Но к сожалению обратиться к нему в VBScript не получается.

Подскажите как создать данный объект?