

 flash.gif
 flash.gif
 но увы.
 но увы. 



 что флешка
 что флешка
Dim obj, objs, buf, PnPID
'Get the PnPDevice ID
Set objs = GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
'
For Each obj In objs
    If obj.InterfaceType = "USB" Then
        PnPID = obj.PnPDeviceID
    End If
Next
'fix up the PnPDevice ID to make it suitable for comparing against the Association
PnPID = Replace(PnPID, "\", "\\") & Chr(34)
' Use WMI associations to pair up USBContoller and PnPEntity
Set objs = GetObject("winmgmts:").InstancesOf("Win32_USBControllerDevice")
For Each obj In objs
     If Right(obj.Dependent, Len(PnPID)) = PnPID Then
          MsgBox (PnPID & vbCr & obj.Dependent & vbCr & obj.Antecedent)
     End If
Next
 USBDev_vs_WMI.gif
 USBDev_vs_WMI.gif

 До такого я бы ни в жисть не додумался. Проверю в понедельник. Моя личная флешка "потеряла" свой серийник после событий, описанных здесь. Если посмотреть на мой скриншот, то там осталась ее запись до этих событий - 3я строка. Сейчас она определяется как первая строка, без всякого серийного номера. Получается серийный номер сохраняется заодно в реестре, только я его там не нашел.
 До такого я бы ни в жисть не додумался. Проверю в понедельник. Моя личная флешка "потеряла" свой серийник после событий, описанных здесь. Если посмотреть на мой скриншот, то там осталась ее запись до этих событий - 3я строка. Сейчас она определяется как первая строка, без всякого серийного номера. Получается серийный номер сохраняется заодно в реестре, только я его там не нашел.

 
 
 




Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4