$sShareIni= @SCRIPTDIR + "\netmap_DH.ini"
If ReadProfileString($sShareIni,"","")
If $bDEBUG
"DEBUG: Die folgenden Sektionen erscheinen in der INI.-Datei:" ?
"-----------------------------------------------------" ?
ReadProfileString($sShareIni,"","")
"-----------------------------------------------------" ?
EndIf
Else
If Exist($sShareIni)
"ERROR: INI-Datei '"+$sShareIni+"' ist leer oder ungültig!" ?
Else
"ERROR: INI-Datei '"+$sShareIni+"' existiert nicht!" ?
EndIf
Exit 1
EndIf
USE LIST @CRLF
USE * /DELETE @CRLF
$bDEBUG=1
$username=@WUSERID
$iIndex=0
$sGroup=EnumGroup($iIndex)
;While $sGroup AND Not @FEHLER
DO
If InStr($sGroup,"\") $sGroup=SubStr($sGroup,InStr($sGroup,"\")+1)
EndIf
If $bDEBUG Color w+/b "DEBUG: Suche nach Sektion [LOCATION "+$sGroup+"]" Color w/n ?
EndIf
For Each $sShare in Split(ReadProfileString($sShareIni,"LOCATION "+$sGroup,""),Chr(10))
If $sShare
$asSharePair=Split(ReadProfileString($sShareIni,"LOCATION "+$sGroup,$sShare),"|")
DIM $Befehl1
$Befehl1 = $asSharePair[0]+$asSharePair[1]
"Mappe Netzwerkpfad "+$asSharePair[1]+" auf "+$asSharePair[0] @CRLF
Execute( 'USE $Befehl1' )
If @ERROR=0
? "1. Statement" @CRLF
" " Color g+/n "OK" Color w/n @CRLF
? "Fehlercode " + "im " + $sShare + " : " +@Error @CRLF
Else
? "Else-Statement" @CRLF
" " Color r+/n "*Fehlgeschlagen*" Color w/n @CRLF
? "Fehlercode " + "im " + $sShare + " : " +@Error @CRLF
EndIf
EndIf
Next
$iIndex = $iIndex + 1
$sGroup = EnumGroup($iIndex)
;Loop
UNTIL Len($sGroup) = 0
USE B: "\\fs01\home$\$username"
IF @ERROR=0
? "B ist angehaengt" +@Error
? "Fehlercode: " +@Error
Else
? "Fehler" +@Error
? "Fehlercode: " +@Error
EndIf
USE LIST @CRLF
Exit 0
