Written this years ago:
 Code:
Function DriveName($Drive,$Name)
  Dim $Shell
  $Shell = CreateObject("Shell.Application")
  $Shell.NameSpace($Drive).Self.Name = $Name
EndFunction