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

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

Ответить
Настройки темы
[решено] Нужно экспортировать в AutoIt

Аватара для SOFFON

Старожил


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

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


Всем привет. Помогите пожалуйста экспортировать в AutoIT этот скрипт

Скрытый текст
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET WW=7164
SET SS=SOURCES
SET IN=NI
FOR %%I IN (C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
SET PW=%%I:\!WW!
SET PS=%%I:\!WW!\!SS!
DIR /D !PS!\INSTALL.WIM&&SET IN=!PS!\INSTALL.WIM
DIR /D !PS!\INSTALL.EPW&&SET IN=!PS!\INSTALL.EPW
DIR /D !PS!\INSTALL.SWM&&SET IN=!PS!\INSTALL.SWM
IF !IN! NEQ NI GOTO :INST
)
IF %IN% EQU NI (
ECHO ERROR - COULD NOT FIND INSTALL.WIM(EPW,SWM) IN %WW%\%SS% FOLDER!
PAUSE
PAUSE
GOTO :RBT
)
:INST
IF EXIST %PS%\AUTOUNATTEND.XML SET UN=/unattend:%PS%\AUTOUNATTEND.XML
IF EXIST %PS%\$OEM$\NUL SET OEM=/m:%PS%\$OEM$
SET ST=%PW%\SETUP.EXE
IF NOT EXIST %ST% SET ST=X:\SETUP.EXE
IF NOT EXIST %ST% GOTO :BAD
IF EXIST %PW%\SETUP.EXE (%ST%) ELSE %ST% /installfrom:%IN% %OEM% %UN%
GOTO :RBT
:BAD
DIR %PW%\ /B
ECHO Cannot find %ST% !
ECHO.
:RBT
EXIT
@ECHO Press a key to reboot now...
PAUSE
WPEUTIL REBOOT
PAUSE

Все должно быть в тихом режиме. Заранее спасибо.

-------
Пока выбор не сделан, все на свете возможно.


Отправлено: 10:51, 16-07-2016

 

Аватара для Creat0R

Must AutoIt


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

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


Не проверял, конвертировал по памяти:

Код: Выделить весь код
$WW = '7164'
$SS = 'SOURCES'
$IN = 'NI'

$aDrives = StringSplit('CDEFGHIJKLMNOPQRSTUVWXYZ', '')

For $i = 1 To $aDrives[0]
    $PW = $aDrives[$i] & ':\' & $WW
    $PS = $aDrives[$i] & ':\' & $WW & '\' & $SS

    If FileExists($PS & '\INSTALL.WIM') Then $IN = $PS & '\INSTALL.WIM'
    If FileExists($PS & '\INSTALL.EPW') Then $IN = $PS & '\INSTALL.EPW'
    If FileExists($PS & '\INSTALL.SWM') Then $IN = $PS & '\INSTALL.SWM'

    If $IN <> 'NI' Then
        INST($PW, $PS)
    EndIf
Next

If $IN = 'NI' Then
    MsgBox(16, 'Error', StringFormat('ERROR - COULD NOT FIND INSTALL.WIM(EPW,SWM) IN %s\%s FOLDER!\n\nPress OK to reboot now...', $WW, $SS))
    Shutdown(6)
    Exit
EndIf

Func INST($PW, $PS)
    Local $UN, $OEM
    Local $ST = $PW & '\SETUP.EXE'

    If FileExists($PS & '\AUTOUNATTEND.XML') Then $UN = '/unattend:' & $PS & '\AUTOUNATTEND.XML'
    If FileExists($PS & '\$OEM$\NUL') Then $OEM = '/m:' & $PS & '\$OEM$'

    If Not FileExists($ST) Then
        $ST = 'X:\SETUP.EXE'
        MsgBox(48, 'Attention', StringFormat('Cannot find %s!', $ST))
    EndIf

    If FileExists($PW & '\SETUP.EXE') Then
        Run($ST)
    Else
        Run($ST & StringFormat(' /installfrom:%s %s %s', $IN, $OEM, $UN))
    EndIf

    Shutdown(6)
    Exit
EndFunc

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:49, 23-07-2016 | #2



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

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


Аватара для SOFFON

Старожил


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

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


Да, проверил все работает. Единственное я добавил ожидание завершение процесса

$Setup = Run

ProcessWaitClose($Setup)

Иначе уходит в перезагрузку не дождавшись завершения run . Огромное спасибо за помощь.

-------
Пока выбор не сделан, все на свете возможно.


Последний раз редактировалось SOFFON, 24-07-2016 в 20:39.


Отправлено: 17:49, 24-07-2016 | #3


Аватара для Creat0R

Must AutoIt


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

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


SOFFON, можно просто использовать RunWait.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 05:00, 25-07-2016 | #4


Забанен


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

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


Помогите. Не могу сообразить как осуществить запуск скрипта AutoIt из другого скрипта AutoIt с параметром под параметром понимается некое значение переменной
И как в запускаемом скрипте распознать этот параметр

Отправлено: 00:00, 09-01-2017 | #5


Старожил


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

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


IrianaTarm, как-то так:
Скрытый текст
первый_скрипт.au3:
Код: Выделить весь код
#NoTrayIcon

Local $sVar = 'некое значение переменной'

If @Compiled Then
    Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @ScriptDir &.'\второй_скрипт.au3" "' & $sVar & '"')
Else
    Run('"' & @AutoItExe & '" "' & @ScriptDir &.'\второй_скрипт.au3" "' & $sVar & '"')
EndIf
второй_скрипт.au3:
Код: Выделить весь код
#NoTrayIcon

If $CmdLine[0] > 0 Then MsgBox(4096, '', $CmdLine[1])

Подробности в справке: Запуск скриптов >> Параметры командной строки
Но вообще, это неподхрдящая тема

-------
ОЗ


Отправлено: 03:07, 11-01-2017 | #6



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Загрузка - Экспортировать список скрытых обновлений ispolin Microsoft Windows 7 0 17-09-2015 14:42
Разное - Экспортировать параметры реестра программ 7human7 Microsoft Windows 7 3 13-05-2011 00:01
[решено] тесты easyQuizzy,как экспортировать в ворд? DiGer911 Хочу все знать 2 07-04-2011 17:06
Kerio - Возможно ли в Kerio WF экспортировать настройки? Bullet-Avalon Сетевые технологии 1 03-04-2009 10:33
Разное - Ищу твикер, способный экспортировать свои настройки andrey782 Программное обеспечение Windows 0 23-02-2009 16:17




 
Переход