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