WshNetwork = CreateObject("WScript.Network") oDrives = WshNetwork.EnumNetworkDrives ? "Network drive mappings:" For i = 0 to oDrives.Count - 1 Step 2 ? "Drive " + oDrives.Item(i) + " = " + oDrives.Item(i+1) Next