Page 1 of 1

disk serial numbaer

Posted: Thursday 5th October 2017 12:12am
by sony
Hello,
How to read the usb stick volume serial number?
Thank

Sony

Re: disk serial numbaer

Posted: Thursday 5th October 2017 10:28am
by stevedee
This is one way of doing it:-

Code: Select all

Public Sub Main()
'this sub uses the list of links in: /dev/disk/by-id/
'...which includes the device identity and serial number

Dim strDisk As String
Dim strLink As String
Dim strName As String
Dim strSerial As String

  For Each strDisk In Dir("/dev/disk/by-id", "usb-*", gb.Link)
    strLink = Stat("/dev/disk/by-id/" & strDisk).Link
    strLink = "/dev/" & Right(strLink, - RInStr(strLink, "/"))
    If Len(strLink) = 8
      strDisk = Mid(strDisk, InStr(strDisk, "_") + 1)
      strDisk = Mid(strDisk, 1, InStr(strDisk, "-") - 1)
      strName = Replace(Left(strDisk, RInStr(strDisk, "_")), "_", " ")    
      strSerial = Mid(strDisk, RInStr(strDisk, "_") + 1, InStr(strDisk, "-") - 1)
      Print strName & " serNo: " & strSerial
    Endif
  Next  

End
Or you could use the Linux command: lsusb -v ...which must be run as root.
This will give you access to more device information (e.g. idProduct, idVendor, iProduct, iSerial, USB class)

Re: USB disk serial number

Posted: Thursday 5th October 2017 1:49pm
by cogier
Here is another way of doing it. This works in Linux Mint but whether it will work in other distros is another matter.
USB Serial Number.jpg
USB Serial Number.jpg (29.69 KiB) Viewed 6970 times
USB_Serial_Number.tar
(26.5 KiB) Downloaded 515 times
EDIT: - It does not work on the Raspberry Pi

Re: disk serial numbaer

Posted: Friday 6th October 2017 4:30am
by sony
Thank you very much

Sony

Re: disk serial numbaer

Posted: Saturday 7th October 2017 8:02pm
by jornmo
Hey Sony!

I like your TVs and loudspeakers :lol:

Sorry, I just could not help myself ;) I have a very dry sense of humour... Welcome (back) to the forums! :ugeek: