usb drive serial number

[amir0914]

Hi all, is there a way to get serial number of all usb flash driver with vba ??
I found a code in below website, but it gives Device id while I need to serial number of usb :

https://myengineeringworld.net/2014/01/retrieve-usb-device-information-vba-wmi.html

can someone help me??
Thanks in advanced.

 

[igold]

Hi,

I just looked at the properties on a couple of Flash Drives attached to my machine. I did not see anything that resembled a Serial Number. Are you sure that there is one, and if so, what is it called in the Properties drop down box.

 

[shg]

Function DriveSerialNumber(sDriveSpec As String) As String
  ' Returns the (hex) serial number of sDriveSpec, which can be
  '  o  a drive letter with optional colon and path separator ("C", "C:", "C:\")
  '  o  a network share specification ("\\computer2\share1")

  ' Returns "" if not found

  On Error Resume Next
  DriveSerialNumber = Hex(CreateObject("Scripting.FileSystemObject").GetDrive(sDriveSpec).SerialNumber)
End Function

 

[amir0914]

Thank you shg,
Is there a code to get all drives serial on system?