リファレンス、WshNetwork オブジェクト、EnumNetworkDrives メソッド

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives

WScript.Echo oDrives.Count
For Each x in oDrives
  WScript.Echo x
Next

ペアで情報が格納されるらしい