Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
# Script extracts installer files from the BitRock InstallBuilder (https://installbuilder.bitrock.com/) archives.
# Script is fully based on code found in the `bitrock-unpacker` (https://github.com/greyltc/bitrock-unpacker).
#
# Tested with ActiveTcl 8.5.18.0.298892 (https://www.activestate.com/products/activetcl/)
#
# Example command:
# > C:\Tcl\bin\base-tcl8.5-thread-win32-ix86.exe bitrock-installer-extract.tcl jxplorer-3.3.1.2-windows-installer.exe out\
if {$argc < 2} {
puts "Usage: $argv0 installerFile outputDirectory"
exit 1
}
set installerFile [lindex $argv 0]
set destDir [lindex $argv 1]
set installerMount installer
vfs::mk4::Mount $installerFile $installerMount -readonly
#file stat $installerMount/lib/tcl8/8.4/http-2.7.9.tm http_stat
#puts "_> stat(lib/tcl8/8.4/http-2.7.9.tm)"
#parray http_stat
puts "Copying Bitrock installer files to $destDir"
file copy -force $installerMount $destDir
puts "Done"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.