Linha de comando do Windows para zipar arquivos grandes usando ferramentas nativas do Windows

Question

Eu tenho abaixo o script pzip.vbs deste blog para compactar um arquivo. Mas recebendo erro como pzip.vbs(10, 3) Microsoft VBScript runtime error: Object required: 'zip' . Alguma coisa errada no roteiro? Também funcionará para arquivo de tamanho de 4GB?

Linha de comando: CScript pzip.vbs targetfile.zp.dat sourcefile.dat

Script em pzip.vbs:

Set objArgs = WScript.Arguments
ZipFile = objArgs(0)

' Create empty ZIP file and open for adding
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set zip = CreateObject("Shell.Application").NameSpace(ZipFile)

' Add all files/directories to the .zip file
For i = 1 To objArgs.count-1
  zip.CopyHere(objArgs(i))
  WScript.Sleep 60000 'REQUIRED!! (Depending on file/dir size)
Next