Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Emmanuel Dreux
Vous pouvez écrire un script ou utliser le générateur de script ( Scriptomatic ) disponible ici: http://www.microsoft.com/technet/scriptcenter/tools/admatic.mspx
Voici par exemple le code généré pour lire un objet groupe: '*********************************************** '* Connect to an object * '*********************************************** Set objRootDSE = GetObject("LDAP://rootDSE") If strContainer = "" Then Set objItem = GetObject("LDAP://" & objRootDSE.Get("defaultNamingContext")) Else Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & _ objRootDSE.Get("defaultNamingContext")) End If
'*********************************************** '* Affiche Membres * '*********************************************** WScript.Echo VbCrLf & "** Member Properties Page**" WScript.Echo "** (MultiValued Attributes) **" strmember = objItem.GetEx("member") WScript.Echo "member:" For Each Item in strmember WScript.Echo vbTab & Item Next
-- Cordialement, Emmanuel Dreux
"math" wrote in message news:
Bonjour,
j'aimerais obtenir la dans un fichier la liste de tous les groupes et les utilisateurs qui en font partie.
Vous pouvez écrire un script ou utliser le générateur de script (
Scriptomatic ) disponible ici:
http://www.microsoft.com/technet/scriptcenter/tools/admatic.mspx
Voici par exemple le code généré pour lire un objet groupe:
'***********************************************
'* Connect to an object
*
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
Set objItem = GetObject("LDAP://" &
objRootDSE.Get("defaultNamingContext"))
Else
Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & ","
& _
objRootDSE.Get("defaultNamingContext"))
End If
'***********************************************
'* Affiche Membres
*
'***********************************************
WScript.Echo VbCrLf & "** Member Properties Page**"
WScript.Echo "** (MultiValued Attributes) **"
strmember = objItem.GetEx("member")
WScript.Echo "member:"
For Each Item in strmember
WScript.Echo vbTab & Item
Next
--
Cordialement,
Emmanuel Dreux
"math" <math@discussions.microsoft.com> wrote in message
news:AE09A411-670D-4A58-B157-B613296A094E@microsoft.com...
Bonjour,
j'aimerais obtenir la dans un fichier la liste de tous les groupes et les
utilisateurs qui en font partie.
Vous pouvez écrire un script ou utliser le générateur de script ( Scriptomatic ) disponible ici: http://www.microsoft.com/technet/scriptcenter/tools/admatic.mspx
Voici par exemple le code généré pour lire un objet groupe: '*********************************************** '* Connect to an object * '*********************************************** Set objRootDSE = GetObject("LDAP://rootDSE") If strContainer = "" Then Set objItem = GetObject("LDAP://" & objRootDSE.Get("defaultNamingContext")) Else Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & _ objRootDSE.Get("defaultNamingContext")) End If
'*********************************************** '* Affiche Membres * '*********************************************** WScript.Echo VbCrLf & "** Member Properties Page**" WScript.Echo "** (MultiValued Attributes) **" strmember = objItem.GetEx("member") WScript.Echo "member:" For Each Item in strmember WScript.Echo vbTab & Item Next
-- Cordialement, Emmanuel Dreux
"math" wrote in message news:
Bonjour,
j'aimerais obtenir la dans un fichier la liste de tous les groupes et les utilisateurs qui en font partie.