Its SBS 2003.
However I found this in a random google search and think it might cover what i'm wanting to do:
Set oDB = CreateObject("CDOEXM.MailboxStoreDB")
strDB = "CN=Mailbox Store (SERVER_NAME),CN=First Storage Group,CN=InformationStore,CN=SERVER_NAME,CN=Servers,CN=First Administrative...