LDAP Dilemma

[White, Don (PSC)]

I am trying to create an Exchange 5.5 Mailbox through LDAP using VB. If
anyone has had any luck doing this in the past I am looking for a couple of
helps

        1) My first problem is with the following Line. I am assuming that I
will need to get the SID for the account instead. Can anyone verify this?
                .put "Assoc-NT-Account", "domain/userid" 'Primary NT ID

        2) I need to add multiple email addresses to the account. However it
is only adding the last one entered. Is there another field that I need to
increment for each address I add if so what is it?
                .put "Proxy-Addresses", "smtp:[EMAIL PROTECTED]" 'Secondary
Email Addresses
                .put "Proxy-Addresses", "SMTP:[EMAIL PROTECTED]" 'Primary
Email Addresses
                .put "Proxy-Addresses", "RFAX:VBtest@" 'Primary Email
Addresses
                .put "Proxy-Addresses",
"X400:c=US;a=MCI;p=VWoA;o=NAR-ABH;s=test;g=VB" 'X400 Addresses
                .SetInfo

Thanks,
Don



Sub Main()

Set obj = GetObject("LDAP://ExchangeServer/cn=Recipients,ou=site,o=org";)
Set objNewUser = obj.Create("organizationalPerson", "cn=MyMailbox")
With objNewUser
    .put "cn", "MyMailbox"
    .put "uid", "MyMailbox"
    .put "mailPreferenceOption", 0
    .put "Home-MDB", "cn=Microsoft
MTA,cn=USVWOAAHS30,cn=Servers,cn=Configuration," & _
        "ou=NAR-ABH,o=VWGMS"
    .put "givenName", "VB" 'First Name
    .put "sn", "Test" 'Last name
    .put "postalAddress", "1234 Main Street" 'Address
    .put "l", "Anytown" 'City
    .put "st", "Any State" 'State
    .put "postalCode", "99999" 'Postal code
    .put "title", "Test Dummy" 'Title
    .put "company", "none of your business" 'Company
    .put "department", "CCCN" 'Department
    .put "physicalDeliveryOfficeName", "1c01" 'Office
    .put "telephoneNumber", "(999) 999-9999" 'Phone number
    .put "Proxy-Addresses", "smtp:[EMAIL PROTECTED]" 'Secondary Email
Addresses
    .put "Proxy-Addresses", "SMTP:[EMAIL PROTECTED]" 'Primary Email Addresses
    .put "Proxy-Addresses", "RFAX:VBtest@" 'Primary Email Addresses
    .put "Proxy-Addresses", "X400:c=US;a=MCI;p=VWoA;o=NAR-ABH;s=test;g=VB"
'X400 Addresses
    .SetInfo    End With
End Sub

List Charter and FAQ at:
http://www.sunbelt-software.com/exchange_list_charter.htm