Скрипт на vbs или js

[northern]

Кто-нить писал на этих скриптах? Вопрос вот какой, есть у меня скриптик, он копирует несколько папочек по сетке, а потом архивирует раром. Рар вызывается примерно так:

Код: Выделить всё

    'архивируем раром
    a = """d:\Program files\WinRAR\rar.exe"" u -m1 """ & pathArc & "\" & namearc & """" & " """ & fldNew & "\" & """"
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run a

Так вот, выполняется WshShell.Run и не дожидаясь пока рар закончит свои тёные дела, поток скрипта продолжает своё выполнение. А мне надо в лог писать время начала/окончания архивирования.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

ненавижу все эти явы!
батники рулят ))

[northern]

интересно чё trubb скажет...
=====
да мне мне всё равно на чём ваять, выбираю на чём проще и быстрее, а у wsh много полезных штучек, для работы с файлами, каталогами.

[trubb]

до скриптов аще руки не добирались....
мне на дельфи писанины хватает....

[nop]

Из мануала по WSH о функции Exec:

Код: Выделить всё

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("calc")

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

WScript.Echo oExec.Status