Script For The Day

Create the Mailbox in Exchange Server


sub createusr&mailbox(MDBName,StroageGroup,Server,AdminGroup,Organization,DomainName,emailname,FirstName,LastName)DomainDN="dc"&Replace(DomainName,".",",dc=")
rcip="CN"&emailname
set objcontainer=getobject("LDAP://CN=users," & DomainDN)
set objuser=objcontainer.create("User",recip)objuser.put "samAccountName",enailnameobjuser.put "sn",LastNameobjuser.put "givenName",FirstNameobjuser.put "userPrincipalName",emailname
objuser.setinfoobjuser.setPassword "server@123"objuser.AccountDisabled=False
set objmailbox=objuserobjmailbox.createMailbox "LDAP://CN=" & MDBName & ',CN= & StorageGroup & ",CN=InformationStore" & ",CN=" & Server &",CN=" & AdminGroup......"&",CN=MicroSoftExchange,CN=Services" &",CN=Config," & DomainDNobjuser.setinfo
end sub