Verifier si un user est membre d'un group AD
Verifier si un user est membre d'un group AD - VB/VBA/VBS - Programmation
Marsh Posté le 29-05-2005 à 14:08:41
J'ai trouvé ce script, mais j'ai malheureusement (débutant oblige) du mal à l'adapter à mes besoins
http://www.kouti.com/samplescripts [...] up.vbs.txt
Code :
|
Message édité par Jef34 le 29-05-2005 à 14:09:18
![[:yoyoz]](https://forum-images.hardware.fr/images/perso/yoyoz.gif "[:yoyoz]")
Marsh Posté le 03-06-2005 à 08:44:17
j'ai le meme besoin pour une AD Windows 2000 !
Besoin d'aide SVP !
Si j'arrive a faire quelque chose je te le dis !
A +
Marsh Posté le 03-06-2005 à 14:18:22
J'ai trouvé cela donc j'ai essayé
mais il me dit que mon utilisateur n'existe pas meme s'il existe vraiment !
HELP ! 
matricule = "xxxx"
Set objDomain = GetObject("LDAP://OU=Utilisateurs,dc=...,dc=fr" )
booExists = "FALSE"
'Filter out all non-user objects
objDomain.Filter = Array("user" )
For Each objUser In objDomain
If booExists = "FALSE" Then
strUserName = objUser.Name
If matricule = strSearch Then
strFullName = objUser.FullName
strOutputLine = strUserName & "," & strFullName
wscript.echo strOutputLine
booExists = "TRUE"
End If
End If
Next
If booExists = "FALSE" Then
wscript.echo "Couldn't find user"
End If
Merci de votre aide !
---------------
Ne travaille pas y\\'aura toujours quelqu\\'un qui le fera pour toi ...
Marsh Posté le 03-06-2005 à 14:46:40
Voila !! J'ai trouvé ! je n'avais pas fait attention dans le code pécedent j'suis allé trop vite ! ca me joue des tours !
matricule = "xxxxxx" //mon matricule est fixe
Set objDomain = GetObject("LDAP://OU=Utilisateurs,dc=..,dc=fr" )
booExists = "FALSE"
objDomain.Filter = Array("user" )
For Each objUser In objDomain
If booExists = "FALSE" Then
strUserName = objUser.Name
strUserName = Mid(strUserName,4,9) // mid necessaire car le nom renvoyé est CN=xxx et //mid est simple car mon matricule est fixe
If matricule = strUserName Then
strFullName = objUser.FullName
booExists = "TRUE"
wscript.echo "user exits"
End If
End If
Next
Voila !
sinon je ne sais pas si cela fonctionne pr NT4 mais tu peux essayer cela :
a la place de Set objDomain = . etc ...
tu mets :
Set objDomain = GetObject("WinNT:// ton domaine" )
Voila ! Bon courage dis moi si ca fonctionne chez toi !
@ +
---------------
Ne travaille pas y\\'aura toujours quelqu\\'un qui le fera pour toi ...
Marsh Posté le 07-06-2005 à 11:30:28
J'ai trouvé un site :
http://groups.msn.com/windowsscrip [...] tring=1a2a
Sujets relatifs:
- [php/sql] Vérifier si une entrée à insérer existe déjà dans la base
- [tomcat]recuperer le user connecte a la webapp
- [SQL] Requete (max, group by,...)
- Comment vérifier que la saisie est non nulle?
- Verifier la redondance de mots ou de lettres dans formulaire
- admin qui peux pas modifier un user
- Mettre une page web lorsqu'un user se connecte au réseau
- Petit prog pour changer mot de passe user a distance
- Winform - User Control - la ligne Controls.add viré de initialization
- un upload chez free : comment verifier taille des images ? [RESOLU]
Marsh Posté le 29-05-2005 à 14:07:36
Bonjour,
Je voudrais avoir un exemple de script, permettant de vérifier si un user est membre d'un group Active Directory et éventuellement l'adaptation WinNT4
Merci de votre aide.