[VBS]Tester l'appartenance d'un utilisateur à un groupe AD

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS]Tester l'appartenance d'un utilisateur à un groupe AD

tuxbleu

renie ses origines

Bonjour

En script d'ouverture de session pour mes utilisateurs, j'ai script vbs qui monte les lecteurs réseaux des utilisateurs.

J'ai un lecteur que je dois monter en fonction de l'appartenance des utilisateurs à un groupe AD.
Vous avez une idée de comment je peux tester l'appartenance de l'utilisateur qui execute le script à un group AD ?

J'arrive à listes les groupes de mon AD, mais pas à lister les utilisateurs de ces groupes.
L'approche ne serait-elle pas de lister les groupes auxquels appartient un utilisateur ? Mais je ne sais pas comment faire.

Je vous met mons script, là où j'en suis :

Code :

On Error Resume Next
Const ADS_SCOPE_SUBTREE = 1
Set objConnection = CreateObject("ADODB.Connection" )
Set objCommand = CreateObject("ADODB.Command" )
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size" ) = 1000
objCommand.Properties("Searchscope" ) = ADS_SCOPE_SUBTREE
objCommand.CommandText = "SELECT distinguishedName FROM 'LDAP://OU=mesgroupes,dc=domaine,dc=fr' WHERE objectCategory='user' "
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("distinguishedName" ).Value
objRecordSet.MoveNext
Loop

Merci de vos avis :jap:

Message édité par tuxbleu le 11-05-2011 à 12:41:16

---------------
Mon topic de vente - Mon feed-back

Publicité

SuppotDeSaTante

Aka dje69r

Citation :

Dim objRootLDAP, objGroup, objUser, objOU, objmemberOf
Dim strOU, strUser, strDNSDomain, strLDAP, List, objADSysInfo,arr,intlength,intNamelength,strGroupName

' Commands to bind to AD
Set objRootLDAP = GetObject("LDAP://RootDSE" )
Set objNetwork = CreateObject("Wscript.Network" )

'trouver le DN de l'utilisateur
Set objADSysInfo = CreateObject("ADSystemInfo" )
strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

' Extract a list of Groups from memberOf
objmemberOf = objUser.GetEx("memberOf" )
For Each objGroup in objmemberOf
List = List & objGroup & vbCr
arr=Split(List,"," )
intlength=Len(arr(0))
intNamelength=intlength - 3
Next
strGroupName= Right(arr(0), intNameLength)

'Connecter un lecteur en fonction du groupe
Select Case strGroupName
Case "Etudiant"
objNetwork.MapNetworkDrive "X:", "\\Serveur\Partage"

Case "Personnel"
objNetwork.MapNetworkDrive "X:", "\\Serveur\Partage"

End Select

WScript.Quit

Message cité 1 fois

---------------
Soyez malin, louez entre voisins !

tuxbleu

renie ses origines

J'étais arrivé à un code comme celui-ci :

Code :

Option Explicit
'on error resume next
Dim objNetwork, objUser, CurrentUser, WshShell
Dim strGroup, groupes, x, groupes2, x2
'Creation des objets
Set WshShell = CreateObject("WScript.Shell" )
Set objNetwork = CreateObject("WScript.Network" )
Set objUser = CreateObject("ADSystemInfo" )
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = Lcase(Join(CurrentUser.MemberOf,"###" ))
groupes = Split(strGroup,"###" )
for each x in (groupes)
groupes2 = Split(x,",",2)
wscript.echo groupes2(0)
next

---------------
Mon topic de vente - Mon feed-back

tuxbleu

renie ses origines

SuppotDeSaTante a écrit :

Citation :

J'imagine qu'il me reste à boucler sur tous les éléments de "arr" pour avoir la liste de tous mes groupes ?

---------------
Mon topic de vente - Mon feed-back

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS]Tester l'appartenance d'un utilisateur à un groupe AD

Sujets relatifs
Utilisateur universel	[RESOLU] VBS - Modification d'une clé REG_BINARY
[RESOLU] Net Time en VBS	[RESOLU ] Commande For pour VBS
[VBS] Recherche dossiers	[SetupProject] Comment tester la présence du SP1 d'office 2007 ?
[VBS] Excel	Les triggers: tester si les insertions n'ont pas dépassé une limite
Plus de sujets relatifs à : [VBS]Tester l'appartenance d'un utilisateur à un groupe AD

Page générée en 0.048 secondes