How do I find out about the driver letter of a usb drive by script, given the DeviceID

Question

Hi all,
I am wondering if it is possible by script to find out what the drive letter of a usb drive might be.
I have just inserted my USB stick into a socked and the operating system displays that the drive was recognized and that the drive letter is F:.
I already know, how USB devices can be listed by WMI script, but how do I extract the drive letter of a USB storage device.
The DeviceID is known, where do I find the drive letter given the DeviceID ?
Disk drive
DeviceID:
USBSTOR\DISK&VEN_SAMSUNG&PROD_YP-U2&REV_0100\4002FDCCE0E4D094&0
Service: disk
Status: OK
SystemName: MEINER
Caption: Samsung YP-U2 USB Device
All help is welcome

Answer 1

@echo off  
:: GetLetterOFmyUSBstick.cmd  
:: Bye Gastone Canali  
::DeviceID: USBSTOR\DISK&VEN_SAMSUNG&PROD_YP-U2&REV_0100\4002FDCCE0E4D094&0  
setlocal EnableDelayedExpansion  
set PNPDeviceID=4002FDCCE0E4D094 
set Q='wmic  diskdrive where "interfacetype="USB" and PNPDeviceID like "%%%PNPDeviceID%%%""    assoc /assocclass:Win32_DiskDriveToDiskPartition' 
echo %Q%  
for /f "tokens=2,3,4,5 delims=,= " %%a in (%Q%) do (  
  set hd=%%a %%b, %%c %%d  
  call :_LIST_LETTER !hd!)  
goto :_END  
:_LIST_LETTER  
(echo %1 |find  "Disk ") >nul|| goto :_EOF   
for /f "tokens=3 delims==" %%a in ('WMIC Path Win32_LogicalDiskToPartition  ^|find %1') do set TMP_letter=%%a  
set Part_letter=%TMP_letter:~1,2%   
echo %Part_letter% %1  
goto :_EOF  
:_END  
:_EOF  
' ' GetLetterOFmyUSBstick.vbs
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
strPnPdevID = "USBSTOR\DISK&VEN_SAMSUNG&PROD_YP-U2&REV_0100\4002FDCCE0E4D094&0" 
strPnPdevID = Replace(strPnPdevID, "\", "\\")  
Set colDiskDrives = objWMIService.ExecQuery ("SELECT * FROM Win32_DiskDrive where PNPDeviceID like '"& strPnPdevID &"' ")  
For Each objDrive In colDiskDrives  
    Wscript.Echo "Physical Disk: " & objDrive.Caption & " -- " & objDrive.DeviceID   
    strDeviceID = Replace(objDrive.DeviceID, "\", "\\")  
    Set colPartitions = objWMIService.ExecQuery _  
        ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _  
            strDeviceID & """} WHERE AssocClass = " & _  
                "Win32_DiskDriveToDiskPartition")  
    For Each objPartition In colPartitions  
        Wscript.Echo "Disk Partition: " & objPartition.DeviceID  
        Set colLogicalDisks = objWMIService.ExecQuery _  
            ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _  
                objPartition.DeviceID & """} WHERE AssocClass = " & _  
                    "Win32_LogicalDiskToPartition")  
        For Each objLogicalDisk In colLogicalDisks  
            Wscript.Echo "Logical Disk: " & objLogicalDisk.DeviceID  
        Next 
        Wscript.Echo  
    Next 
    Wscript.Echo  
Next