Try this:

code:
$server = "server"
$shares = "Mark","www","hdd","Public"
$drives = "e:","f:","g:","h:"
$I = 0
FOR EACH $mapping IN $shares
   $assign = $drives[$i]
   $nul = execute('use $assign "\\$server\$mapping"')
   $I = $I + 1
NEXT
_________________________
Dean