Can you use this:
Code:
strAccountName = "ACCOUNTNAME"
'Get parent container
Set oContainer = GetObject("LDAP://" & strNetworkLdap)
'Create user
Set oUser = oContainer.Create("User","CN=" & strAccountName)
strHomeMDB = "CN=Mailbox Store (EXCHANGE),CN=First Storage Group,CN=InformationStore," & _
"CN=EXCHANGE,CN=Servers,CN=First Administrative Group,CN=Administrative Groups," & _
"CN=YOUR Storage GROUP,CN=Microsoft Exchange,CN=Services," & _
"CN=Configuration,DC=YOUR,DC=DOMAIN"
oUser.Put "HomeMDB", strHomeMDB
oUser.Put "mailNickname", strAccountName 'Set Exchange Alias to Username
oUser.SetInfo This will create a user.