Бродя по Google и проверив старый поток в ServerFault, я решил попробовать здесь. Без каких-либо дополнительных загрузок, при новой установке XP SP3, как я могу запустить скрипт для извлечения и архивирования файла в .zip?
Люди пытались сказать, что используют сторонние утилиты, но для этого требуется также загрузить программу и убедиться, что они постоянно находятся в одном и том же месте. Я не хочу загружать Microsoft Resource Kit только для этого одного функционала на нескольких компьютерах
Вы можете сделать это с VBScript. Этот вопрос задавался о переполнении стека, и этот ответ исходит от Джея:
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
Я считаю, что в Windows XP для этого есть встроенная функция Compact.