;===============================================================
Call "MyFunctions.kix"
$aryGroups = GroupArray()
$strIniFile = "c:\kixwork\mappings.ini"
For Each $ae in $aryGroups
  GroupMap($strIniFile,$ae)
Next
;===============================================================

Myfunction.kix

;===============================================================
Function GroupArray()
;===============================================================
Dim $i
Dim $strGrpLst
Dim $gName
$i = 0
$strGrpLst = ""
Do
 $gName = EnumGroup($i)
 $i = $i + 1
 If Len($gName) > 0
  If Len($strGrpLst) > 0
   $strGrpLst = $strGrpLst + ","
  EndIf
  $strGrpLst = $strGrpLst + $gName
 EndIf
Until Len($gName) = 0
$ary = Split($strGrpLst,",",-1)
;? "Before return array size is:" + Ubound($ary)
$GroupArray = $ary
EndFunction
;===============================================================

;===============================================================
Function GroupMap($inFile,$inSec)
;===============================================================
Dim $tmpDrv
$Sec = ReadProfileString($inFile,$inSec,"") 
$aMaps = Split($Sec,Chr(10),-1)
For Each $a in $aMaps
 $tmpDrv = ReadProfileString($inFile,$inSec,$a)
 $aParms = Split($tmpDrv,",")                     
  $act = UBound($aParms)
  Use $aParms[0] + ":" $aParms[1]
Next
$GroupMap = 1
EndFunction
;===============================================================

;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

For Each $groups in $groups
	$drives = ReadProfileString("c:\kixwork\mappings.ini", $goup, "NumberOfDrives")	
	If $drives <> ""
		;do all the magic here
	Else
		;no drives to map for this groups so move on the the next group.
	EndIf
Next

[IBB Kondor]
CLASS=DISK
TARGET=F:
PATH=\\dc-034\netapps$
DESC=Netapps
CLASS=DISK
TARGET=G:
PATH=\\dc-034\USR$\%USERNAME%
DESC=USERSHARE AUTOCAD
CLASS=M:
PATH=\\dc-034\acad$
DESC=Autocad 
CLASS=O:
PATH=\\DC-034\ACAD DIRECT$
DESC=AUTOCAD SYNCHRONISATIE
PRIV=GUEST
GROUPS=GS_IBB Kondor_ACAD
OUS=

[IBB Kondor 1]
CLASS=DISK
TARGET=F:
PATH=\\dc-034\netapps$
DESC=Netapps
[IBB Kondor 2]
CLASS=DISK
TARGET=G:
PATH=\\dc-034\USR$\%USERNAME%
DESC=USERSHARE AUTOCAD
[IBB Kondor 3]
CLASS=DISK
TARGET=M:
PATH=\\dc-034\acad$
DESC=Autocad 
[IBB Kondor 4]
CLASS=DISK
TARGET=O:
PATH=\\DC-034\ACAD DIRECT$
DESC=AUTOCAD SYNCHRONISATIE
PRIV=GUEST
GROUPS=GS_IBB Kondor_ACAD
OUS=

DEBUG=Y

AllowedDomains=DM001
DeniedDomains=ThatTrustedDomain