export computers en memberOf

[thunderlight]

Beste Medetweakers,

Ik ben opzoek naar een script om computers te exporteren inclusief memberOf en managedBy.
Nu ben ik op google redelijk actief bezig geweest en ben wel een script tegen gekomen dat alle clients exporteerd. echter kijkt deze alleen naar de records van het object zelf.
wat in houd dat ik niet een export kan doen van de groepen waar deze informatie in zit.

code:

'*************************************************
'Title: Export Computers in Active Directory Script
'Descriptions: This script will export all computers from Active Directory to a text file
'Author: Active Directory Tools
'Website: http://activedirectorytools.net
'*************************************************

Const ADS_SCOPE_SUBTREE = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set pclist = fso.CreateTextFile("c:\temp\logging\pclist.txt")

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOOBject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(objectCategory=computer))"
strAttributes = "distinguishedName,sAMAccountName,name"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 99999
objCommand.Properties("Timeout") = 300
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF

pclist.writeline objRecordSet.Fields("name").value
objRecordSet.MoveNext
Loop

wscript.echo "done"

Output van dit script : Alleen objectname

Gewenste output : objectname, memberof, managedBy

Is er iemand die dit reeds heeft ? of mij de goede kant op kan sturen.
kan wel wat schrijven met VBS maar helaas niet alles.

[RobIII]

Sorry, maar dat is niet veel meer dan een scriptrequest / Kan iemand even...? en daar doen we hier niet aan
Voor support op code van derden kun je eens proberen bij de originele auteur(s) aan te kloppen. Lukt dat niet dan is het handig als je weet waar je mee bezig bent dus misschien moet je dan even een (basis)tutorial VBS/AD/WMI/whatnot doornemen.

[ Voor 7% gewijzigd door RobIII op 06-09-2011 12:11 ]