Vista - Create Distribution List

Hi guys, I need a script to create a Dls, in the thepository there is a one
to create groups :
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000

Set objOU = GetObject("LDAP://cn=Computers,dc=NA,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=DB-Servers")

objGroup.Put "sAMAccountName", "DBServers"
objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP Or _
ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo

It´s working fine, but I need know the atribute to create the exchange
atrubutes as distrubution group, and read the variable to the excel fiel.
Any idea?

Thanks

Okupa wrote:
Your example creats a local security group, not a distribution group. To
create a domain local distribution group use:

Const ADS_GROUP_TYPE_LOCAL_GROUP = &H2

objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

"Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> wrote in
message news:uj4hcgjIJHA.1156@xxxxxxPerhaps what you need is code to mail enable a distribution group (list)
using CDOEXM. For example:

objGroup.MailEnable
objGroup.SetInfo

The method automatically assigns the email address, based on sAMAccountName.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--