Помогите з скриптом архивации файла средствами VBS (архив либо zip либо rar)

Код упаковки и распаковки ZIP архива есть здесь.
Распаковка производится в процедуре ExtractArchive().

[ссылка заблокирована по решению администрации проекта]. narod. ru/article/sfx/sfx_zip.html