http://www.perlmonks.org?node_id=362742


in reply to Re^5: USB Drive Letter Assignment in Win32
in thread USB Drive Letter Assignment in Win32

Great. Thank you. I have a short demo working:
use Win32::AdminMisc; @drives = Win32::AdminMisc::GetDrives( DRIVE_REMOVABLE ); foreach $drive (@drives){ %Info = Win32::AdminMisc::GetVolumeInfo($drive); # print "Drive $drive label is $Info{Volume}\n"; print "Found USBDRIVE at $drive\n" if $Info{Volume} eq 'USBDRIVE'; }