Fixup.vbs script for Epicenter so that only contacts from a certain category will be distributed.

Make sure you Save the file, don't Run it.

Here is the content of the file:

'
' Sample script for Epicenter from Connected Software.
' Demonstrates how to remove all contacts that are not
' members of one or more categories.
'
' This script must be named fixup.vbs and should be
' placed in the same directory as Epicenter Server.exe.
'

Option Explicit

Dim c
Dim prop
Dim cats

for each c in Contacts

 ' If you want to use this script for the Exchange GAL,
 ' you must use a field other than Categories because
 ' Categories is not supported by Exchange. If you can
 ' set the custom fields, then you can use "User1", "User2",
 ' "User3" and "User4" to access the first four custom fields
 ' in Exchange.
 prop = c.GetProperty("Categories")
 cats = Split(prop, ";")

 Dim keep
 keep = 0

 Dim cat
 for each cat in cats
   ' TODO: Change "Friend" to be the name of the category to keep.
   if cat = "Friend" then keep = 1
   ' If you want other categories to be kept, add more "if"
   ' statements below.  For example:
   ' if cat = "Customer" then keep = 1
 next

 if keep <> 1 then c.Remove

next