So komprimieren Sie Dateien in der XP-Befehlszeile ohne zusätzliche Tools / Downloads

Nachdem ich in Google gestöbert und einen alten Thread in ServerFault überprüft hatte, dachte ich, ich würde es hier versuchen. Wie kann ich bei einer Neuinstallation von XP SP3 ohne zusätzliche Downloads ein Skript ausführen, um eine Datei zu extrahieren UND in eine ZIP-Datei zu komprimieren?

Die Leute haben versucht, Hilfsprogramme von Drittanbietern zu verwenden, aber dazu muss auch ein Programm heruntergeladen werden und sichergestellt werden, dass sie sich die ganze Zeit am selben Ort befinden. Ich möchte das Microsoft Resource Kit nicht nur für diesen einen Teil der Funktionalität auf mehreren Computern herunterladen

Sie können dies mit VBScript tun. Diese Frage wurde bei Stack Overflow gestellt , und diese Antwort stammt von 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

Ich glaube, dass Windows XP eine eingebaute Funktion für diese namens Compact hat.

KOMPAKT