Option Explicit

Dim objCAB
Dim objFSO
Dim objFile
Dim objShell

Dim objFolderItem

Set objCAB   = WScript.CreateObject("MakeCab.MakeCab") ' Под Windows 2000 указывать напрямую только зависимый от версии CLSID — "MakeCab.MakeCab.1"
Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Shell.Application")


'
' Создание cab-файла
'
objCAB.CreateCab "C:\Test.cab", False, False, False ' Под Windows 2000 — только три параметра

' Добавляем в cab-файл все файлы из папки C:\Temp под теми же именами
For Each objFile In objFSO.GetFolder("C:\Temp").Files
    objCAB.AddFile objFile.Path, objFile.Name
Next

objCab.CloseCab


'
' Просмотр содержимого cab-файла
'
For Each objFolderItem In objShell.Namespace("C:\Test.cab").Items
    WScript.Echo objFolderItem.Name
Next


'
' Извлечение содержимого cab-файла в папку
'
If Not objFSO.FolderExists("c:\Test") Then
    objFSO.CreateFolder "c:\Test"
End If

objShell.Namespace("c:\Test").CopyHere objShell.Namespace("C:\Test.cab").Items


Set objShell = Nothing
Set objFSO   = Nothing
Set objCAB   = Nothing

WScript.Quit 0

REGEDIT4

[HKEY_CLASSES_ROOT\.cab]
@="CLSID\\{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}"
"InfoTip"="Содержит сжатые файлы"

[HKEY_CLASSES_ROOT\.cab\PersistentHandler]
@="{098f2470-bae0-11cd-b579-08002b30bfeb}"

Set oCAB = CreateObject("jsCAB.Ops")
' создание архива:
suc = oCAB.MakeCABFile("C:\Temp\test.cab", "C:\Temp\test1.jpg|C:\Temp\test2.jpg")
' получение информации об архиве:
Set oInfo = oCAB.GetCABInfo("C:\Temp\test.cab")
WScript.Echo oInfo.Path
WScript.Echo oInfo.IsValidCAB ' 0 - normal, 1 - InstallShield CAB, 2 - not a CAB
WScript.Echo oInfo.Solitary ' True - stand-alone CAB
' обход содержимого:
For i = 0 to oInfo.FileCount - 1
   WScript.Echo oInfo.FileName(i) ' имя файла
   WScript.Echo oInfo.FileDate(i) ' дата изменения
   WScript.Echo oInfo.FileSize(i) ' размер в Кб
Next
WScript.Echo oInfo.FileExists("test2.jpg") ' проверка существования файла
' ещё один способ обхода содержимого:
For i = 0 to UBound(oInfo.FileList)
    WScript.Echo oInfo.FileName(i)
Next
For Each el In oInfo.FileList
    WScript.Echo el
Next
' извлечение из архива указанного файла:
suc = oCAB.ExtractSingleFile("C:\Temp\test.cab", "C:\Temp\Testing", "test1.jpg")
' распаковка архива:
suc = oCAB.ExtractCABFiles("C:\Temp\test.cab", "C:\Temp\Testing")