[oz84]

sNc-DAntES, а диск вообще монтируется после этого?
Бегло погуглил: разве нельзя просто смонтировать контейнер только на чтение? (К слову, в нагугленном было, что при использовании /v и /q параметр /a становится бесполезным, убрал.) Наверное, можно и батник написать, но раз уж в разделе AutoIt, я бы попробовал как-то так (с проверками по привычке)

Код:

#NoTrayIcon

If FileExists('X:\') Then
    MsgBox(48 + 4096, 'Расшаривание X:\', 'Диск X:\ уже существует!')
Else
    FileChangeDir('C:\Program Files\Totalcmd\Utils\-=MySys=-\TrueCrypt')
    RunWait('TrueCrypt.exe /v D:\Lepta.tc /l x /m ro /p пароль /q', '', @SW_HIDE)
    While 1
        If FileExists('X:\') Then ExitLoop
        Sleep(150)
    WEnd
    RunWait(@ComSpec & ' /C net share  ShareX=X:\', '', @SW_HIDE)
    MsgBox(48 + 4096, 'Расшаривание X:\', 'Вроде сработало?')
EndIf

Или вместо сообщения просто попробовать открыть, как-то так

Код:

Run('explorer.exe "\\' & @ComputerName & '\ShareX"')

P.S. FileChangeDir(), думаю, не обязательно, просто чтобы строку подсократить.