[Pozia]

Creat0R, все сработало. Спасибо. Как я заметил скрипт отличается строкой

If $aDrives[$i] = "a:" And DriveStatus($aDrives[$i]) <> "READY" Then ContinueLoop

Для моего общего развития можете объяснить в чем разница?

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

[Pozia]

Creat0R, начал тестировать скрипт, все хорошо, только прошу добавить еще маленькую вещь. Нужно добавить такую вот запись в реестре:

RegWrite($sKey &"\910", "1", "REG_SZ","REGEDIT /S "& $sDVD &"\$OEM$\HKLM.reg")

Только в этом случае чтобы буква диска $sDVD определялась по наличию на диске файла WIN51 и никакого выбора диска как в вашем последнем скрипте не нужно делать. Поиск файла WIN51 нужно произвести на всех дисках и очень желательно чтобы не было проблемы с кардрийдером, так как в последней версии Вашего скрипта. Спасибо

[Creat0R]

в чем разница? »

В отличие от первого варианта, во втором буква диска не проверяется, для всех дисков проверяется их статус.

Можно ли в появляющемся окне вставить еще какой нибудь текст между буквой выбора диска и заголовком окна? »

Можно, см. GUICtrlCreateLabel() в справке.

в этом случае чтобы буква диска $sDVD определялась по наличию на диске файла WIN51 и никакого выбора диска »

Код:

$sKey = "HKEY_LOCAL_MACHINE\SOFTWARE"
$aDrives = DriveGetDrive("All")

For $i = 1 To $aDrives[0]
    If DriveStatus($aDrives[$i]) <> "READY" Then ContinueLoop

    If FileExists($aDrives[$i] & "\WIN51") Then
        RegWrite($sKey & "\910", "1", "REG_SZ", "REGEDIT /S " & $aDrives[$i] & "\$OEM$\HKLM.reg")
        ExitLoop
    EndIf
Next