oNet = CREATEOBJECT("wscript.network") oDrives = oNet.EnumNetworkDrives() FOR i=0 TO oDrives.Count-1 STEP 2 ? oDrives.Item[i], oDrives.Item[i+1] ENDFOR