[pzh2393]

вдвойне странно.. у меня на двух разных машинах (обе с winXPx86ru)

Скрытый текст

Upd.
Проверил батник, который я тут привел... точно такое же поведение!
Хотя тот батник, что я пользуюсь постоянно, от приведенного отличается только этим:

Код:

    set /p pass= 
    "%MYFILES%" /l%letr% /a devices /hn /cn /mts /mrm /q /w /s /p "%pass%

без ключа "/p" у меня на системе именно такое поведение.. почему-то принудительно подставляет скешированный пароль от другого тома.

[Iska]

Windows XP SP3. Какая версия TrueCrypt (полностью)?

[pzh2393]

Какая версия TrueCrypt (полностью)? »

7.1a

Тут наверное ещё наверное важно уточнить, что и системный раздел зашифрован TrueCrypt.

[Iska]

7.1a »

Аналогично.

Тут наверное ещё наверное важно уточнить, что и системный раздел зашифрован TrueCrypt. »

Ага! Попробуем. Подключаемый раздел зашифрован? Скрыт? Но системный раздел я шифровать не стану, даже не просите .

[pzh2393]

Цитата Iska:
Подключаемый раздел зашифрован?»
Да, весь раздел (диск, винчестер) зашифрован, но на другой машине зашифрованный раздел является лишь логическим разделом диска. Поведение в обоих случаях идентичное.

Цитата Iska:
Скрыт? »
Из системы скрыт (буква не присвоена), а для TrueCrypt является обычным (не скрытым).

Цитата Iska:
Но системный раздел я шифровать не стану, даже не просите »
Зачем такие жертвы, если выяснилось что это особенности поведения самого TrueCrypt, а вовсе не скрипта.

P.S. Если предварительно очистить пароли в кэше драйвера ключом "/wipe" - скрипт отрабатывает нормально.

[pzh2393]

Прошу глянуть, что я сделал не так?

Код:

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 & """ /history n /cache y /mountoption removable /quit", 1, False

					strPath2App = .BuildPath(strDriveLetter, "autorun.bat")
					
					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

Почему не запускается autorun.bat из корневого каталога смонтированного тома?

[Iska]

Почему не запускается autorun.bat из корневого каталога смонтированного тома? »

Например, потому, что этого тома ещё нет:

WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /letter " & strDriveLetter & " /volume """ & strContainerFile & """ /history n /cache y /mountoption removable /quit", 1, False

Замените «False» на «True».

P.S. Если предварительно очистить пароли в кэше драйвера ключом "/wipe" - скрипт отрабатывает нормально. »

Ну, у меня работало и в исходном виде. А вот когда был одинаковый пароль для разных томов — в моём конкретном случае для одного обычного тома и одного скрытого — я наблюдал аналогичное поведение. «Ручками» сделав пароли разными — всё снова заработало.

[pzh2393]

Прошу подсказать ещё раз!

Можно ли передать значение переменной strDriveLetter, указанного выше скрипта, в другой VBS, в частности для использования в autorun.vbs?

Например в таком autorun.vbs

Код:

Option Explicit

WScript.CreateObject("WScript.Shell").Run """" & "sOft\TotalCommander\TOTALCMD.EXE" & """l=strDriveLetter", 3, False

WScript.Quit 0

т.е. запуск TotalCommander сразу с открытым смонтированным диском в панели.

[Iska]

Можно ли передать значение переменной strDriveLetter, указанного выше скрипта, в другой VBS, в частности для использования в autorun.vbs? »

Можно. Например, параметром этого второго скрипта при его вызове. Соответствующим образом модифицировав этот самый второй скрипт.