Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives WScript.Echo oDrives.Count For Each x in oDrives WScript.Echo x Next ペアで情報が格納されるらしい