Else 'Standard drive mapping, using current credentials For j = 0 to UBound(arrServers) strPath = "\\" & arrServers(j) & "\" & arrMaps(i,1) objNetwork.MapNetworkDrive arrMaps(i,0) & ":",strPath,FALSE Next End If