была не была, тогда уж два, а там сравню, как сделать???
Добавлено через 47 минут и 37 секунд:из Википедии
Если при подключении USB-носителя к компьютеру операционная система не находит информации подключаемого USB-носителя в реестре, то происходит его регистрация. Для регистрации используются следующие файлы операционной системы:
«%SystemRoot%\Inf\usbstor.inf»
«%SystemRoot%\Inf\usbstor.PNF»
Елки палки где они, у меня на С нет usbstor .inf или .PNF
?
Добавлено через 18 минут и 40 секунд:у меня так то был код, ранее работал:
Dim objWMI, objLogicalDisks, objLD
Dim objPartitions, objPart, objDrives, objDrive
Dim strComputer, strTemp
strComputer = "."
Set objWMI = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set objLogicalDisks = objWMI.ExecQuery _
("SELECT * FROM Win32_LogicalDisk WHERE DriveType=2")
For Each objLD In objLogicalDisks
Set objPartitions = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_LogicalDisk.DeviceID=""" & _
objLD.DeviceID & _
"""} WHERE AssocClass=Win32_LogicalDiskToPartition")
For Each objPart In objPartitions
Set objDrives = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
objPart.DeviceID & _
"""} WHERE AssocClass=Win32_DiskDriveToDiskPartition")
For Each objDrive In objDrives
strTemp = strTemp & objLD.DeviceID & " => " & objDrive.Caption & " (Диск " & objDrive.Index & ")" & vbNewLine & _
"SerialNumber накопителя = " & objDrive.SerialNumber & vbNewLine & vbNewLine
Next
Set objDrive = Nothing
Set objDrives = Nothing
Next
Set objPart = Nothing
Set objPartitions = Nothing
Next
If Len(strTemp) = 0 Then
strTemp = "Накопителей указанного типа не найдено."
End If
Set objLD = Nothing
Set objLogicalDisks = Nothing
Set objWMI = Nothing
сейчас на строке:
strTemp = strTemp & objLD.DeviceID & " => " & objDrive.Caption & " (Диск " & objDrive.Index & ")" & vbNewLine & _
"SerialNumber накопителя = " & objDrive.SerialNumber & vbNewLine & vbNewLine
ошибка 438 объект не поддерживает это свойство
почему ??
Добавлено через 18 минут и 27 секунд:Информация о USB-накопителях в операционной системе хранится в реестре. Microsoft Windows для идентификации USB-накопителя использует уникальный идентификатор (VID), который проставляется производителем USB-накопителя и в дальнейшем не меняется. Уникальный идентификатор USB-накопителя можно узнать, подключив USB-накопитель и открыв его свойства в диспетчере устройств. Пример, информации о USB-накопителе:
«USBSTOR\DISK&VEN_KINGSTON&PROD_DATATRAVELER_2.0&REV_PMAP\5B8213003402&0». В отображаемых данных указываются: тип устройства, производитель, серия и уникальный идентификатор. В приведенном примере, идентификатором является «5B8213003402»
Добавлено через 1 день, 22 часа, 36 минут и 10 секунд:написал на ВБ 6, кому интересно опробуйте
Там должна получится строка вроде этой:
Kingston DT 101 II USB Device*&*&*&*USBSTOR\DISK&VEN_KINGSTON&PROD_DT_101_II&REV_1.00\001D0F0CAABFF9A145A00DAC&0
Правда у меня ХР, если у кого не ХР, выше т.е. Виста, 7 ка должно получится два таких *&*&*&* разделителя, смогу проверить лишь завтра
Виста, 7 ки выложите пжл сгенерированную строку
Сработает на 100 %?? хотелось бы всё же метить, как???
Добавлено через 1 минуту и 6 секунд:строку
Виста, 7 ки выложите пжл сгенерированную строку
нужно читать
владельцы Висты, 7 ки выложите пжл сгенерированную строку
Добавлено через 1 час, 4 минуты и 25 секунд:установлено при помощи:
CheckUDisk 5.3.exe
Просмотреть VID&PID, можно программой CheckUDisk 5.0
как его узнать VID&PID: Vid_0951&Pid_1625
програмно???