Function GetUSB_Name(ByVal Disk As String) As String
  Local   inquiry As TInquiryData
          inquiry.SoftReset = 1
          inquiry.CommandQueue = 1
          inquiry.Reserved2 = 1
          inquiry.LinkedCommands = 1
          inquiry.Synchronous = 1
          inquiry.Wide16Bit = 1
          inquiry.Wide32Bit = 1
          inquiry.RelativeAddressing = 1

  Local hDSC As Long
  hDSC = CreateFile("\\.\" & Disk & ":",%GENERIC_READ Or %GENERIC_WRITE,%FILE_SHARE_READ Or %FILE_SHARE_WRITE,ByVal %NULL,%OPEN_EXISTING,0,ByVal %NULL)
  If hDSC = %INVALID_HANDLE_VALUE Then
       Function = $Nul
  Else
       GetDeviceName(hDSC,inquiry)
       Function = inquiry.VendorId  & " : " & _
                  inquiry.ProductId & " : " & _
                  inquiry.ProductRevisionLevel
  End If

  CloseHandle(hDSC)
End Function

Function SendCmd_to_DSC(ByVal hDSC As Long, ByVal i_command As Dword, ByVal buf As Dword, ByVal sizex As Dword) As Long
 Local Command As TScsiCommand
     Select Case i_command
               Case &h12: Type Set Command  = Chr$(&h12, 1) & MkWrd$(12)
               Case &hE0: Type Set Command  = Chr$(&hE0, 0) & MkWrd$(2)
               Case &hE1: Type Set Command  = Chr$(&hE1, 0) & MkWrd$(2)
               Case &hE2: Type Set Command  = Chr$(&hE2, 1) & MkWrd$(50)
               Case &hE3: Type Set Command  = Chr$(&hE3, 1) & MkWrd$(2)
               Case &hE4: Type Set Command  = Chr$(&hE4, 1) & MkWrd$(50)
               Case &hE5: Type Set Command  = Chr$(&hE5, 0) & MkWrd$(2)
      End Select

 Local datax As TScsiPassThrough

   datax.Length             = 44
   datax.ScsiStatus         = 0
   datax.PathId             = 0
   datax.TargetId           = 1
   datax.Lun                = 0
   datax.CdbLength          = 16
   datax.SenseInfoLength    = 24
   datax.DataIn             = command.data_in
   datax.DataTransferLength = sizex
   datax.TimeOutValue       = IIf(timeoutx, timeoutx ,command.timeoutx)
   datax.DataBuffer         = buf
   datax.SenseInfoOffset    = 48

   If(datax.DataIn) Then Poke$ buf, String$ (sizex,0)

   If command.command = &h12 Then
      datax.CdbLength = 12
      datax.Cmd.command = command.command
      datax.Cmd.sizex = sizex
   Else
      datax.USB.command = command.command
      datax.USB.size_lo = CByt(sizex)
      datax.USB.size_hi = CByt(sizex / &hFF)
   End If

   Local BytesReturned As Dword
   Local i             As Long

   Function = DeviceIoControl(hDSC,_
                              ByVal %IOCTL_SCSI_PASS_THROUGH_DIRECT,_
                              ByVal VarPtr(datax),_
                              SizeOf(datax),_
                              ByVal VarPtr(datax),_
                              SizeOf(datax),_
                              ByVal VarPtr(BytesReturned),_
                              ByVal %NULL )

End Function

Function GetDeviceName(ByVal hDSC As Long, inquiryx As TInquiryData) As Long
   Function = SendCmd_to_DSC(hDSC, %READ_DEVICE_NAME, VarPtr(inquiryx), ByVal SizeOf(TInquiryData))
End Function