>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 > >