<%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0"> </HEAD> <BODY> <% Dim objUser Dim objContainer Dim objMailbox Dim recipname, recip Dim ServerName, DomainName, emailname, FirstName, LastName, password ServerName = "skyword.program.org" DomainName = "DC=program,DC=org" emailname = "test" password = "1234" recip = "CN=" & emailname LastName = "sky" FirstName = "Word" Set objContainer = GetObject("LDAP://" & ServerName & "/OU=China.org," & DomainName) Set objUser = objContainer.Create("User", recip) objUser.Put "samAccountName", emailname objUser.Put "sn", LastName objUser.Put "givenName", FirstName objUser.Put "DisplayName", "test@hina.org" objUser.Put "userPrincipalName", emailname & "@China.org" objUser.SetInfo objUser.SetPassword password objUser.AccountDisabled = False objUser.SetInfo Set objMailbox = objUser objMailbox.CreateMailbox "LDAP://skyword.program.org/CN=Mailbox Store (SKYWORD),CN=First Storage Group,CN=InformationStore,CN=SKYWORD,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=ecitye,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=program,DC=org" objUser.SetInfo Set objContainer = Nothing Set objUser = Nothing Set objMailbox = Nothing if err <> 0 then Response.Write "失败" else Response.Write "成功!!!" end if %> </BODY> </HTML> |
一起学吧部分文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与一起学吧进行文章共享合作。