Can someone tell me if this looks correct?
----------------------------------------------------
On Error Resume Next

Const olDistributionListItem = 10

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olDistributionListIt em)

Dim i As Integer
Dim objRecip As Outlook.Recipient
For i = objDL.MemberCount To 1 Step -1
Set objRecip = objDL.GetMember(i)
objDL.RemoveMember objRecip
Next
MsgBox objDL.MemberCount
Set objRecip = Nothing

Set objList = objFolder.Items("Math Teachers")

Set objGroup = GetObject("LDAP://[fill in your path here]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

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olDistributionListIt em)

Dim i As Integer
Dim objRecip As Outlook.Recipient
For i = objDL.MemberCount To 1 Step -1
Set objRecip = objDL.GetMember(i)
objDL.RemoveMember objRecip
Next
MsgBox objDL.MemberCount
Set objRecip = Nothing

Set objList = objFolder.Items("Science Teachers")

Set objGroup = GetObject("LDAP://[fill in your path here]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

wscript.quit