Не срабатывает часть скрипта при его первом запуске

oz84 · Отправлено: **14:38, 18-04-2017** | #2

sNc-DAntES, а зачем вам такая свалка - и батник, и кликанье? Не проще скриптом делать то же, что делает Включить Х.cmd, а ControlClick() заменить на старую добрую net share?

Для начала заменить Run() на RunWait() не пробовали? И ждать придётся не 10 секунд, а ровно столько, сколько нужно.

Iska · Отправлено: **21:09, 18-04-2017** | #3

Цитата oz84:

заменить на старую добрую net share? »

…или использовать Wbem посредством вызова метода .Create() класса Win32_Share.

sNc-DAntES · Отправлено: **10:57, 19-04-2017** | #4

oz84, просто я дерево и знания мои об Autoit весьма поверхностные. net share на Windows XP не имеет параметра /GRANT, то есть нельзя сделать шару только для чтения.

Цитата oz84:

Не проще скриптом делать то же, что делает Включить Х.cmd »

батник делает следующее:

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

Код:

"c:\Program Files\Totalcmd\Utils\-=MySys=-\TrueCrypt\TrueCrypt.exe" /v d:\Lepta.tc /lx /a /p пароль /q

То есть, монтирует диск с помощью TrueCrypt. Не получилось у меня сделать это с помощью скрипта.

Цитата oz84:

Для начала заменить Run() на RunWait() не пробовали? И ждать придётся не 10 секунд, а ровно столько, сколько нужно. »

Спасибо, попробую.

Цитата Iska:

…или использовать Wbem посредством вызова метода .Create() класса Win32_Share. »

Это выходит далеко за границы моих знаний, к сожалению.

Iska · Отправлено: **05:12, 20-04-2017** | #5

Цитата sNc-DAntES:

Это выходит далеко за границы моих знаний, к сожалению. »

Ну, попробуйте разобраться (пример на WSH): Script Create a Shared Folder and Assign Share Permissions. Всяко лучше, нежели эмулировать тыканье мышкой.

sNc-DAntES · Отправлено: **10:56, 20-04-2017** | #6

Iska, то есть начать изучать другой скриптовый язык?

Как вариант, конечно, можно, но может есть вариант с помощью Autoit? Мне кажется лучше здесь изучить вопрос чуть глубже, чем начинать учить новый язык. Буду благодарен, если посоветуете, что почитать по данному вопросу тогда?

Iska · Отправлено: **11:41, 20-04-2017** | #7

sNc-DAntES, код из VBScript WSH практически один-в-один переводится на AutoIt. Можете попросить в Русское сообщество AutoIt, чтобы Вам перевели, или дали иной код.

sNc-DAntES · Отправлено: **10:25, 21-04-2017** | #8

Цитата oz84:

Для начала заменить Run() на RunWait() не пробовали? И ждать придётся не 10 секунд, а ровно столько, сколько нужно. »

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

oz84 · Отправлено: **15:16, 21-04-2017** | #9

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(), думаю, не обязательно, просто чтобы строку подсократить.

sNc-DAntES · Отправлено: **12:31, 24-04-2017** | #10

oz84, Я вставил ваш код в SciTE, жму F5 и не происходит вообще ничего. Я делаю, что-то не так?