;Enumerate all group for the current user.
$goups = arrayenumgroup()
;Start the magic for each group.
 For Each $group in $groups
	;Read the number of drives to be mapped for each group.
	$drives = ReadProfileString("c:\kixwork\mappings.ini", $goup, "NumberOfDrives")
	;Map each drive.
	For $i = 1 to $drives
		;Read drive data from ini file.
		$drive = ReadProfileString("c:\kixwork\mappings.ini", $goup, "MapDrive" + $i)
		$drive = Split($drive, ",")
		Use $drive[0] + ': "' + $drive[1] + '"'
	Next
Next

;DO NOT MODIFY ANYTHING BELOW THIS LINE.
;IT IS A UDF AND IT COMES READY FOR USE.

;NAME          ARRAYENUMGROUP
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;ACTION        Creates an array of groups of which the current user is a member
;   
;SYNTAX        ARRAYENUMGROUP()
;  
;PARAMETERS    none
;
;RETURNS       Array containing the group names
; 
;REMARKS       none
;
;DEPENDENCIES  none
;  
;EXAMPLE       $retcode=arrayenumgroup()
;
Function arrayenumgroup()
  Dim $retcode, $valuecounter, $currentvalue, $valuearray
  
  $valuecounter=0
  Do
    $currentvalue=EnumGroup($valuecounter)
    If $currentvalue<>259 And @ERROR=0
      ReDim preserve $valuearray[$valuecounter]
      $valuearray[$valuecounter]=$currentvalue
      $valuecounter=$valuecounter+1
    EndIf
  Until $currentvalue=259 Or @ERROR
  
  $arrayenumgroup=$valuearray
EndFunction