A voir également:
- Interroger l'ad pour recuperer des groupes en Vbs
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Récupérer photo instagram - Guide
- Recuperer mon compte gmail - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
15 juil. 2013 à 23:26
15 juil. 2013 à 23:26
Bonjour
Voir ce site dédié VBs
http://www.cruto.com/resources/vbscript/vbscript-examples/ad/groups/
Voir ce site dédié VBs
http://www.cruto.com/resources/vbscript/vbscript-examples/ad/groups/
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
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
