<ronnie.ziegler@gmail.com> skrev i en meddelelse
news:bbf8c96a-5c3c-49a3-ab41-09336cddae8a@r41g2000prr.googlegroups.com...
>jeg har brug for et program, som kan lave et udtræk af alle security
>og distribution grupper samt deres medlemmer fra AD. Findes der et
>Microsoft værktøj, som kan gøre dette eller evt. et (gratis) 3. parts
>produkt, som kan give mig et bedre overblik?
>
VBScript kunne måske også være en vej. Lidt sakset fra nettet[1] som måske
kan hjælpe dig på vej:
******************************
'Setup ADO objects
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
adoCommand.ActiveConnection = adoConnection
'Search Entire Active Direcotry domain
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strBase = "<LDAP://dc=mydomain,dc=com>"
'Filter on user objects
strFilter = "(&(objectClass=user)(objectCategory=person))"
'Comma delimited list of attribute values to retrieve
strAttributes = "sAMAccountName"
'Construct the LDAP syntax query
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
wscript.echo strquery
'wscript.quit
'Properties of the query
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 100
adoCommand.Properties("Timeout") = 30
adoCommand.Properties("Cache Results") = False
'Run the query
Set adoRecordset = adoCommand.Execute
'Move to the start of the recordset
adoRecordset.MoveFirst
'Enumerate the resulting recordset
Do Until adoRecordset.EOF
'Retrieve values and display
strName = adoRecordset.Fields("sAMAccountName").Value
WScript.Echo strName
adoRecordset.MoveNext
Loop
******************************
[1]:
http://www.experts-exchange.com/Web_Development/Web_Languages-Standards/ASP/Q_23700740.html
MVH
Thomas