определение идентификации флешки на 100%

[Ципихович Эндрю]

читал топики про определение идентификации флешки
существует мнение, как бы не определяли свойства флешки можно попасть впросак, то есть в партии флешек могут быть флешки с одинаковыми свойствами - ID и т. д.
А можно ли програмно пометить флешку, чтобы уже тогда точно знать, что это именно та флешка?? как??
Может и не ВБ, ничего страшного, как??

[Finch]

Ципихович Эндрю, Label флешки, или записать скрытый файл?

[Ципихович Эндрю]

Label флешки, или записать скрытый файл?
в конце ответа - вопросительный знак
не понял ответа

[Sla]

а это тебе подсказали два способа - выбирай любой

[Ципихович Эндрю]

была не была, тогда уж два, а там сравню, как сделать???

Добавлено через 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
програмно???