interroger l'ad pour recuperer des groupes en Vbs Fermé

Question

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


Configuration: Windows 7 / Internet Explorer 9.0

michel_m · Answer

Bonjour

Voir ce site dédié VBs
http://www.cruto.com/resources/vbscript/vbscript-examples/ad/groups/

jocks78 · Answer

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

Interroger l'ad pour recuperer des groupes en Vbs

2 réponses

Discussions similaires