Get USB serial number

[pentahari]

It is very URGENT.

How to get the USB serial no using VB6.

[pentahari]

Solution :

Function GetUSBSerialNo(ByVal DriveLetter As String)
    Dim PnPID As String
    PnPID = USBSerialNo(DriveLetter)
 
    If Not Trim(PnPID) = "" Then
        GetUSBSerialNo = formatSerialNo(PnPID)
    Else
        GetUSBSerialNo = ""
   End If
 
End Function
 
 
Function USBSerialNo(ByVal DriveLetter As String)
 
Dim objFSO
Dim objFolder
Dim Directory
Const OverwriteExisting = True
 
Dim SerialNo As String
 
Dim ComputerName
ComputerName = "."
Dim wmiServices, wmiDiskDrives, wmiDiskDrive, query, wmiDiskPartitions, wmiDiskPartition, wmiLogicalDisks, wmiLogicalDisk
 
Set wmiServices = GetObject( _
    "winmgmts:{impersonationLevel=Impersonate}!//" _
    & ComputerName)
 
Set wmiDiskDrives = wmiServices.ExecQuery("SELECT Caption, DeviceID,PNPDeviceID FROM Win32_DiskDrive")
 
For Each wmiDiskDrive In wmiDiskDrives
 
    SerialNo = wmiDiskDrive.PNPDeviceID '1
 
 query = "ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" _
        & wmiDiskDrive.deviceid & "'} WHERE AssocClass = Win32_DiskDriveToDiskPartition"
    Set wmiDiskPartitions = wmiServices.ExecQuery(query)
 
    For Each wmiDiskPartition In wmiDiskPartitions
        Set wmiLogicalDisks = wmiServices.ExecQuery _
            ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" _
             & wmiDiskPartition.deviceid & "'} WHERE AssocClass = Win32_LogicalDiskToPartition")
 
        For Each wmiLogicalDisk In wmiLogicalDisks
 
        If (wmiLogicalDisk.deviceid = DriveLetter) And (wmiLogicalDisk.DriveType = 2) Then '2
            USBSerialNo = SerialNo
            Exit Function
        End If
 
        Next
    Next
Next
End Function
 
 
Function formatSerialNo(ByVal PnPID As String)
    Dim arrSerialNo
    Dim arrSerialNo1
    arrSerialNo = Split(PnPID, "\")
    Dim i
    arrSerialNo1 = Split(arrSerialNo(UBound(arrSerialNo)), "&")
 
    If UBound(arrSerialNo1) > 0 Then
        formatSerialNo = arrSerialNo1(UBound(arrSerialNo1) - 1)
    Else
        formatSerialNo = arrSerialNo1(UBound(arrSerialNo1))
    End If
 
End Function
 

[9815402440]

hi
i also tried the code but it is giving an automation error on following line

Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonat e}!//" & ComputerName)

can you please tell if there are any references that must be added to run this code.

thanks
regards
manpreet singh dhillon hoshiarpur

[pentahari]

hi
i also tried the code but it is giving an automation error on following line

Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonat e}!//" & ComputerName)

can you please tell if there are any references that must be added to run this code.

thanks
regards
manpreet singh dhillon hoshiarpur

what OS are you use?

Easy to get the USB serial no in .Net
Please follow the below URL.

http://home.hot.rr.com/graye/Article...ialNumbers.htm

[9815402440]

hi
thanx for the reply
i am using vb6 and operating system is WinXP
i tried the link suggested by you. but that is for .net.
please help why the specified line gives run time error
regards
manpreet singh dhillon hoshiarpur

[pentahari]

hi
thanx for the reply
i am using vb6 and operating system is WinXP
i tried the link suggested by you. but that is for .net.
please help why the specified line gives run time error
regards
manpreet singh dhillon hoshiarpur

I don't know, i have given references:
Visual basic for applications
Visual basic runtime objects and procedures
Visual basic objects and procedures
OLE Automation
Microsoft ActiveX Data objects 2.0 Library

my friend say:
Have you checked whether or not WMI is permitted on the machine?