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()
Partager