What is your main objective for the drive info? This will display them all in a pretty list message box.

Code:
for each $drive in WshEnumDrives()

   If $drive.sharename = ""

      $sharename = "Local"

   Else

      $sharename = $drive.sharename

   Endif

   $msgstring = $msgstring+$drive.driveletter+" - "+$sharename+@CRLF

next



$null = messagebox ($msgstring, "Current Drives", 0)



function WshEnumDrives()

 dim $fso 

 $WshEnumDrives = ""

 $fso = createobject("scripting.filesystemobject")

 if $fso

  $WshEnumDrives = $fso.drives

 endif

 exit @error

endfunction

Edited by CitrixMan (2003-12-11 05:39 PM)