Dim strDriveLetter

Dim strPath2App

If WScript.Arguments.Count = 1 Then
   strContainerFile = WScript.Arguments.Item(0)
   
   With WScript.CreateObject("Scripting.FileSystemObject")
      If .FileExists(strContainerFile) Then
         strPath2TrueCrypt = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:ProgramFiles").self.Path, "TrueCrypt\TrueCrypt.exe")
         
         If .FileExists(strPath2TrueCrypt) Then
            strDriveLetter = Left(.GetBaseName(strContainerFile), 1) & ":"
            
            If Not .DriveExists(strDriveLetter) Then
               WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /letter " & strDriveLetter & " /volume """ & strContainerFile & """ /p *** /history n /cache y /mountoption removable /quit", 1, True

               strPath2App = .BuildPath(strDriveLetter, "autorun.vbs")
               
               If .FileExists(strPath2App) Then
                  WScript.CreateObject("WScript.Shell").Run """" & strPath2App & """", 1, False
               Else
                  WScript.Quit 4
               End If

            Else
               WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /dismount " & strDriveLetter & " /quit", 1, False
            End If

         Else
            WScript.Echo "Can't find [" & strPath2TrueCrypt & "]."
            WScript.Quit 3
         End If
      Else
         WScript.Echo "Can't find TrueCrypt container file [" & strContainerFile & "]."
         WScript.Quit 2
      End If
   End With
Else
   WScript.Echo "Usage: " & WScript.ScriptName & " <TrueCrypt container file>"
   WScript.Quit 1
End If

WScript.Quit 0

TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\TrueCrypt_rm.vbs" "d:\work.edc"

C:\Program Files (x86)\TotalCommander\ICO\sys\edc.ico


0
-1

TOTALCMD#BAR#DATA
cd *.*|*\
WCMICONS.DLL,24
Files only
0
-1

'======================================================================
' Сделать скрытыми/нескрытыми выделенные объекты (без рекурсии)

' Параметры:
' {файл-список}

' Пример параметров вызова из TC:
' %WL
'======================================================================
Option Explicit
on error resume next
Dim FSO, FileList, List, F, object1
Set FSO  = CreateObject("Scripting.FileSystemObject")
FileList = WScript.Arguments(0)
List     = Split(FSO.OpenTextFile(FileList,,,-1).ReadAll, vbNewLine)
For Each F In List
  If F <> "" Then
    set object1 = CreateObject("Scripting.FileSystemObject").Getfile(F) ' Имя файла
   set object1 = CreateObject("Scripting.FileSystemObject").GetFolder(F) ' Имя папки
   If object1.attributes and 2 Then
          object1.attributes = object1.attributes - 2
      Else
           object1.attributes = object1.attributes + 2
      End If

  End If
Next

Set FSO = Nothing
Wscript.Quit 0

ESC=cm_SrcAllFiles