Complete "IP Office Compliant" LDAP solution from a .CSV file 1

[MrFooF]

Hello All,
I succeed in putting an LDAP server from a formatted .CSV file.
As LDAP server I use OpenDJ on windows Server Supports LDAP v2 with simple Auth.
Script is based on the one posted by da.eXecutoR from stackoverflow.com
OpenDJ is installed in c:\OpenDJ base DN : ou=Annuaire,dc=IPOffice,dc=local
Original .CSV is in C:\Annuaire
CSV2LDAP.au Script, once build is to put in c:\LDAP
Importation.bat file also ( "cn=LDAP User" and "LDAP User Password" are to modify to correspond to your LDAP user login )
Here you have a full CSV to LDAP Server, with log file.

Sorry for the french names

;###########################################################################################
;####       Start the app

LDIF_Converter()


;###########################################################################################
;####       App function
Func LDIF_Converter()
    TrayTip("CSV2LDIF Converter","Conversion en cours...",2000,1)

    Local $file = "C:\LDAP\Annuaire.ldif", $contacts = 0, $sFilePath = "C:\Annuaire\Annuaire.csv", $sFileBackup = "C:\LDAP\DernierAnnuaire.csv"
	; Verify file existense  & copy it
	if not FileExists($sFilePath) then
	   TrayTip("CSV2LDIF Converter","Erreur : Fichier " & $sFilePath & " inexistant." & @CRLF & "Conversion impossible" ,30000,3)
	   Exit
	Else
	   FileCopy ($sFilePath,$sFileBackup,1)
	endIf
    ; Remote old file
    FileDelete($file);
    ; Write Header
    FileWrite($file,"#Base structure for each person");
    Filewrite($file,@crlf)
    FileWrite($file,"dn: OU=Annuaire,dc=IPOffice,dc=local");
    Filewrite($file,@crlf)
    FileWrite($file,"ou: Annuaire");
    Filewrite($file,@crlf)
    FileWrite($file,"objectClass: organizationalUnit");
    Filewrite($file,@crlf)
    FileWrite($file,"objectClass: top");
    Filewrite($file,@crlf)
    Filewrite($file,@crlf)

    ; Read out CSV File
    _FileReadToArray($sFilePath, $contacts, $FRTA_NOCOUNT, ";")

    ; Write to File for each contact
    For $i = 0 To UBound ($contacts) - 1
        ; Clear contact cache
        $cache = ""
        ; Write object ID & comman attributes
        $cache = $cache & "dn: CN="&$contacts[$i][1]&"."& $i &",ou=Annuaire,dc=IPOffice,dc=local" & @CRLF
        $cache = $cache & "objectClass: inetOrgPerson" & @CRLF
        $cache = $cache & "objectClass: organizationalPerson" & @CRLF
        $cache = $cache & "objectClass: person" & @CRLF
        $cache = $cache & "objectClass: top" & @CRLF

        if $contacts[$i][1] == "" Then
            $sn = $contacts[$i][0]
        Else
            $sn = $contacts[$i][0] & " " & $contacts[$i][1]
        EndIf

	    ; Write common name
        $cache = $cache & "cn: "&$sn & @CRLF

        ; Write lastname/company
        $cache = $cache & "sn: "&$sn & @CRLF

        ; Write organisation
        if StringRegExpReplace($contacts[$i][0],' ',"") <> "" Then
            $cache = $cache & "o: "&$contacts[$i][0] & @CRLF
		 Else
			$cache = $cache & "o: Aucun" & @CRLF
        EndIf

        ; Write telephone number
        $phone = StringRegExpReplace($contacts[$i][2],'[a-zA-Z;\\/:.,*?\"<>|& ]',"")
        if $phone <> "" And $phone <> " " Then
            $cache = $cache & "telephoneNumber: "& $phone & @CRLF
        EndIf
        ; Write mobile number
        $mobile = StringRegExpReplace($contacts[$i][3],'[a-zA-Z;\\/:.,*?\"<>|& ]',"")
        if $mobile <> "" And $mobile <> " " Then
            $cache = $cache & "mobile: "& $mobile & @CRLF
		 EndIf

        ; Write Otherphone number
        $otherphone = StringRegExpReplace($contacts[$i][4],'[a-zA-Z;\\/:.,*?\"<>|& ]',"")
        if $otherphone <> "" And $otherphone <> " " Then
            $cache = $cache & "telephoneNumber: "& $otherphone & @CRLF
		 EndIf

        ; Write Pager number
        $pager = StringRegExpReplace($contacts[$i][5],'[a-zA-Z;\\/:.,*?\"<>|& ]',"")
        if $pager <> "" And $pager <> " " Then
            $cache = $cache & "pager: "& $pager & @CRLF
        EndIf

        ; Seperator for contacts
        $cache = $cache & @CRLF
        ; Write all in one file access
        FileWrite($file,$cache)
    Next
    TrayTip("CSV2LDIF Converter","Conversion terminée. ",2000)
    sleep(2000)
EndFunc

@echo off
echo deb conversion: %date% %time% >"C:\LDAP\importation.log"
call C:\LDAP\Csv2LDAP.exe
echo import: %date% %time% >>"C:\LDAP\importation.log"
call "C:\OpenDJ\bat\import-ldif.bat" "--ldifFile" "C:\LDAP\Annuaire.ldif" "--backendID" "userRoot" "--clearBackend" "--rejectFile" "C:\LDAP\refuses.ldif" "--skipFile" "C:\LDAP\ignores.ldif" "--overwrite" "--hostname" "IPOffice" "--port" "4444" "--bindDN" "cn=LDAP User" "--bindPassword" "LDAP User Password" "--trustAll" "--noPropertiesFile"  >>"C:\LDAP\importation.log"

echo lignes ignorees : >>"C:\LDAP\importation.log"
copy "C:\LDAP\importation.log" + "C:\LDAP\ignores.ldif" "C:\LDAP\importation.log"
echo lignes refusees : >>"C:\LDAP\importation.log"
copy "C:\LDAP\importation.log" + "C:\LDAP\refuses.ldif" "C:\LDAP\importation.log"

echo fin : %date% %time% >>"C:\LDAP\importation.log"

Feel free to ask, I'll update the post if needed

 

[intrigrant]

Nice! Thank you for sharing,