#CR_SUCCESS = 0
#CM_LOCATE_DEVNODE_NORMAL = 0

#MAX_CLASS_NAME_LEN = 32
#MAX_DEV_NAME_LEN   = 512

#SPDRP_HARDWAREID   = 1
#SPDRP_SERVICE      = 4

#SPDRP_FRIENDLYNAME = $0C
#SPDRP_ENUMERATOR_NAME = $16
#SPDRP_PHYSICAL_DEVICE_OBJECT_NAME = $0E

Structure SP_DEVICE_INTERFACE_DETAIL_DATA
  cbSize.l
  DevicePath.s{255}
EndStructure

Structure SP_DEVINFO_DATA
  cbSize.l 
  ClassGuid.GUID 
  DevInst.l 
  *reserved
EndStructure 


Prototype ptCM_Get_Device_IDW(DevInst.l, *DeviceIdString, BufferLen.l, Flags.l)
Prototype ptCM_Get_Parent(*DevInst, DevInst.l, Flags)
Prototype ptCM_Locate_DevNodeW(*DevInst, *pDeviceID, ulFlags.l)

Global CM_Locate_DevNode.ptCM_Locate_DevNodeW
Global CM_Get_Parent.ptCM_Get_Parent
Global CM_Get_Device_ID.ptCM_Get_Device_IDW

Define setupapi

setupapi = OpenLibrary(#PB_Any, "setupapi.dll")
If setupapi
  CM_Get_Device_ID = GetFunction(setupapi, "CM_Get_Device_IDW")
  CM_Get_Parent = GetFunction(setupapi, "CM_Get_Parent")
  CM_Locate_DevNode = GetFunction(setupapi, "CM_Locate_DevNodeW")
Else
  MessageRequester("Error", "Can't open library setupapi.dll")
  End
EndIf

Define Index.i, cbRequired.l
Define DeviceInfoData.SP_DEVICE_INTERFACE_DATA

Define pdidd.SP_DEVICE_INTERFACE_DETAIL_DATA
Define spdd.SP_DEVINFO_DATA

Define hDevInfo
Define *pGUID = ?GUID_USB_DEVICE

Define Buffer.s{512}

DeviceInfoData\cbSize = SizeOf(SP_DEVICE_INTERFACE_DATA)


hDevInfo = SetupDiGetClassDevs_(*pGUID, #Null, #Null, #DIGCF_PRESENT | #DIGCF_DEVICEINTERFACE)
If hDevInfo = #INVALID_HANDLE_VALUE
  MessageRequester("Error", "Inavlid handle value")
  End
EndIf

While SetupDiEnumDeviceInterfaces_(hDevInfo, 0, *pGUID, Index, @DeviceInfoData)
  
  SetupDiGetDeviceInterfaceDetail_(hDevInfo, @DeviceInfoData, 0, 0, @cbRequired, 0)
  If cbRequired > 0 And cbRequired < 255
    
    CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
      pdidd\cbSize = 8      ; x86(Unicode=6, ASCII=5), x64=8
    CompilerElse
      pdidd\cbSize = 4 + SizeOf(Character)   ; x86(Unicode=6, ASCII=5), x64=8
    CompilerEndIf
    
    spdd\cbSize = SizeOf(SP_DEVINFO_DATA)
    
    If SetupDiGetDeviceInterfaceDetail_(hDevInfo, @DeviceInfoData, @pdidd, cbRequired, 0, @spdd)
      
      If FindString(pdidd\DevicePath, "USBSTOR", 1, #PB_String_NoCase)
        
        CM_Get_Parent(@DevInstParent, spdd\DevInst, 0)
        Debug "Parent DevInst: " + DevInstParent
        
        CM_Get_Device_ID(DevInstParent, @Buffer, 512, 0)
        Debug "Parent DeviceId: " + Buffer
        
        Debug ""
        
        Debug "DevicePath: " + pdidd\DevicePath
        Debug "DevInst: " + spdd\DevInst
        
        CM_Get_Device_ID(spdd\DevInst, @Buffer, 512, 0)
        Debug "DeviceId: " + Buffer
        
        CM_Locate_DevNode(@id, @Buffer, #CM_LOCATE_DEVNODE_NORMAL)
        Debug "DevInst: " + id
        
        SetupDiGetDeviceRegistryProperty_(hDevInfo, @spdd, #SPDRP_FRIENDLYNAME, 0, @Buffer, 512, 0)
        Debug "Friendly name: " + Buffer
        
        SetupDiGetDeviceRegistryProperty_(hDevInfo, @spdd, #SPDRP_ENUMERATOR_NAME, 0, @Buffer, 512, 0)
        Debug "SPDRP_ENUMERATOR_NAME: " + Buffer
        
        SetupDiGetDeviceRegistryProperty_(hDevInfo, @spdd, #SPDRP_PHYSICAL_DEVICE_OBJECT_NAME, 0, @Buffer, 512, 0)
        Debug "SPDRP_PHYSICAL_DEVICE_OBJECT_NAME: " + Buffer
        
        SetupDiGetDeviceRegistryProperty_(hDevInfo, @spdd, #SPDRP_HARDWAREID, 0, @Buffer, 512, 0)
        Debug "SPDRP_HARDWAREID: "
        Debug Buffer
        
        StrLength = StringByteLength(Buffer)
        *p = @Buffer + StrLength + 2
        While PeekC(*p)
          s.s = PeekS(*p)
          Debug s
          StrLength = StringByteLength(s)
          *p + StrLength + 2
        Wend
        
        Debug "----------------------------------------"
        
      EndIf
    EndIf
  EndIf
  
  Index + 1
Wend

SetupDiDestroyDeviceInfoList_(hDevInfo)
CloseLibrary(setupapi)


DataSection
  GUID_USB_DEVICE:
  Data.l $53f56307
  Data.w $b6bf, $11d0
  Data.b $94, $f2, $00, $a0, $c9, $1e, $fb, $8b
EndDataSection

DriveGetNumber - https://www.purebasic.fr/english/viewtopic.php?t=78880
там же DriveGetName.

у меня на 2-х флешках этот код ничего не даёт, на других двух выводит инфу.
Проще давать ссылку откуда вы его взяли