Hente ut info fra Active Directory

OBS ! Måten jeg har hentet data på før er ved hjelp av getobject method

Der findes en rimeligt funktionel tutorial omkring det her hvis du traekker fra en exchange server:
http://www.msexchange.org/tutorials/Creating_a_list_of_Users_and_their_email_addresses_in_Exchange_2000_2.html

Hey Stinesondre !
Du kan bruge dette script.
Du skal bare lige huske, at ændre LDAP oplysningerne, så de passer til jeres AD :o)

Set FSO = CreateObject("Scripting.FileSystemObject")
output = "c:\brugere.csv"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set oTargetOU = GetObject("LDAP://OU=Brugere,OU=RP4,dc=int,dc=dragsted,dc=com")
oTargetOU.Filter = Array("user")
For each usr in oTargetOU
strinfo = strinfo & usr.samaccountname & "," & usr.displayname & "," & usr.mail & vbcrlf
next
Set fi = fso.OpenTextFile(output, ForAppending, true)
fi.WriteLine (strinfo)

/Killer