A function to get drive's model number from drive letter

Requirement ------------- A function of the form: GetDriveModelNumber(D: string): String; where D = Drive letter with colon, e.g: "L:" return value is the Drive's model number The function should be written in Delphi. It should return drive's model number from the drive letter of an attached external USB drive. For instance, Drive "L:" is an external USB drive. It's volume name is "DELTA" (which we can get from GetVolumeInformation). The drive's model number is "SAMSUNG". we need a function that will return "SAMSUNG" from the input parameter "L:". - Must run on Windows NT, 2000, XP, 2003, & Vista - The code should run on any account it should not require an administrator account