Автор Тема: [Автоматизация] настройки windows 7 и установка необходимых программ.  (Прочитано 7961 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Agat [?]

  • Новичок
  • *
  • Сообщений: 3
  • Репутация: 0
    • Награды
Здравствуйте господа! :)
Пишу скрипт который поможет мне оптимизировать процесс настройки и установки некоторого софта(в планах так же установка драйверов) на свежеустановленную систему. Софт ставиться из пакетов входящих в один из WPI.
Сначала выполняю от имени админа первый скрипт:
Код: AutoIt [Выделить]
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", "00000000") ;отключаем контроль учетных записей
if DirCopy("\auto_install", "C:\auto_install", 1) = 1 then
    if FileCopy("C:\auto_install\script.lnk", @StartupDir & "\script.lnk") =1 then Shutdown(6) 
        EndIf


затем, после перезагрузки, стартует второй скрипт:
Код: AutoIt [Выделить]
Run("7600_RTM_v13.2.exe")
Sleep(5000)
Opt("MouseCoordMode",0)
WinWaitActive("Добро пожаловать!                                                  Выпуск 13.2 (09/06/2010)")
MouseClick("left",420,137,1,0)
Sleep(800)
WinActivate("Добро пожаловать!                                                  Выпуск 13.2 (09/06/2010)")
MouseClick("left",519,14,1,0)

Run("WinRAR_3.91.exe")
Run("WinDjView.exe")
Run("TotalCom_7.50.exe")
Run("KMPlayer_2.9.4.1435.exe")
Run("KLiteMega_5.61.exe")
Run("FoxitReader_3.0.1506.exe")
Run("Everest_5.30.1977.exe")
Run("AIMP_2.60.530.exe")
Run("3DMark06.exe")
WinWaitActive("АКТИВАЦИЯ УСПЕШНО ВЫПОЛНЕНА!","вы можете воспользоваться")
send("{ENTER}")
DirCreate("C:\dx")
Run("directx_Jun2010_redist.exe")
WinWaitActive("DirectX June 2010 Redist","read the following")
Send("{TAB}")
send("{space}")
WinWaitActive("DirectX June 2010 Redist"," type the location where")
ControlSend("DirectX June 2010 Redist","","Edit1","C:\dx")
ControlClick("DirectX June 2010 Redist","type the location where","Button2")
Sleep(10000)
Run("C:\dx\DXSETUP.exe")
WinWaitActive("Установка Microsoft(R) DirectX(R)","Мастер установки DirectX")
ControlClick("Установка Microsoft(R) DirectX(R)","Мастер установки DirectX","Button1")
ControlClick("Установка Microsoft(R) DirectX(R)","Мастер установки DirectX","Button4")
WinWaitActive("Установка Microsoft(R) DirectX(R)","Установка исполняемого модуля")
ControlClick("Установка Microsoft(R) DirectX(R)","Установка исполняемого модуля","Button4")
WinWaitActive("Установка Microsoft(R) DirectX(R)","Установка завершена")
send("{ENTER}")
FileDelete(@DesktopDir & "\Vit Registry Fixer.lnk")
FileDelete(@DesktopDir & "\Vit Disk Cleaner.lnk")
FileDelete(@StartupDir & "\Total Commander.lnk")
FileDelete(@DesktopCommonDir & "\Vit Registry Fixer.lnk")
FileDelete(@DesktopCommonDir & "\Vit Disk Cleaner.lnk")
FileDelete(@StartupCommonDir & "\Total Commander.lnk")
FileDelete(@StartupDir & "\script.lnk")
RunWait("Office_2003_SP3_Full.exe")
sleep(120000)
DirRemove("C:\auto_install",1)
Shutdown(6)


Скрипт должен удалять за собой папку auto_install и самого себя. Само собой пока он выполняется удалить папку целиком не получиться. Как же удалить папку и сам скрипт?
Пробовал такой способ:
Код: AutoIt [Выделить]
#include <process.au3>
_RunDOS("ping -t -n 2 127.0.0.1 > NULL & ping -t -n 2 127.0.0.1 > NULL & rd /s /q C:\1") ;ping -t -n 2 127.0.0.1 > NULL для задержки
Exit

но не сработало. Видимо пока консольная команда работает и скрипт не отключается.
Прошу помощи в реализации удаления папки с софтом и скрипта. Также рад бы увидеть советы и пожелания по поводу автоматизированной подготовки системы к использованию после установки! :)

Русское сообщество AutoIt


Оффлайн Fever [?]

  • Скриптер
  • ****
  • Сообщений: 308
  • Репутация: 112
  • Пол: Мужской
    • Награды
Agat  [?]
Цитировать
удаления папки с софтом и скрипта
http://autoit-script.ru/index.php?topic=325.0


Цитировать
советы и пожелания
вместо кликания по координатам используйте Send(). Этот метод описан в Simple Notepad Automation в справке
http://vkontakte.ru/so_fever

Все мы ошибаемся. Одни больше, другие все время.

Оффлайн Agat [?]

  • Новичок
  • *
  • Сообщений: 3

  • Автор темы
  • Репутация: 0
    • Награды
Цитировать
вместо кликания по координатам используйте Send(). Этот метод описан в Simple Notepad Automation в справке

send'ом пользуюсь. но в этом случае:
Код: AutoIt [Выделить]
WinWaitActive("Добро пожаловать!                                                  Выпуск 13.2 (09/06/2010)")
MouseClick("left",420,137,1,0)
Sleep(800)
WinActivate("Добро пожаловать!                                                  Выпуск 13.2 (09/06/2010)")
MouseClick("left",519,14,1,0)

он не работает. Поэтому юзаю клики.

За ссылку спасибо!

добавил пару строк в функцию дестроя что бы удалялся каталог.
ещё есть такой вопрос: как с помощью скрипта вытащить ID оборудования, в частности видеокарты?
« Последнее редактирование: Июль 02, 2011, 19:02:31 от Agat »

Русское сообщество AutoIt


Оффлайн Fever [?]

  • Скриптер
  • ****
  • Сообщений: 308
  • Репутация: 112
  • Пол: Мужской
    • Награды
Agat  [?]
Цитировать
как с помощью скрипта вытащить ID оборудования, в частности видеокарты?
есть такая замечательная UDF CompInfo.au3. к сожалению тему о ней здесь найти не смог, по этому прикрепляю её к посту. Вам нужна ф-ция _ComputerGetVideoCards. Информация о ней, собственно, в самом UDF  :)

Оффлайн Agat [?]

  • Новичок
  • *
  • Сообщений: 3

  • Автор темы
  • Репутация: 0
    • Награды
Замечетельно! Судя по названию смогу подглядеть там и ID'ы других железяк)
Думаю за завтрашний день разберусь! :)

Русское сообщество AutoIt


Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 8082
  • Репутация: 2314
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.14.0
Fever  [?]
Цитировать
тему о ней здесь найти не смог
Плохо искал значит: Computer Info - Библиотека для получения инфы о компьютере
Вместо того, чтобы искать CompInfo, было бы разумно разделить эти слова на две части: Comp Info.
Вообще то по CompInfo тоже прекрасно находит, как же ты искал интересно?


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
14 Ответов
10053 Просмотров
Последний ответ Июнь 07, 2011, 16:40:29
от Sky-WaLkeR
7 Ответов
17984 Просмотров
Последний ответ Июль 15, 2011, 20:15:38
от BlackCoreLogic
0 Ответов
3508 Просмотров
Последний ответ Июль 15, 2011, 04:39:12
от CreatoR
7 Ответов
3871 Просмотров
Последний ответ Апрель 04, 2013, 16:55:34
от Юрий
4 Ответов
3407 Просмотров
Последний ответ Июнь 12, 2013, 22:51:23
от Vovsla
13 Ответов
13440 Просмотров
Последний ответ Сентябрь 01, 2018, 02:16:42
от Robertpak
0 Ответов
1471 Просмотров
Последний ответ Октябрь 23, 2013, 20:02:06
от buben
13 Ответов
5156 Просмотров
Последний ответ Март 07, 2015, 18:33:47
от AZJIO
16 Ответов
4225 Просмотров
Последний ответ Декабрь 22, 2016, 17:07:15
от ra4o
0 Ответов
397 Просмотров
Последний ответ Ноябрь 25, 2017, 01:13:01
от Kuznec