[EgOrus]

Sanja Alone
да, все правильно, благодарю, такие вот гадкие ошибки потом всплывают в самый неподходящий момент.
Opt('SendKeyDownDelay', 50) пришло в скрипт вместе с шапкой, это у меня в каждом скрипте, особой пользы не несет, также как и вреда.

[Petya V4sechkin]

Вчера почти весь день убил на активацию AutoCAD 2005. Пришлось извратиться пару раз :)
Никому не надо? Если надо, скажите.

[skylego]

Вчера почти весь день убил на активацию AutoCAD 2005. Пришлось извратиться пару раз Никому не надо? Если надо, скажите.

Если можно, то надо.
Отправь мне на skylego@mail.ru

[garbals]

как написать скрипт для

включения гостя в XP разрешить доступ к комьпьютеру из сети гостям отклонить локальный вход гостю авто логон имеющегося пользователя (не известно какого)

помогите с написанием скрипта

[EgOrus]

garbals
это все делается батником

Код:

1. 
net user Гость /active:yes
2 и 3
secedit /configure /cfg %SystemRoot%\Security\Templates\netaccess.inf /db %SystemRoot%\Security\Database\netaccess.db /overwrite /log %SystemRoot%\Security\logs\netaccess.log /quiet
4.
set UserN=%UserName%
set Password=
set regpath="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"

:: Setting User %UserN% to Autologon.
REG ADD %regpath% /v DefaultUserName /t REG_SZ /d %UserN% /f
REG ADD %regpath% /v DefaultPassword /t REG_SZ /d %Password% /f
REG ADD %regpath% /v AutoAdminLogon /t REG_SZ /d 1 /f

данный тэмплэйт политик безопасности netaccess.inf, можно подправить (напрмер если нужен пользователь не Гость а какой нибудь другой/ие)

[garbals]

запустил батник не работает всё в политике на своих местах

[EgOrus]

garbals
подробности отправил в ПМ, оффтоп получается

[Sanja Alone]

Я получил на мейл такой вопрос:

Возможно ли в AutoIt v3 сделать цикл, который бы проверял открыт или закрыт CD-ROM - если открыт, то его закрыть и наоборот.

Тут есть одна загвоздка - функция DriveStatus("Z:\")="NOTREADY" в двух случаях:
1. лоток выдвинут
2. лоток задвинут, но без диска.

Я вижу преодоление данной неоднозначности только с пом. начальных условий и дополнительной переменной и предложил такой вариант:

Код:

;задаем букву диска при пом. переменной для удобства написания кода
Global $d="Z:"
;начальные условия:
;нужно предварительно закрыть лоток, чтобы убрать неопределенность
CDTray($d, "closed")
;переменная, определяющая положение лотка (1 - выдвинут, 0 - задвинут)
Global $t=0
 
;цикл для демонстрации работы (любой код)
For $i=1 To 4
;вызов функции открытия/закрытия лотка независимо от наличия/отсутствия
;в нем диска (если открыт - закроется, и наоборот)
mycd($t, $d)
Next
 
;определяем возможность модификации функцией переменной $t (с пом. ключевого
;слова ByRef), чтобы потом можно было многократно в нужные моменты вызывать
;функцию mycd() и ей передавалось правильное состояние лотка.
Func mycd(ByRef $tray, $drive)
Local $status = DriveStatus($drive&"\")
Select
Case $status = "READY"
  CDTray($drive, "open")
  msgbox (64,'case1','$status = '&$status& @LF &'$tray = '&$tray& @LF &'action = "open"',3)
  $tray=1
Case $status = "NOTREADY" and $tray=1
  CDTray($drive, "closed")
  msgbox (64,'case2','$status = '&$status& @LF &'$tray = '&$tray& @LF &'action = "closed"',6)
  $tray=0
Case $status = "NOTREADY" and $tray=0
  CDTray($drive, "open")
  msgbox (64,'case3','$status = '&$status& @LF &'$tray = '&$tray& @LF &'action = "open"',6)
  $tray=1
EndSelect
EndFunc

Скорее всего, это неоптимальный вариант решения поставленной задачи, но он работоспособен. MsgBox-ы я поставил для наглядности - в рабочем варианте здесь должны быть Sleep-ы, достаточные для распознавания диска в приводе (при задвигании лотка) и поменьше (при выдвигании).

В принципе, задача не мирового масштаба, но все же: как ее решить правильно, какие будут мысли?

[fox_sly]

Во первых строках огромный сенькс за труды Sanja Alone, bogomolv и другим участникам форума, за их подробные описания и толкования...
Изучив труды набросал для знакомого скриптик для установки Photoshop CS2, может кому пригодится?

Sanja Alone
- может подредактируешь и выложишь более оптимальный вариант у себя на сайте?

регистрациооные данные вбиты в файле Abcpy.ini

Код:

[OEM Install]
SERIALNUMBER=XXXX-XXXX-XXXX-XXXX-XXXX-XXXX
USERNAME=Fox Sly
COMPANYNAME=Fox Sly System

сам скрипт

Код:

;предотвращение возможности множественного запуска скрипта добавлено Sanja Alone
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)

; Установка переменных
Global $file='setup.exe', $key='keygen.exe', $rus='PhotoshopCS2RU.exe', $AvtCode, $ACStr

Run ( $file )

WinWaitActive ( 'Adobe Photoshop CS2 - Setup' )
ControlClick ( 'Adobe Photoshop CS2 - Setup', '', 'Button1' )

; окно лицензионного соглашения, я думаю Не согласных нет? -)
WinWaitActive ( 'Adobe Photoshop CS2 - License Agreement' )
ControlClick ( 'Adobe Photoshop CS2 - License Agreement', '', 'Button5' )

; ввод информации о пользователе, в моем примере данные прописаны в файле Abcpy.ini
WinWaitActive ( 'Adobe Photoshop CS2 - Setup','Customer Information' )
ControlClick ( 'Adobe Photoshop CS2 - Setup', 'Customer Information', 'Button1' )

; выбор пути установки - по умолчанию
WinWaitActive ( 'Adobe Photoshop CS2 - Setup','Destination Folder' )
ControlClick ( 'Adobe Photoshop CS2 - Setup', 'Destination Folder', 'Button1' )

; ассоциация файлов - по умолчанию
WinWaitActive ( 'Adobe Photoshop CS2 - Setup','File Association' )
ControlClick ( 'Adobe Photoshop CS2 - Setup', 'File Association', 'Button1' )

; рапорт инсталятора о готовности к установки
WinWait ( 'Adobe Photoshop CS2 - Setup','Ready to Install the Program' )
WinWaitActive ( 'Adobe Photoshop CS2 - Setup','Ready to Install the Program' )
ControlClick ( 'Adobe Photoshop CS2 - Setup', 'Ready to Install the Program', 'Button1' )

; активация - начало
WinWait  ( 'Adobe Photoshop Installer','Activation Options' )

;это окно иногда появляется, а иногда нет. Закономерность появления не найдена.
If WinExists ( 'Adobe Photoshop Installer', 'Activate Using the Internet' ) Then
      WinActivate (  'Adobe Photoshop Installer', 'Activate Using the Internet' )
      WinWaitActive (  'Adobe Photoshop Installer', 'Activate Using the Internet' )
      ControlClick ( 'Adobe Photoshop Installer', 'Activate Using the Internet', 'Button3' )
EndIf
; продолжение активации - выбираем активировать по телефону
WinWaitActive ( 'Adobe Photoshop Installer','Activation Options' )
Sleep ( 500 )
ControlClick ( 'Adobe Photoshop Installer','Activation Options', 'Button2' )
Sleep ( 500 )
ControlClick ( 'Adobe Photoshop Installer','Activation Options', 'Button7' )

; Запуск кейгена
Run ( $key )
WinWaitActive ( 'Keygen by PARADOX', 'Serial Number')

; Активация окна регистрации, получение серийника и вставка в кейген
WinActivate ( 'Adobe Photoshop Installer', 'Phone Activation' )
WinWaitActive ( 'Adobe Photoshop Installer', 'Phone Activation' )
$GetSN1=ControlGetText('Adobe Photoshop Installer', 'Phone Activation', 'Edit3')
ControlSetText('Keygen by PARADOX', 'Serial Number', 'Edit1', $GetSN1)

; Получение активационного номера и вставка в кейген
$GetSN2=ControlGetText('Adobe Photoshop Installer', 'Phone Activation', 'Edit4')
ControlSetText('Keygen by PARADOX', 'Serial Number', 'Edit2', $GetSN2)

; Активация кейгена и генерация кода авторизации
WinActivate ( 'Keygen by PARADOX', 'Serial Number' )
WinWaitActive ( 'Keygen by PARADOX', 'Serial Number')
ControlClick ( 'Keygen by PARADOX', 'Serial Number', 'Button2' )
Sleep ( 500 )

; Получение кода авторизации
$AvtCode = ControlGetText ( 'Keygen by PARADOX', 'Serial Number', 'Edit3' )

; Код авторизации получен в виде xxxx xxxx xxxx xxxx xxxx разбиваем его на блоки
$ACStr = StringSplit ( $AvtCode, ' ' )
Sleep ( 500 )

; вставка кода авторизации
WinActivate ( 'Adobe Photoshop Installer', 'Phone Activation' )
WinWaitActive ( 'Adobe Photoshop Installer', 'Phone Activation' )
ControlSetText ( 'Adobe Photoshop Installer', 'Phone Activation', 'Edit6', $ACStr[1] )
ControlSetText ( 'Adobe Photoshop Installer', 'Phone Activation', 'Edit7', $ACStr[2] )
ControlSetText ( 'Adobe Photoshop Installer', 'Phone Activation', 'Edit8', $ACStr[3] )
ControlSetText ( 'Adobe Photoshop Installer', 'Phone Activation', 'Edit9', $ACStr[4] )
ControlSetText ( 'Adobe Photoshop Installer', 'Phone Activation', 'Edit10', $ACStr[5] )

; закрываем кейген
WinActivate ( 'Keygen by PARADOX', 'Serial Number' )
WinWaitActive ( 'Keygen by PARADOX', 'Serial Number')
ControlClick ( 'Keygen by PARADOX', 'Serial Number', 'Button3' )

; продолжаем установку
WinActivate ( 'Adobe Photoshop Installer', 'Phone Activation' )
WinWaitActive ( 'Adobe Photoshop Installer', 'Phone Activation' ) 
ControlClick ( 'Adobe Photoshop Installer', 'Phone Activation', 'Button3' )

WinWait  ( 'Adobe Photoshop Installer', 'Thank You!' ) 
WinWaitActive ( 'Adobe Photoshop Installer', 'Thank You!' ) 
ControlClick ( 'Adobe Photoshop Installer', 'Thank You!', 'Button2' )

; основная установка закончена, ждем установки Adobe Brige и прочей ерунды

WinWait ( 'Adobe Photoshop CS2 - Setup', 'InstallShield Wizard Completed' ) 
WinWaitActive ( 'Adobe Photoshop CS2 - Setup', 'InstallShield Wizard Completed' ) 
ControlClick ( 'Adobe Photoshop CS2 - Setup', 'InstallShield Wizard Completed', 'Button4' )
Sleep ( 50 )
ControlClick ( 'Adobe Photoshop CS2 - Setup', 'InstallShield Wizard Completed', 'Button3' )


; Запуск руссификатора, для тех кому он нужен
Run ( $rus )
WinWaitActive ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard')
ControlClick ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', '', 'Button1' )
WinWaitActive ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', 'Select folder where setup will install files' )
ControlClick ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', 'Select folder where setup will install files' , 'Button6' )
WinWaitActive ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', 'The wizard is ready to begin installation.' )
ControlClick ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', 'The wizard is ready to begin installation.' , 'Button8' )
WinWaitActive ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', 'InstallShield Wizard Complete' )
ControlClick ( 'Adobe Photoshop CS2 Russian - InstallShield Wizard', 'InstallShield Wizard Complete' , 'Button15' )

exit

Проверил на паре машин - вроде работает

[Sanja Alone]

Petya V4sechkin

Вчера почти весь день убил на активацию AutoCAD 2005. Пришлось извратиться пару раз Никому не надо? Если надо, скажите.

Если не будешь возражать, то я размещу твой скрипт на соотв. странице своего сайта (дав ссылку на тебя как автора). В сл. твоего согласия - кинь свой скрипт мне на мыло.

fox_sly

может подредактируешь и выложишь более оптимальный вариант у себя на сайте?

Спасибо, уже выложил. А подредактировать я не смогу, т.к. Photoshop CS2 у меня нет - проверить будет не на чем