Discussion :

[Reiji]

Bonjour,

On m'a demandé de modifier l'annuaire AD de l'entreprise ou je suis pour l'été. J'ai choisi le Vb script car cela me permet de decouvrir les script (chose que je connaissais juste de noms et surtout de m'avancer dans mon programme pour la 2eme année de BTS). Par conséquent j'ai suivi le tutorial de Thomas Lebrun Ici. Cela fonctionne bien (d'ailleur bravo pour ce tuto). Mais j'ai un petit soucis, je dois rajouter un nouveau parametre dans ce script et la je suis vraiment perdu. En effet faire appel à cette fonction (script) pour tout modifier dans cette AD sans passer par la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

searcher.Filter = "(SAMAccountName=TEST)"

afin de rechercher un users et ainsi de suite. (ex: Recherche du users Dupond fonction X modifier cette fonction. Recherche du user Toto etc...) Mais de pouvoir voir tous les utilisateurs et de les modifier d'un coup (j'espere que cela peut se faire.

Voici le code en entier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System.DirectoryServices 
Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://votre-nom-AD", "Login", "Password")
Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap))
searcher.Filter = "(SAMAccountName=TEST)"
Dim result As SearchResult = searcher.FindOne()
Dim DirEntry As DirectoryEntry = result.GetDirectoryEntry()
DirEntry.Properties("Fonction").Value 
DirEntry.Properties("Service").Value 
DirEntry.Properties("Société").Value 
DirEntry.Properties("Téléphone").Value 
DirEntry.Properties("Portable").Value 
DirEntry.Properties("Fax").Value 
DirEntry.Properties("Mail").Value
DirEntry.CommitChanges()

Merci par avance pour votre aide

[Ehjoe]

Bonjour,

Ici c'est vbNet, pas vbScrit (je crois), peut être y a-t-il un forum vbScript ?

[Reiji]

Salut,

Je sais bien que cette partie du forum est reservé au vb net pas au vb script. Mais bbil a deplacer mon post dans la partie vb net.
Et en effet je me suis plante dans mon post car c'est pas du vb script mais du vbnet que je veux utiliser.

Et deuxieme question j'ai un soucis au niveau de cette ligne de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim result As SearchResult = searcher.FindOne()

Il me dit

L'exception COMException n'a pas été gérée
Le serveur n'est pas operationel

pour le probleme avec le COMException je pense l'avoir resolue.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LDAP://votre-nom-AD

En effet si je donne pas la bonne adresse de mon AD cela ne risque de ne pas fonctionner

Pour ma premiere question, c'est pareil j'ai trouvé. J'ai relus le tuto de Thomas Lebrun, je me suis aperçus que j'avais la reponse juste au dessus.
En effet fallait que je remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim result As SearchResult = searcher.FindOne()

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each result As SearchResult In searcher.FindAll

Avant de mettre resolue, j'attends l'avis de quelques experts en VB.NET

[Reiji]

Pour mon precedent problème cela fonctionne bien.
Mais j'ai autre soucis et la je comprend pas. Quand je lance le programme, il m'indique que j'ai une erreur au niveau de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DirEntry.CommitChanges()

Il m'indique que

L'Exception.DirectoryServicesCOMException n'a pas été gérée:
L'Attribut ou la valeur de service d'annuaire spécifié n'existe pas. (L'Exception de HRESULT: 0x8007200A

et dans la fenetre d'execution il me met

Une exception de première chance de type 'System.DirectoryServices.DirectoryServicesCOMException' s'est produite dans System.DirectoryServices.dll

Je comprends vraiment pas