FSO to the rescue again...

Code:

Dim $fso, $d, $dc
$fso = CreateObject("Scripting.FileSystemObject")
$dc = $fso.Drives
For Each $d in $dc
    If $d.DriveType = 3
        "Drive Letter: " + $d.DriveLetter ?
        "  Share Name: " + $d.ShareName ??
    EndIf
Next