Interroger l'ad pour recuperer des groupes en Vbs
jocks78
-
jocks78 -
jocks78 -
Bonjour,
Je suis débutant dans le scipt et dans le cadre de mon stage , un script qui affiche le nom de l'utilisateur courant du poste et je suis à la recherche d'un script qui consite à interroger l'AD pour récupérer des groupes .
Voici le début de mon script :
Set WshNetwork = WScript.CreateObject ("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain &vbCrLf&_
"Nom ordinateur = " & WshNetwork.ComputerName &vbCrLf&_
"Nom utilisateur = " & WshNetwork.UserName
Pour le reste je suis perdu
Je suis débutant dans le scipt et dans le cadre de mon stage , un script qui affiche le nom de l'utilisateur courant du poste et je suis à la recherche d'un script qui consite à interroger l'AD pour récupérer des groupes .
Voici le début de mon script :
Set WshNetwork = WScript.CreateObject ("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain &vbCrLf&_
"Nom ordinateur = " & WshNetwork.ComputerName &vbCrLf&_
"Nom utilisateur = " & WshNetwork.UserName
Pour le reste je suis perdu
2 réponses
-
-
Merci , mais étant debutant je ne sais pas comment adapter mon script à ma situation .
Mon script doit réaliser cette action :' l'application affiche si lutilisateur est abonné au GROUPE1 ou desabonné au Groupe 1 .
Dans un prmier temps j'affiche le nom de l'utilisateur courant du poste :
Set WshNetwork = WScript.CreateObject ("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain &vbCrLf&_
"Nom ordinateur = " & WshNetwork.ComputerName &vbCrLf&_
"Nom utilisateur = " & WshNetwork.UserName
Ensuite je regarde si lutilisateur est abnoné :
On Error Resume Next
Const
Set objOU = GetObject _
("LDAP://cn=Users,dc=NA,dc=fabrikam,dc=com")
ObjOU.Filter= Array("user")
For Each objUser in objOU
WScript.Echo objUser.cn & " is a member of: "
WScript.Echo vbTab & "Primary Group ID: " & _
objUser.Get("primaryGroupID")
arrMemberOf = objUser.GetEx("memberOf")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
For Each Group in arrMemberOf
WScript.Echo vbTab & Group
Next
Else
WScript.Echo vbTab & "memberOf attribute is not set"
Err.Clear
End If
Wscript.Echo
Next
Mais cela ne marche pas .... :/ help me please
