VBScript для извлечения Zip архива

Формулировка задачи:

Доброго времени суток! Есть скрипт на VBScript для обновления телепрограммы к приложению DVBLink IP-TV, который сначала скачивает архив с сайта http://www.sinor.ru, извлекает файл, и удаляет за собой мусор.
Уважаемые знатоки vbs поправьте скрипт так, чтобы при извлечении файлов из архива он заменял/пропускал старые файлы без предупреждения. Спасибо!
Вот скрипт:

a=createobject()
 b=createobject()
a.,,
a.send
b.
b.=
b. a.responsebody
b.savetofile

ZipFile=
ExtractTo=
 fso = CreateObject() 
  fso.FolderExists(ExtractTo)  
   fso.CreateFolder(ExtractTo) 
  
 objShell = CreateObject() 
 FilesInZip=objShell.(ZipFile).items 
objShell.(ExtractTo).CopyHere(FilesInZip) 
 fso =  
 objShell =  

 objFileSystem, objFile 
 objFileSystem = CreateObject () 
 objFile = objFileSystem.GetFile () 
objFile.Delete

Решение задачи: «VBScript для извлечения Zip архива»

textual
                            Листинг программы 
                        
                            objShell.<font color="blue">NameSpace</font>(ExtractTo).CopyHere FilesInZip, <font color="darkblue"><b>20</b></font>