ZenMojo.com

I found a great article about a script to mount a TrueCrypt Volume on Windows here.  It also detailed a script to unmount the volume.

I decided to improve on it a bit, and allow the same script to mount and unmount the volume (by testing to see if the volume is mounted).  I did not include his password parameter because TrueCrypt will ask for the password anyway.  And I really don’t want to code my password into any script.

So here is the script:

REM TrueCrypt mounting script (version 2)
REM Based on script Written by Mark Ursino (allthingsmarked.com)
REM Modified by Zen (Zenmojo.com)
REM Modifications are allowed, but please include these comments
@echo off

set TrueSource=I:\TrueCrypt\truecrypt
set Source=I:\volume.cab
set Drive=O:

IF EXIST “%Drive%” goto unmount

:mount
cls
“%TrueSource%” /v “%Source%” /l “%Drive%” /m /a /p /q
explorer.exe “%Drive%”
cls
goto end

:unmount
cls
“%TrueSource%” /d”%Drive%” /q
cls
goto end

:end
cls

Notes:
TrueSource is the location of your truecrypt.sys file (from the stand-alone version of TrueCrypt)
Source is the source of your TrueCrypt file
Drive is the drive letter you want to mount the file to

Popularity: 55% [?]

I never could find a good script to check to see if a Macromedia Contribute key had been installed for a user on a machine, and if not then to run the key. So I made one. This one is for Contribute 2, but I think it will work with 3 (if you change the Site folder to 3). And it assumes that the user will only be running one Site. I make the Contribute Icon/Shortcut point to this script.

You will need to change “h:\key.stc” to the location of your key. You will need to save the following script as a .vbs

Set objFSO = CreateObject(”Scripting.FileSystemObject”)
Set objNetwork = WScript.CreateObject(”WScript.Network”)
strUserName = objNetwork.UserName
If objFSO.FileExists(”C:\Documents and Settings\” & strUserName & “\Local Settings\Application Data\Macromedia\Contribute 2\Sites\Site1\_mm\contribute.xml”) Then
Set wshShell = WScript.CreateObject (”WSCript.shell”)
wshshell.run “”"C:\Program Files\Macromedia\Contribute 2\Contribute.exe”"”, 6, True
set wshshell = nothing
Wscript.Quit
Else
Wscript.Echo “Your Contribute Key needs to be installed on this computer. Click OK to begin.”
Set wshShell = WScript.CreateObject (”WSCript.shell”)
wshshell.run “h:\key.stc”, 6, True
set wshshell = nothing
End If

References:
1) http://www.microsoft.com/technet/scriptcenter/resources/qanda/jun05/hey0620.mspx
2) http://www.microsoft.com/technet/scriptcenter/resources/qanda/jun05/hey0620.mspx
2) http://www.computerperformance.co.uk/Logon/Logon_HomeDirAdv.htm

Popularity: 37% [?]