Como compactar arquivos na linha de comando do XP sem ferramentas / downloads adicionais

Question

Depois de procurar no Google e verificar um thread antigo no ServerFault, pensei em tentar aqui. Sem downloads adicionais, em uma nova instalação do XP SP3, como posso executar um script para extrair o arquivo ZIP em um .zip?

As pessoas tentaram dizer para usar utilitários de terceiros, mas isso também exige que você baixe um programa e verifique se eles estão no mesmo local o tempo todo. Eu não quero baixar o Microsoft Resource Kit apenas para este pedaço de funcionalidade em vários computadores

    

Answer 1

Você pode fazer isso com o VBScript. Esta pergunta foi feita no Stack Overflow , e esta resposta vem de Jay :

Dim fso, winShell, MyTarget, MySource, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set winShell = createObject("shell.application")


MyTarget = Wscript.Arguments.Item(0)
MySource = Wscript.Arguments.Item(1)

Wscript.Echo "Adding " & MySource & " to " & MyTarget

'create a new clean zip archive
Set file = fso.CreateTextFile(MyTarget, True)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

winShell.NameSpace(MyTarget).CopyHere winShell.NameSpace(MySource).Items

do until winShell.namespace(MyTarget).items.count = winShell.namespace(MySource).items.count
    wscript.sleep 1000 
loop

Set winShell = Nothing
Set fso = Nothing

    

Answer 2

Acredito que o Windows XP tenha uma função interna para isso, chamado Compact.

COMPACT