' Kod tworzy list dystrybucyjn i umoliwia jej posiadanie adresu e-mail
' ------ KONFIGURACJA SKRYPTU ------
strParentDN  = "<NazwaWyrniajcaObiektuNadrzdnego>"   ' np. ou=groups,dc=rallencorp,dc=com
strGroupName = "<NazwaGrupy>"                            ' np. Uytkownicy1
' ------ KONIEC KONFIGURACJI ---------
' Stae pobrane ze zbioru wyliczeniowego ADS_GROUP_TYPE_ENUM
Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 1
Const ADS_GROUP_TYPE_GLOBAL_GROUP       = 2
Const ADS_GROUP_TYPE_LOCAL_GROUP        = 4
Const ADS_GROUP_TYPE_SECURITY_ENABLED   = -2147483648
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP    = 8

set objOU = GetObject("LDAP://" & strParentDN)
set objGroup = objOU.Create("group","cn=" & strGroupName)
objGroup.Put "groupType", ADS_GROUP_TYPE_UNIVERSAL_GROUP
objGroup.Put "sAMAccountName", strGroupName
objGroup.MailEnable
objGroup.SetInfo
Wscript.Echo "Z powodzeniem utworzono list dystrybucyjn, ktra moe posiada adres e-mail."
