Is there any way to get the title of a cd and paste it into a cell?

For example, I want to be able to insert a disc into my cd-rom and run
a macro that looks at the cd and records its 'title'. Title being what
shows up in windows explorer next to the drive letter.