VBS/WSH/JS - [решено] подключение/отключение томов TrueCrypt

mwz · Отправлено: **01:43, 25-01-2015** | #2

Цитата pzh2393:

автоматическую подстановку буквы диска (берется из имени файла) при перетаскивании нужного файла на скрипт. »

Цитата pzh2393:

а один для всех случаев, как BAT не получится »

Почему не получится – при ваших требованиях?
Пишем батник, который ниже, и кладём ярлык к нему на рабочий стол. Нужный файл бросаем на этот ярлык.

Код:

@echo off
setlocal
::Если батник запущен без параметра (например, просто щелчком по ярлыку), то завершаем его работу
	if "%1" == "" goto fin
::Иначе во временную переменную вводим путь/имя того файла, который бросили на ярлык к этому батнику
	set tempvar1=%1
::и вытаскиваем из неё букву диска, на котором лежит этот файл
	set letr=%tempvar1:~0,1%
::после чего продолжение (в которое я не вчитывался) вашего батника,
::к которому дописан выход на случай отсутствия параметра %1
	set "file=w.tc"
	set "TrCt=C:\Program Files\TrueCrypt\TrueCrypt.exe"
if exist "%letr%:" goto ds
	"%TrCt%" /l%letr% /v %file% /hn /cn /mrm /q
	exit
:ds
	"%TrCt%" /d%letr% /q /s /w
	if exist "%letr%:" goto :ds
	exit
:fin
exit

Iska · Отправлено: **08:33, 25-01-2015** | #3

Мой вариант в виде пакетного файла:

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

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sContainerFile=%~1

if defined sContainerFile (
	if exist "%sContainerFile%" (
		if exist "%ProgramFiles%\TrueCrypt\TrueCrypt.exe" (
			if not exist "%~n1:\." (
				start "" "%ProgramFiles%\TrueCrypt\TrueCrypt.exe" /letter %~n1 /volume "%sContainerFile%" /history n /cache n /mountoption removable /quit
			) else (
				start "" "%ProgramFiles%\TrueCrypt\TrueCrypt.exe" /dismount %~n1 /wipecache /silent /quit
			)
		) else (
			echo Can't find [TrueCrypt.exe] in [%ProgramFiles%\TrueCrypt].
			exit /b 3
		)
	) else (
		echo Can't find TrueCrypt container file [%sContainerFile%].
		exit /b 2
	)
) else (
	echo Usage: %~nx0 ^<TrueCrypt container file^>
	exit /b 1
)

endlocal
exit /b 0

и на WSH:

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

Код:

Option Explicit

Dim strContainerFile

Dim strPath2TrueCrypt
Dim strDriveLetter


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 = .GetBaseName(strContainerFile) & ":"
				
				If Not .DriveExists(strDriveLetter) Then
					WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /letter " & strDriveLetter & " /volume """ & strContainerFile & """ /history n /cache n /mountoption removable /quit", 1, False
				Else
					WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /dismount " & strDriveLetter & " /wipecache /silent /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

pzh2393 · Отправлено: **16:10, 25-01-2015** | #4

Большое спасибо!

Батники не пробовал, поскольку вариант с ярлыком не подходит, т.к. тома (файлы) располагаются на флешке и возможно подключение с разной буквой самой флешки.

А вот в скрипте VBS обнаружилась интересная "фича".
Если имя файла состоит больше чем с одной буквы - том монтируется под первой из них, жаль только при попытке отмонтирования выдает ошибку о том что том уже смонтирован.

Хотел бы дополнительно попросить, чтобы такое поведение осталось, но отмонтирование происходило нормально.

Iska · Отправлено: **17:02, 25-01-2015** | #5

Цитата pzh2393:

А вот в скрипте VBS обнаружилась интересная "фича". »

Какую логику заказывали, ту и получили. Никаких проверок на то, что базовое имя файла контейнера окажется длиннее одного символа, не делалось.

Цитата pzh2393:

жаль только при попытке отмонтирования выдает ошибку о том что том уже смонтирован. »

Это естественно — см. выше.

Цитата pzh2393:

Хотел бы дополнительно попросить, чтобы такое поведение осталось, но отмонтирование происходило нормально. »

Замените строку:

Код:

strDriveLetter = .GetBaseName(strContainerFile) & ":"

на:

Код:

strDriveLetter = Left(.GetBaseName(strContainerFile), 1) & ":"

mwz · Отправлено: **23:09, 25-01-2015** | #6

Цитата pzh2393:

вариант с ярлыком не подходит, т.к. тома (файлы) располагаются на флешке и возможно подключение с разной буквой самой флешки »

Файлы и скрипт находятся на одной и той же флэшке? Если да – то ещё проще: небольшая модификация пакетного файла – и при его запуске (хоть двойным щелчком, хоть как) автоматом будет подставляться текущая буква флэшки, на которой лежит комплект:

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

Код:

@echo off
setlocal
::Во временную переменную считываем букву диска/флэшки (например, H:), на котором лежит батник
	set tempvar1=%~d0
::и вытаскиваем из неё только букву
	set letr=%tempvar1:~0,1%
::после чего продолжение (в которое я не вчитывался) вашего батника,
	set "file=w.tc"
	set "TrCt=C:\Program Files\TrueCrypt\TrueCrypt.exe"
if exist "%letr%:" goto ds
	"%TrCt%" /l%letr% /v %file% /hn /cn /mrm /q
	exit
:ds
	"%TrCt%" /d%letr% /q /s /w
	if exist "%letr%:" goto :ds
	exit

pzh2393 · Отправлено: **18:30, 31-01-2015** | #7

Прошу не счесть за наглость, но может поможете перевести на WSH и этот пакетный скрипт?

Код:

@echo off
    set letr=x
set "MYFILES=C:\Program Files\TrueCrypt\TrueCrypt.exe"
if exist "%letr%:" goto ds
    "%MYFILES%" /l%letr% /a devices /hn /cn /mts /mrm /q /w /s
        echo start Dexpot? (y/n)
        set /p varl=""
        if %varl%==y (start /b "" "%letr%:\sOft\Dexpot\Dexpot.exe")
        if %varl%==n (start /b "" "%letr%:\sOft\TotalCommander\TOTALCMD.EXE %letr% %letr%")
    exit
:ds
    taskkill.exe /fi "ImageName eq dexpot.exe"
:rp
    "%MYFILES%" /d%letr% /q /s /w
    @echo on
    if exist "%letr%:" goto rp
    exit

Поскольку подключается не контейнер, а раздел диска - по аналогии с предыдущим вариантом, букву для подключения брать из имени самого скрипта.

Iska · Отправлено: **23:33, 31-01-2015** | #8

Пробуйте (по понятным причинам — не проверялось):

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

Код:

Option Explicit

Dim strPath2TrueCrypt
Dim strDriveLetter

Dim strPath2App


With WScript.CreateObject("Scripting.FileSystemObject")
	strPath2TrueCrypt = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:ProgramFiles").self.Path, "TrueCrypt\TrueCrypt.exe")
	
	If .FileExists(strPath2TrueCrypt) Then
		strDriveLetter = Left(WScript.ScriptName, 1) & ":"
		
		If Not .DriveExists(strDriveLetter) Then
			WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /letter " & strDriveLetter & " /auto devices /history n /cache n /mountoption removable /mountoption timestamp /quit", 1, True
			
			Select Case MsgBox("Yes:    start «Dexpot»" & vbLf & "No:     start «Total Commander»" & vbLf & "Cancel: nothing start", vbInformation + vbYesNoCancel, "Start application")
				Case vbYes
					strPath2App = .BuildPath(strDriveLetter, "sOft\Dexpot\Dexpot.exe")
					
					If .FileExists(strPath2App) Then
						WScript.CreateObject("WScript.Shell").Run """" & strPath2App & """", 1, False
					Else
						WScript.Echo "Can't find [" & strPath2App & "]."
						WScript.Quit 2
					End If
				Case vbNo
					strPath2App = .BuildPath(strDriveLetter, "sOft\TotalCommander\TOTALCMD.EXE")
					
					If .FileExists(strPath2App) Then
						WScript.CreateObject("WScript.Shell").Run """" & strPath2App & """", 1, False
					Else
						WScript.Echo "Can't find [" & strPath2App & "]."
						WScript.Quit 2
					End If
				Case vbCancel
					' Nothing to do
			End Select
		Else
			WScript.CreateObject("WScript.Shell").Run """" & strPath2TrueCrypt & """ /dismount " & strDriveLetter & " /wipecache /silent /quit", 1, True
		End If
	Else
		WScript.Echo "Can't find [" & strPath2TrueCrypt & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

Снятие процесса приложения виртуальных рабочих столов делать не стал. Проверку на то, что первый символ скрипта — буква, тоже не делал.

pzh2393 · Отправлено: **15:56, 01-02-2015** | #9

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

Iska · Отправлено: **23:26, 01-02-2015** | #10

pzh2393, Вы меня таки вынудили пожертвовать разделом для проверки

.

У меня появляется:

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

При повторном запуске скрипта — диск отмонтируется (если, конечно, не был заблокирован каким-либо приложением).