Hvordan kan jeg hente ut en liste av brukte mailadresser ?

' Lavet af Jesper Hanno Hansen, Jesper@hanno.dk
' www.hanno.dk

'Redigeret af Leif G. Jensen
' ************************************************
' Viser Brugere informationer via ADO.
' ************************************************

Set Network = Wscript.CreateObject("Wscript.Network")
Set Shell = Wscript.CreateObject("Wscript.Shell")
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")

con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"

Set Com.ActiveConnection = con

StrL = VbCrlf
StrT = VbTab
StrTitel = "Bruger Info Via ADO ..."

Com.CommandText = "select cn,telephoneNumber,mail,userPrincipalName,scriptPath,title,department,logonCount from 'LDAP://DC=univeyor, DC=dk' WHERE objectClass='user' AND mail>0"

Set rs = Com.Execute

While Not rs.EOF
    Str = STR & rs.Fields("cn") & StrT
    Str = Str & rs.Fields("mail") & StrT
    Str = Str & rs.Fields("logonCount") & StrL
    rs.MoveNext
Wend
Wscript.Echo Str

På denne måten får man frem "hovedmailadressen" til brukeren, men ikke alias adressene. Er det mulig å få frem de også ?

' Lavet af Jesper Hanno Hansen, Jesper@hanno.dk
' www.hanno.dk

'Redigeret af Leif G. Jensen
' ************************************************
' Viser Brugere informationer via ADO.
' ************************************************

Set Network = Wscript.CreateObject("Wscript.Network")
Set Shell = Wscript.CreateObject("Wscript.Shell")
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")

con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"

Set Com.ActiveConnection = con

StrL = VbCrlf
StrT = VbTab
StrTitel = "Bruger Info Via ADO ..."

Com.CommandText = "select cn,mail,mailNickname,userPrincipalName,scriptPath,title,department,logonCount from 'LDAP://DC=univeyor, DC=dk' WHERE objectClass='user' AND mail>0"

Set rs = Com.Execute

While Not rs.EOF
    Str = STR & rs.Fields("cn") & StrT
    Str = Str & rs.Fields("mail") & StrT
    Str = Str & rs.Fields("mailNickname") & StrT
    Str = Str & rs.Fields("logonCount") & StrL
    rs.MoveNext
Wend
Wscript.Echo Str

jeg får feilmelding på "mailNickname"...

har du exchange installeret?

ja

exchange 2000

hvilken fejl?

"Item can not be found in the collection corresponding to the requested name or ordinal"

Hmm - den burde være der prøv lige med initials i stedet.

Da fungerte det ! Takk !