[serg_ssa]

romeo91, А зачем в новой версии программа сканирует windows\inf? То что в windows\inf есть файл драйвера еще не значит что он установлен, да и инфов разных версий oem*.inf может быть несколько для 1 устройства. Какой из них в данный момент стоит?
Инфу об установленном драйвере на ПС (версия, дата, имя файла) нужно читать из реестра. Это и правильнее и быстрее на порядок (тем более с учетом тормозов скана инфов из-за антивирусов).

[romeo91]

serg_ssa, не зная технологии зря делаете выводы. Работате все правильно, а не тупо сканирует папку с файлами inf/

Я анализирую данные полученные DEVCON
devcon.exe driverfiles acpi*
devcon.exe driverfiles hdaudio*
devcon.exe driverfiles pci*
devcon.exe driverfiles usb*
devcon.exe driverfiles hid*
devcon.exe driverfiles bluetooth*
devcon.exe driverfiles monitor*
devcon.exe driverfiles root*

На выходе получаю например:
PCI\VEN_8086&DEV_2810&SUBSYS_00000000&REV_02\3&11583659&0&F8
Name: Intel(R) ICH8/ICH8R Family LPC Interface Controller - 2810
Driver installed from c:\windows\inf\oem56.inf [ISAPNP_DRV]. 1 file(s) used by driver:
C:\WINDOWS\system32\DRIVERS\isapnp.sys

Из этого выдергиваю путь до inf файла и из него версию.

Дак вот самый долгий процесс это работа именно DEVCON. Остальное примерно 5%
Можно время ускорить используя drivernodes вместо driverfiles, но эти данные сложнее обрабатывать.

читать дальше »

PCI\VEN_10EC&DEV_8168&SUBSYS_81AA1043&REV_01\4&24CAFEBD&0&00E5
Name: Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC
DriverNode #0:
Inf file is c:\windows\inf\oem5.inf
Inf section is RTL8168x.ndi
Driver description is Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC
Manufacturer name is Realtek Semiconductor Corp.
Provider name is Realtek Semiconductor Corp.
Driver date is 14.08.2006
Driver version is 5.658.814.2006
Driver node rank is 8193
Driver node flags are 0000B244
Inf is digitally signed
DriverNode #1:
Inf file is c:\windows\inf\oem5.inf
Inf section is RTL8168x.ndi
Driver description is Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC
Manufacturer name is Realtek Semiconductor Corp.
Provider name is Realtek Semiconductor Corp.
Driver date is 14.08.2006
Driver version is 5.658.814.2006
Driver node rank is 1
Driver node flags are 0000B240
Inf is digitally signed
DriverNode #2:
Inf file is c:\windows\inf\oem76.inf
Inf section is RTL8168x.ndi
Driver description is Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC
Manufacturer name is Realtek Semiconductor Corp.
Provider name is Realtek Semiconductor Corp.
Driver date is 30.10.2008
Driver version is 5.708.1030.2008
Driver node rank is 8192
Driver node flags are 0000B244
Inf is digitally signed

К тому же я также получаю список файлов драйвера который в последствии буду обрабатывать для Бэкапа.

[Комсомолец]

И вернёмся, таким образом, к красивому прежнему фэйсу, что я и предлагал? »

абсолютно верно. Фейс был красивее.))

Lisabon пишет: "romeo91, дизайн изменил - молодец!" Lisabon, понятно, - фигура, но чем его не устраивал прежний вид программы - тоже неясно... »

пацталом.
romeo91, прогу в размерах не надо делать больше. сейчас самый оптимальный размер. а вот старые кнопки были аккуратнее и больше подходили к дизайну программы.

[serg_ssa]

romeo91, Ну неправильный подход инфы сканить. Вообще в грамотно написанной программе обычно юзают SetupDiххх функции вместо devcon и никаких текстовых файлов не парсят. Код неочень большой, но я везде видел только на с++.
В vb6 можно гораздо проще - такой vbs-скрипт прикрутить, но это опятьже менее правильно.

читать дальше »

Код:

On Error Resume Next

strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\777.txt", True)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver")

For Each objItem in colItems
if Not IsNull(objItem.HardWareID) then
objTextFile.WriteLine ""
'    objTextFile.WriteLine "Class GUID: " & objItem.ClassGuid
    objTextFile.WriteLine "Description: " & objItem.Description
'    objTextFile.WriteLine "Device ID: " & objItem.DeviceID
    objTextFile.WriteLine "Hardware ID: " & objItem.HardWareID
'    objTextFile.WriteLine "Manufacturer: " & objItem.Manufacturer
'    objTextFile.WriteLine "Name: " & objItem.Name
    objTextFile.WriteLine "PNP Device ID: " & objItem.PNPDeviceID
'    objTextFile.WriteLine "Service: " & objItem.Service

'    objTextFile.WriteLine "Driver Provider Name: " & objItem.DriverProviderName
    dtmWMIDate = objItem.DriverDate
    strReturn = WMIDateStringToDate(dtmWMIDate)

    objTextFile.WriteLine "Driver Date: " & strReturn

    objTextFile.WriteLine "Driver Version: " & objItem.DriverVersion
    objTextFile.WriteLine "INF Name: " & objItem.InfName
end if

Next
objTextFile.Close

Function WMIDateStringToDate(dtmWMIDate)
    If Not IsNull(dtmWMIDate) Then
    WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _
         Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _
             & " " & Mid (dtmWMIDate, 9, 2) & ":" & _
                 Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate,13, 2))
    End If
End Function

Вместо вывода в файл напрямую брать инфу в прогу, сравнивая HardWareID

[romeo91]

Что вы так к дизайну пристали! Хорошо подумаю может и верну.
Вы функционал проверьте, мне это важно. Что от того как кнопки лежать программа будет хуже работать?
Такое ощущение что я прогу первый раз выложил без функционала и спрашиваю у всех как вам дизайн.
Чтовы как дети малые уже третий день полемику разводите.
Ну было у меня просвящение, менял статусы, менял картинки и захотелось мне кое-что изменить вот и наваял.
Я давно хотел на эти кнопки картинки добавить, и даже с начала перед самой первой версией, но не получалось никак до этого добраться. Интересно мне если бы я сразу выложил версию с картинками, а потом бы их убрал однажды, вы бы тоже спрашивали почему, ведь было так здорово.

Есть еще кто-то кому не нравится измененый дизайн?
Вот смотрите вот такую картинку! Пока не хочется мне возвращать все до версии 1.7.0

Вообще в грамотно написанной программе обычно юзают ...»

Ну неправильный подход инфы сканить.»

Опять 25. Вы что ли все здесь программисты? Я любитель и пишу как умею и как знаю.
Вся программа в основном написана на парсинге файлов inf и txt. И поверьте мне время на этих операциях тратится минимально. Вся работа с inf файлами идет как с ini. А работа с ini идет всегда через реестр. Просто соответствующий файл ini мапится в реестр. (Почитайте в интернете).
ТАК ЧТО ЕЩЕ РАЗ ГОВОРЮ ТОРМОЗА ПРОГРАММЫ ПРИ СТАРТЕ НЕ ИЗ_ЗА ТОГО ЧТО ЧИТАЮТСЯ INF ФАЙЛЫ (ДЛЯ ПРИМЕРА ПОСТРОЕНИЕ БАЗЫ ДРАЙВЕРОВ ДЛЯ ПАКЕТА LAN ТАМ INF-файлов на 9 МЕТРОВ И ДОЛГО ОНИ ОБРАБАТЫВАЮТСЯ? - всего одну две минуты)

Для чего мне пока писать свой код и писать сложные "глючные" функции для сбора инфы о драйверах как для 32 так и для 64 битных систем (подход тут разный), когда есть собственная разработка мелкософта - Devcon, которая все это умеет.

P.S. За код конечно спасибо, гляну может что интересного найду для себя.
P.P.S Использовать программу никто не заставляет, не нравится не пользуйтесь.

[truvo]

Lisabon, насчет подписей с romeo91 мы уже обсудили - мой вариант я обещал. Насчет остального - прекратите, в конце концов предлагать мне заниматься бесполезным делом и менять хорошее на другое! На каком бы языке вам ещё это повторить?

romeo91, последняя картинка лучше, чем предпоследняя... это всё, что скажу.

[serg_ssa]

romeo91, Извини если обидел. Все мы тут любители. ))) да, про совместимость я не подумал. Но хочу напомнить, что в отличии от DRP твой проект не hta-скрипт с его ограничениями, а самостоятельное winpe приложение.
Просто хочу помочь чем могу, вот идейки всякие и предлагаю, для развития проекта. А направить на нужную мысль иной раз тоже большая помощь. По себе знаю.

ПРОСТО ФАКТЫ
АМД 3200+ 2гига оперативы. стоит нод32.
Время загрузки 9 минут 43 сек.
Отключаю антивирус - 31сек
Папку inf переименовал в inf1 - загрузка за 5 секунд.

Дальше думаем сами.

---------------------------------
romeo91,

читать дальше »

Кстати еще способ определения инфы о дровах:
Делаем прогон ветки HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\<any1>\<any2>\<any3>
Тут как раз все обнаруженные устройства в системе
Смотрим 2 параметра: <HardwareID> и <Driver>
зная <Driver> читаем инфу о дровах из секции HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\<Driver>
Скорость на высоте и никаких доп функций кроме чтения из реестра не используем.

[Lisabon]

romeo91,

Как тебе такой мой вариант дизайна программы



там я расписал, что я хотел увидеть в программе

truvo, не злись, тебе это не клицу, просто хочу чтоб все были при деле

[romeo91]

Тут как раз все обнаруженные устройства в системе »

Тут вообще все драйвера котоыре есть в системе и не совсем понятно какие сейчас установлены и активны

Странно, но влияния антивируса у себя не заметил стоит KAV 2009. Хотелось бы от тебя serg_ssa увидеть дебаг лог загрузки программы, для анализа слабого места. А обновление БД (пакета LAN) у тебя сколько идет?

Как тебе такой мой вариант дизайна программы »

Сложновато сказать, довольно странное расположение кнопок, но принял во внимание подумаю на досуге.
Посмотрим что еще truvo предложит.

[Lisabon]

Странно, но влияния антивируса у себя не заметил стоит KAV »

У меня стоит Kaspersky Internet Security 2009, время запуска не изменилось