Click here to Skip to main content
       

Visual Basic

 
GeneralRe: How to Extend the InitializeComponents to my code in VB2008/2010 PinmvpEddy Vluggen22-Jan-13 2:21 
AnswerRe: How to Extend the InitializeComponents to my code in VB2008/2010 PinmemberMike Meinz21-Jan-13 8:16 
GeneralRe: How to Extend the InitializeComponents to my code in VB2008/2010 PinmemberQuickBooksDev21-Jan-13 9:38 
QuestionMS Graph in Access 2007 VBA Application Pinmembersatcomengineer19-Jan-13 7:48 
AnswerRe: MS Graph in Access 2007 VBA Application PinmvpEddy Vluggen20-Jan-13 2:38 
Questionvb6.0 PinmemberBarun sengupta18-Jan-13 21:39 
AnswerRe: vb6.0 PinmvpEddy Vluggen20-Jan-13 2:36 
QuestionDecoding USBSTOR Registry Entry in VB PinmemberSantLou4017-Jan-13 16:06 
Hi All,
 
I am attempting to retrieve USB Usage History using VB.NET. I am using VS 2012.
 
The following block of code lists this entry.
 
Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Enum\USBSTOR\", False)
 
Dim str1 As String
For Each subKeyName As String In RegKey.GetSubKeyNames()
 
    Dim tempKey As RegistryKey = RegKey.OpenSubKey(subKeyName)
    Debug.Print("USBSTORE KEY: " & subKeyName & RegKey.GetValue(subKeyName, "").ToString())
    Debug.Print(" -----------")
 
    For Each NxtSubKeyName As String In tempKey.GetSubKeyNames()
        Dim tempKey1 As RegistryKey = tempKey.OpenSubKey(NxtSubKeyName)
        Debug.Print("USBSTOR SUBKEY: " & NxtSubKeyName.ToString() & " Value Count: " & tempKey1.ValueCount.ToString())
        For Each valueName As String In tempKey1.GetValueNames()
            Debug.Print(valueName & ": " & tempKey1.GetValue(valueName).ToString())
        Next
 
    Next
Next
 
My code produces this output:
 
USBSTORE KEY: Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100
 -----------
USBSTOR SUBKEY: SDXX1005181106121551&0 Value Count: 12
DeviceDesc: @disk.inf,%disk_devdesc%;Disk drive
Capabilities: 16
HardwareID: System.String[]
CompatibleIDs: System.String[]
ContainerID: {2471d8a3-e22c-5a5e-8b09-f0bb7616119d}
ConfigFlags: 0
ClassGUID: {4d36e967-e325-11ce-bfc1-08002be10318}
Driver: {4d36e967-e325-11ce-bfc1-08002be10318}\0010
Class: DiskDrive
Mfg: @disk.inf,%genmanufacturer%;(Standard disk drives)
Service: disk
FriendlyName: SanDisk Cruzer USB Device
 
But when I export this registry entry to a text file, I get the following results:
 
Obviously we see much more information in the exported data. Why is there so much more info here and how can I get my VB program to access this information?
 
I am trying to write some code to obtain USB Usage History.
 
Thanks for any help,
 
Key Name:          HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USBSTOR\Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100
Class Name:        <NO CLASS>
Last Write Time:   1/17/2013 - 2:51 PM
 
Key Name:          HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USBSTOR\Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100\SDXX1005181106121551&0
Class Name:        <NO CLASS>
Last Write Time:   1/17/2013 - 2:51 PM
Value 0
  Name:            DeviceDesc
  Type:            REG_SZ
  Data:            @disk.inf,%disk_devdesc%;Disk drive
 
Value 1
  Name:            Capabilities
  Type:            REG_DWORD
  Data:            0x10
 
Value 2
  Name:            HardwareID
  Type:            REG_MULTI_SZ
  Data:            USBSTOR\DiskSanDisk_Cruzer__________1100
                   USBSTOR\DiskSanDisk_Cruzer__________
                   USBSTOR\DiskSanDisk_
                   USBSTOR\SanDisk_Cruzer__________1
                   SanDisk_Cruzer__________1
                   USBSTOR\GenDisk
                   GenDisk
 
Value 3
  Name:            CompatibleIDs
  Type:            REG_MULTI_SZ
  Data:            USBSTOR\Disk
                   USBSTOR\RAW
 
Value 4
  Name:            ContainerID
  Type:            REG_SZ
  Data:            {2471d8a3-e22c-5a5e-8b09-f0bb7616119d}
 
Value 5
  Name:            ConfigFlags
  Type:            REG_DWORD
  Data:            0
 
Value 6
  Name:            ClassGUID
  Type:            REG_SZ
  Data:            {4d36e967-e325-11ce-bfc1-08002be10318}
 
Value 7
  Name:            Driver
  Type:            REG_SZ
  Data:            {4d36e967-e325-11ce-bfc1-08002be10318}\0010
 
Value 8
  Name:            Class
  Type:            REG_SZ
  Data:            DiskDrive
 
Value 9
  Name:            Mfg
  Type:            REG_SZ
  Data:            @disk.inf,%genmanufacturer%;(Standard disk drives)
 
Value 10
  Name:            Service
  Type:            REG_SZ
  Data:            disk
 
Value 11
  Name:            FriendlyName
  Type:            REG_SZ
  Data:            SanDisk Cruzer USB Device
 

Key Name:          HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USBSTOR\Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100\SDXX1005181106121551&0\Device Parameters
Class Name:        <NO CLASS>
Last Write Time:   1/17/2013 - 2:51 PM
 
Key Name:          HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USBSTOR\Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100\SDXX1005181106121551&0\Device Parameters\MediaChangeNotification
Class Name:        <NO CLASS>
Last Write Time:   9/5/2011 - 8:07 PM
 
Key Name:          HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USBSTOR\Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100\SDXX1005181106121551&0\Device Parameters\Partmgr
Class Name:        <NO CLASS>
Last Write Time:   9/5/2011 - 8:07 PM
Value 0
  Name:            Attributes
  Type:            REG_DWORD
  Data:            0
 
Value 1
  Name:            DiskId
  Type:            REG_SZ
  Data:            {00af4242-d76c-11e0-8169-0024e8e34876}
 

Key Name:          HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USBSTOR\Disk&Ven_SanDisk&Prod_Cruzer&Rev_1100\SDXX1005181106121551&0\LogConf
Class Name:        <NO CLASS>
Last Write Time:   1/17/2013 - 2:51 PM

AnswerRe: Decoding USBSTOR Registry Entry in VB PinmemberChandraRam17-Jan-13 20:03 
AnswerRe: Decoding USBSTOR Registry Entry in VB PinmemberAlan N18-Jan-13 1:21 
GeneralRe: Decoding USBSTOR Registry Entry in VB PinmemberSantLou4018-Jan-13 1:47 
GeneralRe: Decoding USBSTOR Registry Entry in VB PinmemberAlan N18-Jan-13 4:05 
JokeRe: Decoding USBSTOR Registry Entry in VB PinmemberJeffnogueira22-Jan-13 4:31 
QuestionVB.NET ReportViewer too many Page Breaks rendered PinmemberSantLou4017-Jan-13 3:39 
AnswerRe: VB.NET ReportViewer too many Page Breaks rendered PinmemberChandraRam17-Jan-13 20:04 
GeneralRe: VB.NET ReportViewer too many Page Breaks rendered PinmemberSantLou4018-Jan-13 1:39 
Questioncontrol 5 appliances using pc's parallel port[vb.net 2010] PinmemberLord Christian15-Jan-13 20:10 
AnswerRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmemberBernhard Hiller15-Jan-13 20:42 
GeneralRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmemberLord Christian17-Jan-13 7:15 
AnswerRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmvpRichard MacCutchan15-Jan-13 22:59 
GeneralRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmemberLord Christian17-Jan-13 6:56 
GeneralRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmvpRichard MacCutchan17-Jan-13 7:10 
GeneralRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmemberLord Christian17-Jan-13 7:33 
GeneralRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmvpRichard MacCutchan17-Jan-13 22:51 
GeneralRe: control 5 appliances using pc's parallel port[vb.net 2010] PinmemberLord Christian18-Jan-13 4:58 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web01 | 2.8.140721.1 | Last Updated 29 Jul 2014
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid