Verifier si un user est membre d'un group AD

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Verifier si un user est membre d'un group AD

Jef34

Je ferai mieux demain

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.

Publicité

Jef34

Je ferai mieux demain

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 :

' -------------------------------------------------------------------------
' From the book Inside Active Directory, ISBN 0-201-61621-1
' Copyright (C) 2002 by Addison-Wesley
' Script by Sakari Kouti (see http://www.kouti.com)
' You have a royalty-free right to use, modify, reproduce and distribute
' this script (and/or any modified version) in any way you find useful,
' provided that you agree that Addison-Wesley or Sakari Kouti has no
' warranty, obligations or liability for the script. If you modify
' the script, you must retain this copyright notice.
' -------------------------------------------------------------------------
Option Explicit
Dim objContainer, objGroup, objUser
Set objContainer = GetObject("LDAP://OU=Sales,DC=sanao,DC=com" )
Set objGroup = objContainer.GetObject("group", "CN=Sales" )
objContainer.Filter = Array("user" )
For Each objUser in objContainer
If Not objGroup.IsMember(objUser.ADsPath) Then
Call objGroup.Add(objUser.ADsPath)
WScript.Echo "Added " & objUser.Name
End If
Next

Message édité par Jef34 le 29-05-2005 à 14:09:18

Jef34

Je ferai mieux demain

Jef34

Je ferai mieux demain

[:yoyoz]

ultimaty

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 +

ultimaty

J'ai trouvé cela donc j'ai essayé

mais il me dit que mon utilisateur n'existe pas meme s'il existe vraiment !

HELP ! :pt1cable:

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 ...

ultimaty

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 ...

Jef34

Je ferai mieux demain

J'ai trouvé un site :

http://groups.msn.com/windowsscrip [...] tring=1a2a

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Verifier si un user est membre d'un group AD

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]
Plus de sujets relatifs à : Verifier si un user est membre d'un group AD

Page générée en 0.047 secondes