Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Не срабатывает часть скрипта при его первом запуске

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

Старожил


Сообщения: 255
Благодарности: 26

Профиль | Отправить PM | Цитировать


Добрый день. Имеется скрипт:
Скрытый текст

Код: Выделить весь код
#include <WinAPIEx.au3>
Opt('WinTitleMatchMode', 2)

run ( @ComSpec & " /c " & """c:\Documents and Settings\lepta\Рабочий стол\Включить Х.cmd""", "")
sleep (10000)
_WinAPI_ShellObjectProperties( "X:\" )

;Запуск свойств диска Х:\ и его расшаривание
WinWait( "[TITLE:Свойства; CLASS:#32770]", "")
ControlClick ( "[TITLE:Свойства; CLASS:#32770]", "", "[CLASS:SysTabControl32; INSTANCE:1]", "main", 1, 205,12)
ControlClick ( "[TITLE:Свойства; CLASS:#32770]", "Если, несмотря на это, вы все равно хотите открыть общий доступ к корневой папке диска, щелкните здесь", "[CLASS:SysLink; INSTANCE:4]", "main", 1, 134,54)
ControlCommand ( "[TITLE:Свойства; CLASS:#32770]", "Открыть о&бщий доступ к этой папке", "Button4", "Check", "")
ControlClick ( "[TITLE:Свойства; CLASS:#32770]", "Локальный общий доступ и безопасность", "Button6", "main", 1)
WinWaitClose ( "[TITLE:Свойства; CLASS:#32770]", "Локальный общий доступ и безопасность")

;Закрыть торрент, если он запущен
If ProcessExists ("uTorrent.exe") Then
	ProcessClose ( "uTorrent.exe" )
EndIf


Проблема состоит в том, что диск ни в какую не хочет расшириваться при первом запуске скрипта. Если отключить диск и снова запустить скрипт, то всё отлично срабатывает. Подскажите, пожалуйста, в чём может быть проблема?

Отправлено: 13:32, 18-04-2017

 

Старожил


Сообщения: 168
Благодарности: 40

Профиль | Отправить PM | Цитировать


sNc-DAntES, наверное, требуются права админа? Попробуйте добавить второй строкой
Код: Выделить весь код
#RequireAdmin

-------
ОЗ


Отправлено: 14:27, 24-04-2017 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 255
Благодарности: 26

Профиль | Отправить PM | Цитировать


Цитата oz84:
наверное, требуются права админа? Попробуйте добавить второй строкой »
Да нет, я на ХР, тут с этим проще. Добавил, ничего не изменилось.

Отправлено: 15:45, 24-04-2017 | #12


Старожил


Сообщения: 168
Благодарности: 40

Профиль | Отправить PM | Цитировать


sNc-DAntES, вот в таком виде
Скрытый текст
Код: Выделить весь код
#NoTrayIcon

Local $iCount = 0

If FileExists('X:\') Then
    MsgBox(48 + 4096, 'Расшаривание X:\', 'Диск X:\ уже существует!')
Else
    FileChangeDir('C:\Temp\True Crypt')
    RunWait('TrueCrypt.exe /v C:\Temp\123.tc /lx /m ro /p 123 /q', '', @SW_HIDE)
    While 1
        If $iCount >= 10000 Then
            MsgBox(48 + 4096, 'Расшаривание X:\', 'Запуск TrueCrypt почему-то не сработал!')
            Exit
        EndIf
        If FileExists('X:\') Then ExitLoop
        $iCount += 200
        Sleep(200)
    WEnd
    RunWait(@ComSpec & ' /C net share ShareX=X:\', '', @SW_HIDE)
    MsgBox(64 + 4096, 'Расшаривание X:\', 'Готово!')
EndIf

у меня срабатывает на WinXP SP3 и WinXP SP2. Диск расшаривается, изменение файлов разрешено, но т.к. монитрование в режиме только чтения - получаю отлуп.

Если запустить cmd и последовательно вставить
Код: Выделить весь код
cd /d "'C:\Program Files\Totalcmd\Utils\-=MySys=-\TrueCrypt"
TrueCrypt.exe /v D:\Lepta.tc /lx /m ro /p пароль /q
net share ShareX=X:\
сработает?

-------
ОЗ


Последний раз редактировалось oz84, 24-04-2017 в 23:49. Причина: Лишний предлог


Отправлено: 23:49, 24-04-2017 | #13


Старожил


Сообщения: 255
Благодарности: 26

Профиль | Отправить PM | Цитировать


Цитата oz84:
вот в таком виде »
Снова ничего. Если скрипт сохранить и запустить, то выдаёт ошибку в 9 строке: "Unterminated string"
Цитата oz84:
сли запустить cmd и последовательно вставить »
Да, тогда диск монтируется но с полными правами. Монтировать диск в режиме чтения не вариант, т.к. иногда мне нужно давать полный доступ, а в этом случае диск придётся перемонтировать.

Отправлено: 10:13, 25-04-2017 | #14


Старожил


Сообщения: 168
Благодарности: 40

Профиль | Отправить PM | Цитировать


sNc-DAntES, покажите вашу 9ю строку из скрипта, т.к. моя определённо "terminated".

Вариант переписать на AutoIt предложеный выше VBS-скрипт или оказаться от AutoIt и добавить в него монтирование и расшаривание не рассматривали? Честно говоря, у меня опыта немного, а протокол SMB не люблю и не было необходимости разбираться и, почти, пользоваться. Возможно, всё можно попроще разрулить на уровне прав NTFS, если в контейнере используется NTFS?

-------
ОЗ


Отправлено: 22:25, 25-04-2017 | #15


Старожил


Сообщения: 255
Благодарности: 26

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
RunWait('TrueCrypt.exe "/v d:\Lepta2.pgd /lx /m ro /p 123 /q', пароль", @SW_HIDE)

Отправлено: 10:27, 26-04-2017 | #16


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


sNc-DAntES, у Вас кавычки не согласованы — раз, и синтаксис функции неправильный — два.

Отправлено: 10:58, 26-04-2017 | #17



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Не срабатывает часть скрипта при его первом запуске

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Часть активных программ не ображается при запуске Navarro Microsoft Windows 7 4 09-01-2017 16:06
Разное - [решено] Не создавть пользователя при первом запуске The_Immortal Microsoft Windows 7 3 16-03-2015 12:34
Не срабатывает часть скрипта при первом входе illznn Автоматическая установка Windows 2000/XP/2003 3 09-04-2009 17:19
выполнение скрипта при ПЕРВОМ входе пользователя tojlst9lk Microsoft Windows NT/2000/2003 1 16-03-2009 20:12
Не до конца срабатывает установка с ключём /S при запуске из батника Baw17 Автоматическая установка приложений 8 27-01-2007 09:41




 
Переход