Outlook et carnet d'adresse commun

Outlook et carnet d'adresse commun - Infrastructures serveurs - Systèmes & Réseaux Pro

Marsh Posté le 20-05-2010 à 17:06:16    

Bonjour,
 
je cherche le meilleur moyen de mettre à disposition d'utilisateurs d'un domaine un carnet d'adresses partagé sous leurs clients Outlook.  
La messagerie n'est pas sous Exchange.
 
Y'a bien la possibilité de déclarer un carnet d'adresse qui pointe vers un LDAP mais je trouve ca pas terrible :
- ca n'apparait pas dans la fenêtre des contacts
- ca ne marche que par recherche et ca renvoie tous les objets AD
- faut paramétrer l'adresse du DC et le nom de l'user. Je ne sais pas si ca peut se déployer sans trop se prendre la tête.
 
Y'a d'autres solutions ?

Message cité 1 fois
Reply

Marsh Posté le 20-05-2010 à 17:06:16   

Reply

Marsh Posté le 20-05-2010 à 17:27:45    

je suis preneur aussi, j'ai longtps cherché mais les seuls produits était des shareware qui faisaient un peu "bricolage".

Reply

Marsh Posté le 21-05-2010 à 10:52:35    

Salut,

ShonGail a écrit :

Bonjour,
 
 
 
Y'a bien la possibilité de déclarer un carnet d'adresse qui pointe vers un LDAP mais je trouve ca pas terrible :
- ca n'apparait pas dans la fenêtre des contacts
- ca ne marche que par recherche et ca renvoie tous les objets AD
- faut paramétrer l'adresse du DC et le nom de l'user. Je ne sais pas si ca peut se déployer sans trop se prendre la tête.
 


nous on utilise le LDAP qui pointe sur AD.
1) Oui ca n'apparait pas dans les contacts ... et ? ca apparait dans le carnet d'adresse .. Pour nous ca n'a gêné personne et ca permet d'ajouter des contacts personnels aux utilisateurs ..
2) Tous les mails renseignés contenus dans ton OU adressée .. Nous on a affiné ca pour que ca colle aux besoins. C'est pas toujours top, mais bon c'est centralisé, logique que ce soit un peu large .
3)  De ce coté j'ai rien trouvé non plus pour simplifier la vie des admins ... On a coller ca dans la proc de l'install des postes ... Je ne sais pas ce qui est mieux y coller un compte générique pour bien l'utilisateur directement .. Reste que pour nous c'est à la mano .
 
My 2 cents.
 
 
 


---------------
www.google.fr  
Reply

Marsh Posté le 24-05-2010 à 16:41:48    

boobaka,

 

avec quel compte les users attaquent AD ? Le leur ou un compte générique ?

 

Sinon, pour automatiser l'intégration de ce carnet d'adresses dans les Outlook des postes clients, y'a moyen de passer par le VBS ici :
http://www.codeproject.com/KB/vbsc [...] rbook.aspx

 

je l'ai un peu modifié afin d'inclure l'authentification (clés "01026617" pour le MDP et "001e6602" pour le compte). Ca donne ça :


const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\default:StdRegProv" )
RegistryFolder = "Software\Microsoft\Windows NT\" & _
  "CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\"

 

LDAPdisplayname = "Carnet de contacts entreprise"
LDAPserver = "DC01.entreprise.com"
LDAPport = "389"
LDAPsearchbase = "OU=Entreprise Users,DC=entreprise,DC=com"

 


'Add Ldap Type Key

 

sKeyPath = RegistryFolder & "e8cb48869c395445ade13e3c1c80d154\"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00033009", Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00033e03", Array(&H23,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3001", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3006", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e300a", "EMABLT.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, _
    "01023d0c", Array(&H5c,&Hb9,&H3b,&H24, _
    &Hff,&H71,&H07,&H41,&Hb7,&Hd8,_
    &H3b,&H9c,&Hb6,&H31,&H79,&H92)

 

'Add Ldap connection settings key

 

sKeyPath = RegistryFolder & "5cb93b24ff710741b7d83b9cb6317992\"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00033009", Array(&H20,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00036623", Array(&H00,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6613", Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6615", Array(0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", LDAPdisplayname
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0a", "BJABLR.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0b", "ServiceEntry"
oReg.SetStringValue HKEY_CURRENT_USER, _
     sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6600", LDAPserver
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6601", LDAPport
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6602", "compteconnexionAD@entreprise.com"
oReg.SetStringValue HKEY_CURRENT_USER, _
     sKeyPath , "001e6603", LDAPsearchbase
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e6604", "(&(mail=*)(|(mail=%s*)" & _
     "(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6605", "SMTP"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6606", "mail"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6607", "60"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6608", "100"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6609", "120"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660a", "15"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660b", ""
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660c", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660d", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660e", "NONE"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660f", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6610", "postalAddress"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6611", "cn"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6612", "1"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "001e67f1", Array(&H0a)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023615", _
     Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,_
     &Hd3,&H11,&H9d,&H60,&H00,_
     &Hc0,&H4f,&H4c,&H8e,&Hfa)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", _
     Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,_
     &H54,&H45,&Had,&He1,&H3e,&H3c,_
     &H1c,&H80,&Hd1,&H54)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026617", _
     Array(&H01,&H00,&H00,&H00,&Hd0,&H8c,&H9d,&Hdf,&H01,&H15,&Hd1,&H11,&HAc,&H7a,&H00,&Hc0,&H4f,&Hc2,&H97,&Heb,&H01,_
     &H00,&H30,&H00,&H99,&Hb0,&H3d,&H8a,&H3d,&Hb2,&H05,&H49,&Hbf,&H14,&H8e,&H99,&H6b,&H0b,&Hc5,&H81,&H00,&H00,&H00,&H00,&H02,&H00,_
     &H00,&H00,&H00,&H97,&H03,&H66,&H00,&H00,&Ha8,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&H33,&H94,&H43,&H37,&Hca,&H31,&Hbc,&Hb1,&Hba,_
     &H50,&H2a,&Hd0,&H44,&Hae,&Hd0,&H04,&H00,&H00,&H00,&H00,&H04,&H80,&H10,&H00,&Ha0,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&H84,&Hae,_
     &H76,&H1d,&H84,&H73,&H91,&H4f,&H9a,&H83,&H3d,&Hfa,&Hb9,&Hc1,&H94,&He7,&H18,&H00,&H00,&H00,&H5f,&H06,&H38,&Ha9,&H6d,&H02,&Hbc,_
     &H40,&Hdd,&Hf2,&Hd2,&H58,&Hbc,&He9,&H9e,&H1e,&H56,&H6c,&Hff,&H1b,&Hd9,&H64,&Hbc,&Hff,&H14,&H00,&H00,&H00,&H55,&Hae,&Hbc,&H20,_
     &H46,&Hfa,&Hfb,&H33,&H56,&H6a,&Hef,&Hec,&H9c,&H58,&H78,&H6d,&H14,&H99,&Hac,&H4e)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026631", _
     Array(&H98,&H17,&H82,&H92,&H5b,&H43,_
     &H03,&H4b,&H99,&H5d,&H5c,_
     &Hc6,&H74,&H88,&H7b,&H34)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "101e3d0f", _
     Array(&H02,&H00,&H00,&H00,&H0c,&H00,_
     &H00,&H00,&H17,&H00,&H00,&H00,_
     &H45,&H4d,&H41,&H42,&H4c,&H54,_
     &H2e,&H44,&H4c,&H4c,&H00,&H42,_
     &H4a,&H41,&H42,&H4c,&H52,&H2e,_
     &H44,&Hc,&H4c,&H00)

 

'Append to Backup Key for ldap types

 

sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2\"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup
Dim oldLength
oldLength = UBound(Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &He8
Backup(oldLength+2) = &Hcb
Backup(oldLength+3) = &H48
Backup(oldLength+4) = &H86
Backup(oldLength+5) = &H9c
Backup(oldLength+6) = &H39
Backup(oldLength+7) = &H54
Backup(oldLength+8) = &H45
Backup(oldLength+9) = &Had
Backup(oldLength+10) = &He1
Backup(oldLength+11) = &H3e
Backup(oldLength+12) = &H3c
Backup(oldLength+13) = &H1c
Backup(oldLength+14) = &H80
Backup(oldLength+15) = &Hd1
Backup(oldLength+16) = &H54
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", Backup

 


'Append to Backup Key for ldap connection settings

 

sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2\"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d0e",Backup
oldLength = UBound(Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &H5c
Backup(oldLength+2) = &Hb9
Backup(oldLength+3) = &H3b
Backup(oldLength+4) = &H24
Backup(oldLength+5) = &Hff
Backup(oldLength+6) = &H71
Backup(oldLength+7) = &H07
Backup(oldLength+8) = &H41
Backup(oldLength+9) = &Hb7
Backup(oldLength+10) = &Hd8
Backup(oldLength+11) = &H3b
Backup(oldLength+12) = &H9c
Backup(oldLength+13) = &Hb6
Backup(oldLength+14) = &H31
Backup(oldLength+15) = &H79
Backup(oldLength+16) = &H92
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d0e", Backup

 


'Delete Active Books List Key

 

sKeyPath = RegistryFolder & "9375CFF0413111d3B88A001" & _
           "04B2A6676\{ED475419-B0D6-11D2-8C3B-00104B2A6676}"
oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath

 

Ca marche bien mais je vais passer ce code en autoit afin de pouvoir le compiler.


Message édité par ShonGail le 24-05-2010 à 16:48:47
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed