How to set it up

• On the local computer’s C-drive, launch TrueCrypt and build a storage device file to store your portable applications and data. Just be sure to choose a size that will fit on the USB drive. It is recommended that you build the storage on a PC’s hard drive first then copy the storage file to the USB drive.Map the TrueCrypt storage to a drive letter.
• Use TrueCrypt to mount this as a drive, and copy/install PortableApps menu to the root of the mapped drive
• Copy other portable applications into PortableApps directory
• Copy the TrueCrypt storage device file and TrueCrypt program to your USB drive
• Copy the following scripts to the USB drive
• Run the VBS script for testing, then unplug and plug in the USB drive for further testing

How to use it

• Plug in the USB drive
• Run the .VBS launch script, and a pop up dialog box will prompt you for a drive letter. You should enter a drive letter available in the host machine.
• Another dialog will appear asking for the password used for unlock the TrueCrypt storage
• The Portable Apps menu will then launch

PortableAppsLaunchFile.vbs

This script will prompt for a drive letter, and then launch the Portable Apps program menu:

Dim driveLetter
driveLetter = InputBox("Define which drive letter to mount")
if driveLetter <> "" then
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "tools\TrueCrypt\TrueCrypt.exe /v Drive\data /m rm /q /l "& driveLetter, 1, true
WshShell.Run "tools\TrueCrypt\TrueCrypt.exe /q preferences"
WshShell.Run """" & driveLetter & ":\Portable Apps\StartPortableApps.exe"""
end if

PortableAppsLaunchFile.vbs

This script will automatically map the letter drive “F”, and then launch the PStart program launcher:

Dim driveLetter
driveLetter = "F"
if driveLetter <> "" then
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "tools\TrueCrypt\TrueCrypt.exe /v Drive\data /m rm /q /l "& driveLetter, 1, true
WshShell.Run """F:\PStart.exe"""
WshShell.Run "tools\TrueCrypt\TrueCrypt.exe /q preferences"
end If