Столкнулся с проблемой при написания скрипта для архивации:
VBS Code:

Dim fso, f, WSHshell, oExec, DateLast2, DateNew


CStr(DatePart("yyyy", Now()))

DateNew = Date()
DateLast2 = DateAdd("d",-2,DateNew)

DateNew = replace(DateNew,".","_")
DateLast2 = replace(DateLast2,".","_")


  

Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHshell = CreateObject("WScript.Shell")


WshShell.Exec("taskkill /IM 1cv8.exe /T /F")

[b]WScript.Sleep 10000[/b]

Set oExec = WshShell.Exec(Chr(34) & "C:\Program Files (x86)\1cv82\common\1cestart.exe" & Chr(34) & " config /Ssrv\nm /Nadm /P12345 /DumpIBG:\" & DateNew & ".dt")
[b]Do While oExec.Status = 0
     WScript.Sleep 100
Loop
[/b]

Set f = fso.CreateTextFile("ftp.a", True)
f.WriteLine("open хх.ххх.хх.ххх")
f.WriteLine("пользователь")
f.WriteLine("пароль")
f.WriteLine("put " & DateNew & ".dt")
f.WriteLine("delete " & DateLast2 & ".dt")
f.Write("quit")
f.Close

Set oExec = WshShell.Exec("ftp -s:ftp.a")
[b]Do While oExec.Status = 0
     WScript.Sleep 100
Loop
[/b]

fso.DeleteFile(DateNew & ".dt")

проблема в том что

Do While oExec.Status = 0
     WScript.Sleep 100
Loop

не работает - то есть не ждет завершения процесса. Может кто сталкивался?