Bonjour,

je cherche à modifier l'icône d'un objet Active Directory, j'ai beau modifier l'attribut iconPath de mon objet, ça ne fait aucune modification, je doit mal m'y prendre, mais je ne sais pas pourquoi

Voîlà le code que j'utilise, d'après la méthode donné par microsoft ici

J'ai ajouté manuellement mon attribut iconPath sur une classe que j'ai créé dans active directory, sinon il ne le trouvait pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
            Dim obj1 As IADs          
 
            obj1 = dso.OpenDSObject(Path, zUsername, szPassword, 1)
 
            MsgBox(obj1.Get("iconPath"))
            obj1.PutEx(ADS_PROPERTY_OPERATION_ENUM.ADS_PROPERTY_DELETE, "iconPath", obj1.GetEx("iconPath")) 'Suppression de l'attribut s'il existe
            obj1.SetInfo()
 
            obj1.PutEx(ADS_PROPERTY_OPERATION_ENUM.ADS_PROPERTY_APPEND, "iconPath", New Object() {"4,C:\\folder.ico"}) 'Ajout de la nouvelle valeur 'Garder cette syntaxe sinon PutEx ne fonctionne pas
            obj1.SetInfo()