Утилиты для определения возможностей CD-привода (IfRW, IfDVD)

[Petya V4sechkin]

Nikola Soft
кажись, это даже из батника можно узнать, есть переменная %PROCESSOR_IDENTIFIER%

dodther
насчет видео - скажи зачем? может, альтернативный вариант посоветуем?

[Petya V4sechkin]

Nikola Soft, dodther
пипл! надыбал тулзу рулезную!

родная микрософтская, KB311272 (http://support.microsoft.com/?kbid=311272).
использовать в cmd-файлах, например:
DevCon.exe listclass Processor
DevCon.exe listclass DisplayБлин, так же можно и сканеры определять!
DevCon.exe listclass Image

[Petya V4sechkin]

еще примерчики:
@Echo Off
SetLocal EnableExtensions

Echo Процессоры:
For /F "UseBackQ Tokens=2 Delims=:" %%I In (`DevCon.exe listclass Processor`) Do Echo %%I
Echo.

Echo Видеокарты:
For /F "UseBackQ Tokens=2 Delims=:" %%I In (`DevCon.exe listclass Display`) Do Echo %%I
Echo.

Pause
Exit
@Echo Off
SetLocal EnableExtensions

Set ScannerFound=
For /F "UseBackQ Tokens=2 Delims=:" %%I In (`DevCon.exe listclass Image`) Do Set ScannerFound=%%I

If Not "%ScannerFound%"=="" (
Echo Найден сканер!
) Else (
Echo Сканер не найден.
)
Echo.

Pause
Exit
А еще есть такая штука, wmi (можно использовать в wsh-скриптах), тогда и DevCon не нужен.

Примерчик на vbs:
Dim WMI, objItems
Const objGUID = "{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}"

Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set objItems = WMI.ExecQuery( _
"Select * from Win32_PnPEntity" & _
" where ClassGUID = '" & objGUID & "'")

If objItems.Count > 0 Then
MsgBox "Есть сканер!"
Else
MsgBox "Нет сканера."
End Ifкроме Win32_PnPEntity есть куча других, более конкретных классов, например Win32_Processor, Win32_VideoController (см. документацию в MSDN (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_classes.asp)).

[dodther]

Petya V4sechkin
да все не надо уже :)
нашол способ

[MKN]

Можно, как пример, определение модема ?

[Petya V4sechkin]

MKN
Для модема можно сделать по аналогии, имя класса: Modem, его GUID:
{4D36E96D-E325-11CE-BFC1-08002BE10318}

Работает, только если дрова уже установлены.

[hobbit25]

извините может глупый вопрос задам но можно конкретный примерчик как запстить из RunOnceEx Заранее спасибо!!!!