Database Search

TechHome

	CDO
	Samples from Users

• 1129 OleInitiate Initiate Failed Using an LDAP Path
• Add Domain User to Local Group
• ADSI COM Example - Check User Logons
• ADSI COM Example - Delete a Computer
• ADSI COM Example - Delete a User
• ADSI COM Example - Get User Properties
• ADSI COM Example - List Connected Sessions
• ADSI COM Example - Upload a Photo
• ADSI Create Groups and Users Example
• ADSystemInfo Interface
• CDO Exchange 2000 Requirements
• CDO Collections and Global Address Book
• CDO Collections and Personal Address Book
• CDO Exchange Mailbox size
• CDO IMailBoxStore Interface
• Converting Active Directory Thumbnailphotos to File
• Create an AD User and an Exchange 2k Mailbox
• Create Exchange Distribution List Using CDO
• Create Mailbox - Exchange 2000 - CDO - ADSI
• Get a user certificate
• List Groups a User Belongs To
• List of AD Domains
• List User Paths on Default Domain
• Search Exchange-Outlook Infostores with CDO

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Create an AD User and an Exchange 2k Mailbox

Keywords: active directoy exchange 2000 2K account mailbox mail box user

You'll need to run this from a machine that has CDOEXM registered.

;Untested/Undebugged code
;Change these to fit your domain... 
strMBPath = "LDAP://CN=Mailbox Store (SERVERNAME),CN=First Storage Group,CN=InformationStore,CN=SERVERNAME,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=Org,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=domain,DC=com" 
strDomain = "DOMAIN" 

strCN = "User" 
strSAM = "User" 
strPass = "Password123" 
oRoot = ObjectGet( StrCat( "LDAP://" , strDomain , "/rootDSE" ) ) 
oContainer = GetObject( StrCat( "LDAP://cn=users," , oRoot.Get( "defaultNamingContext" ) ) ) 
oNewUser = oContainer.Create( StrCat("user","cn=" , strCN ) ) 
oNewUser.SamAccountName = strSAM
oNewUser.SetInfo( ) 
oNewUser.SetPassword( strPass ) 
oNewUser.AccountDisabled = @False 
oNewUser.CreateMailbox( strMBPath ) 
oNewUser.SetInfo( ) 
oNewUser = 0
oContainer = 0
oRoot = 0
Message( "Done", "Finished creating an AD user and an exchange 2k mailbox")
exit 

Article ID:   W17119

File Created: 2007:07:03:14:28:22

Last Updated: 2007:07:03:14:28:22