Цитата: Mikhail от 18.11.2023, 16:22

Илья, Привет.
Попробуй.

@echo off
set VERACRYPT_PATH="Путь до VeraCrypt.exe"
set CONTAINER_PATH="путь до контейнера"
set MOUNT_PATH="Буква диска_X:"

echo enter password:
set /p PASSWORD=

%VERACRYPT_PATH% /q /v %CONTAINER_PATH% /p %PASSWORD% /l %MOUNT_PATH% /e

 

Цитата: Илья от 18.11.2023, 19:21

Mikhail, спасибо большое!

Цитата: Илья от 18.11.2023, 19:32

Mikhail, простите, еще вопрос про скрытый режим запуска..

Цитата: Илья от 18.11.2023, 20:01

И блин, сама программа не запускается, столкнулся с проблемой, что настроил авто размонтирование, оно не происходит если не запущенна программа..

Цитата: Илья от 18.11.2023, 20:03

Цитата: Илья от 18.11.2023, 19:32

Mikhail, простите, еще вопрос про скрытый режим запуска..

Имею в виду чтобы окно не вылазило...

Цитата: Mikhail от 19.11.2023, 03:54

На vbs, монтирует и приложение само запускает.

Dim objShell, VERACRYPT_PATH, CONTAINER_PATH, MOUNT_PATH
Dim SECOND_APPLICATION_PATH

VERACRYPT_PATH = "Путь_VeraCrypt.exe"
CONTAINER_PATH = "Путь_Контейнер"
MOUNT_PATH = "X:"
SECOND_APPLICATION_PATH = "Путь_для_запуска_VeraCrypt.exe"

Set objShell = CreateObject("WScript.Shell")

veracryptCommand = CHR(34) & VERACRYPT_PATH & CHR(34) & " /q /v " & CHR(34) & CONTAINER_PATH & CHR(34) & " /l " & CHR(34) & MOUNT_PATH & CHR(34) & " /e"

objShell.Run veracryptCommand, 0, True

secondAppCommand = CHR(34) & SECOND_APPLICATION_PATH & CHR(34)

objShell.Run secondAppCommand, 0, True

Цитата: Илья от 18.11.2023, 20:03

Имею в виду чтобы окно не вылазило...

Окно VeraCrypt или cmd что было?, просто куда пароль тогда вводить)..или я не так понял...

Цитата: Илья от 20.11.2023, 06:15

Mikhail, Доброго времени суток! Спасибо большое, так даже лучше!

Цитата: Илья от 20.11.2023, 06:24

Mikhail, простите, вопрос возможно ли vbs на размонтирование (обратный порядок)?

Цитата: Mikhail от 20.11.2023, 08:20

Цитата: Илья от 20.11.2023, 06:24

Mikhail, простите, вопрос возможно ли vbs на размонтирование (обратный порядок)?

Сделал в одном vbs все, монтирует, при повторном запуске, размонтирует.

Dim objShell, VERACRYPT_PATH, CONTAINER_PATH, MOUNT_PATH, SECOND_APPLICATION_PATH
Dim veracryptCommand, secondAppCommand

VERACRYPT_PATH = "Путь_до_VeraCrypt.exe"
CONTAINER_PATH = "Путь_до_контейнера"
MOUNT_PATH = "X:"
SECOND_APPLICATION_PATH = "Путь_до_VeraCrypt.exe"

Set objShell = CreateObject("WScript.Shell")

If CheckIfMounted(MOUNT_PATH) Then
    objShell.Run CHR(34) & VERACRYPT_PATH & CHR(34) & " /q /d /l " & CHR(34) & MOUNT_PATH & CHR(34), 0, True
Else
    veracryptCommand = CHR(34) & VERACRYPT_PATH & CHR(34) & " /q /v " & CHR(34) & CONTAINER_PATH & CHR(34) & " /l " & CHR(34) & MOUNT_PATH & CHR(34) & " /e"
    objShell.Run veracryptCommand, 0, True
End If

secondAppCommand = CHR(34) & SECOND_APPLICATION_PATH & CHR(34)
objShell.Run secondAppCommand, 0, True

Function CheckIfMounted(mountPoint)
    Dim objFSO, drive
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.DriveExists(mountPoint) Then
        Set drive = objFSO.GetDrive(mountPoint)
        
        If drive.IsReady Then
            CheckIfMounted = True
        End If
    End If
End Function

 

Цитата: Илья от 20.11.2023, 09:49

Mikhail, ОГРОМНОЕ спасибо, тема решена.

Цитата: Alas Nameless от 11.03.2024, 10:45

Добрый день.
Mikhail, а если контейнер не файл, а полностью зашифрованный жёсткий диск, что писать в CONTAINER_PATH =?

Цитата: Mikhail от 11.03.2024, 11:41

Alas Nameless, Привет.
Он же грузиться с системой и монтируется, как ты его собрался размонтировать и монтировать скриптом? Или ты про доп накопитель который не занят ничем при загрузке винды?, то просто впиши букву X: например.

Цитата: Alas Nameless от 11.03.2024, 11:48

Или ты про доп накопитель который не занят ничем при загрузке винды?, то просто впиши букву X: например.

Да, имел ввиду диск без системы, спасибо.