Exchange Email Verteiler auslesen

[pfeffis 11]

Hallo!

 

Es gibt doch sicherlich die Möglichkeit, von Exchange 2000 die einzelnen Email Adessen der jeweiligen Verteiler auszulesen, oder!? Habt Ihr vielleicht ein Script dazu parat oder gibt es einen noch einfacheren Weg!?

 

Vielen Dank

[pfeffis 11]

Habe nun folgendes Script:

 

On Error Resume Next

 

Set objGroup = GetObject _

("LDAP://cn=xx,ou=xx,ou=xx,dc=xx,dc=xx")

objGroup.GetInfo

 

arrMemberOf = objGroup.GetEx("member")

 

WScript.Echo "Members:"

For Each strMember in arrMemberOf

WScript.echo strMember

Next

 

Soweit so gut, wie bekomme ich die ausgelesenen Sachen nun bei Ausführung des Scripts in eine Datei (Excel, txt, what ever)?

 

Danke

[pfeffis 11]

On Error Resume Next

 

 

 

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

set fileout =fso.opentextfile("ausgabe.log",2,true)

 

Habe es nun so gelöst:

 

Set objGroup = GetObject _

("LDAP://cn=xx,ou=xx,ou=xx,dc=xx,dc=xx")

objGroup.GetInfo

 

arrMemberOf = objGroup.GetEx("member")

 

'zeile= "Members: "

For Each strMember in arrMemberOf

FileOut.WriteLine strMember

Next

 

 

Set FileOuT = nothing

set fso=nothing

 

Vielleicht kann es jemand gebrauchen!?

 

Trotzdem vielen Dank.