Create a WinZip compatible AES Encrypted Zip

Creates a WinZip compatible 128-bit AES-encrypted .zip archive

Download Chilkat Zip ActiveX

set zip = CreateObject("Chilkat.Zip2")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

success = zip.NewZip("aes.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

'  Set properties to indicate that the Zip should be
'  AES encrypted.

'  A value of 4 indicates WinZip compatible AES encryption.
zip.Encryption = 4

'  Key length can be 128, 192, or 256 bits.
zip.EncryptKeyLength = 128

'  Set the password needed to unzip.
zip.SetPassword "myPassword"

'  Append a directory tree.  The AppendFiles does
'  not read the file contents or append them to the zip
'  object in memory.  It simply appends references
'  to the files so that when WriteZip (or WriteZipAndClose,
'  or WriteExe, etc.) is called, the files are compressed
'  and encrypted.
recurse = 1
zip.AppendFiles "c:/temp/a/*",recurse

'  Write "AesEncrypted.zip"
success = zip.WriteZipAndClose()
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

MsgBox "Zip Created!"