delete distribution list

[Jeremy Schubert]

Below is a script I found from Microsoft that creates Outlook Distribution
lists based on the membership of an active directory group. But before the
distribution list is created, I'd like the script to delete any exisiting
distribution list with the same name. So I'd like to add a line that says
something like:

if Distribution List X already exists, delete it. Then go on to
create the new distribution list.

Can someone please provide suggestions of how to do this?

Thanks,
Jeremy

Original Microsoft Script
--------------------------------------------------
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

[j***@gmail.com]

Post by Jeremy Schubert
Below is a script I found from Microsoft that creates Outlook Distribution
lists based on the membership of an active directory group. But before the
distribution list is created, I'd like the script to delete any exisiting
distribution list with the same name. So I'd like to add a line that says
if Distribution List X already exists, delete it. Then go on to
create the new distribution list.
Can someone please provide suggestions of how to do this?
Thanks,
Jeremy
Original Microsoft Script
--------------------------------------------------
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

Hi Jeremy,
Did you find out that one? As I am looking as well.
Thanks.
Joubert