On Error Resume Next

Const olDistributionListItem = 7

Set objOutlook = CreateObject("Outlook.Application")
Set objList = objOutlook.CreateItem(olDistributionListItem )

objList.DLName = "Test Group"
objList.Save

Set objGroup = GetObject("LDAP://CN=Finance Users,OU=Finance,,DC=fabrikam,DC=com")

For Each strUser in objGroup.Member
    Set objUser = GetObject("LDAP://" & strUser)
    strUserName = objUser.displayName

    Set objRecipient = objOutlook.Session.CreateRecipient(strUserName)
    objRecipient.Resolve
    objList.AddMember objRecipient
Next