2011-06-20 5 views

答えて

1

あなたが探しているスクリプトです。

' Begining from a given group 
Dim strGrp 
strGrp = "cn=g1,ou=ou,dc=societe,dc=fr" 
Set objGroup = GetObject ("LDAP://"& strGrp) 
objGroup.getInfo 

arrMemberOf = objGroup.GetEx("member") 

' Loop = For Each .... Next 
' WScript.Echo "Members of Group " 
For Each strMember in arrMemberOf 
    WScript.echo strMember 
    Set objUser = GetObject ("LDAP://"& strMember) 
    sAMAccountName = objUser.GetEx("sAMAccountName") 
    WScript.echo sAMAccountName(0) 
Next 
Wscript.Quit 

Here is a site where you can get help.

関連する問題