ASP創建EXCHANGE用戶的一段代碼

發表時間：2024-02-21 來源：明輝站整理相關軟件相關文章人氣：

[摘要]近日逼不得已必須用ASP創建EXCHANGE 2000用戶，但以前的相似文章都是關于EXCHANGE 5。5的，而且明確說明不向后兼容，因此在MSDN網站游蕩了很久，終于找到一點資料，經過改編，終于能用于ASP。此段ASP的執行的環境在W2K+IIS5，并且必須要有足夠的權限。如有不當之處，請高手...

近日逼不得已必須用ASP創建EXCHANGE 2000用戶，但以前的相似文章都是關于EXCHANGE 5。5的，而且明確說明不向后兼容，因此在MSDN網站游蕩了很久，終于找到一點資料，經過改編，終于能用于ASP。

此段ASP的執行的環境在W2K+IIS5，并且必須要有足夠的權限。

如有不當之處，請高手指正。

<%@ 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>

注：如果使用此代碼，請注意你的機器上的LDAP不同。有關ADSI和LDAP的文章在精華有介紹，加上我也不太懂就不介紹了。；）

標簽：ASP創建EXCHANGE用戶的一段代碼

上一篇：WEBLOGIC6.0的一些使用經驗(轉載)

下一篇：編碼web.config中的信息

文章發布全站軟件文章熱門搜索：喜歡朋友 K歌手機酷狗電臺搜索資訊首頁騰訊視頻愛奇藝暴風影音酷狗音樂酷我音樂影音大全軟件下載軟件教程電腦系統下載聊天工具辦公軟件殺毒教程系統工具圖形圖像電腦學習應用軟件網絡軟件蘋果應用注冊碼網站教程技術開發安卓教程其它教程您當前所在位置：網視手游站 -> 網站教程 -> ASP創建EXCHANGE用戶的一段代碼
ASP創建EXCHANGE用戶的一段代碼發表時間：2024-02-21 來源：明輝站整理相關軟件相關文章人氣： [摘要]近日逼不得已必須用ASP創建EXCHANGE 2000用戶，但以前的相似文章都是關于EXCHANGE 5。5的，而且明確說明不向后兼容，因此在MSDN網站游蕩了很久，終于找到一點資料，經過改編，終于能用于ASP。此段ASP的執行的環境在W2K+IIS5，并且必須要有足夠的權限。如有不當之處，請高手... 近日逼不得已必須用ASP創建EXCHANGE 2000用戶，但以前的相似文章都是關于EXCHANGE 5。5的，而且明確說明不向后兼容，因此在MSDN網站游蕩了很久，終于找到一點資料，經過改編，終于能用于ASP。此段ASP的執行的環境在W2K+IIS5，并且必須要有足夠的權限。如有不當之處，請高手指正。 <%@ 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> 注：如果使用此代碼，請注意你的機器上的LDAP不同。有關ADSI和LDAP的文章在精華有介紹，加上我也不太懂就不介紹了。；）標簽：ASP創建EXCHANGE用戶的一段代碼上一篇：WEBLOGIC6.0的一些使用經驗(轉載) 下一篇：編碼web.config中的信息	推薦資訊總人氣榜 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法 2Adobe Illustrator CS5 序列號大全 3picacg蘋果版怎么找不到\|picacg ios版是不是下架了介紹 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本） 5蘋果iphone自動時間不準確的多種校正方法 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程 7Potato(馬鈴薯聊天)怎么注冊不了\|Potato不能注冊處理方法介紹 8Potato(土豆聊天)怎么換頭像\|Potato app更改頭像方法介紹 9ipad版office如何激活? office365激活的圖文說明教程 10最新的Adobe Illustrator CS4序列號大全 11Mac怎么通過設置VPN來登錄youtube等國外網站 12眼萌app怎么色弱測試眼萌app色弱測試圖文說明教程 1支付寶怎么交學費，支付寶教育繳費圖文說明教程 2京東微笑面單是什么，京東微笑快遞單有什么用 3高鐵兒童票網上怎么買，網上買高鐵兒童票具體流程 4百度減少收錄是什么原因？ 5GG廣告申請 6提高谷歌聯盟Adsense收入4種方法 7百度降權并不可怕 8新手誤區：揭露seo反鏈工具的真實面目 9被降權問題淺談百度頁面權重 10穩定網站排名的隱秘：百度優先級算法 112014年9月百度綠蘿算法再度升級 12淺談增加網站外部鏈接的方法最新教程本月人氣 1轉：java.util中的Date類 2一個新版本的ubb轉化程序 3由http暗藏通道看網絡安全(1) 43種Web開發主流技術的評價之PHP 5Tomcat 4.0.1中classpath的設置問題 6使用JScript.NET創建asp.net頁面（一） 7連接WEB數據庫的ADO性能提高技巧 8程序中使用自定義的鼠標 9淺析php中完成多線程~ 10Java高級日期概念（獻給那些要國際化時間及SQL時間的兄弟） 11得到Windows用戶名與序列號 12信息管理系統的迅速開發 1uc瀏覽器去廣告圖文說明教程：uc瀏覽器廣告過濾技巧使用方法_綠茶安卓網 2字符串根據多個字符進行分割的一種方法 3使用c#制作容易的留言板(1) 43星s5電信版支持4g嗎？3星galaxy s5電信版支持4g網絡嗎？ 5nubia x6電信版什么時候上市？中興nubia x6電信版上市時間 6華為p7移動版什么時候上市？華為p7手機移動版上市時間 7聯想黃金斗士s8預約圖文說明教程(附聯想s8預約網址) 8聯想黃金斗士s8加持版與規范版的區別有哪一些？s8加持版/規范版區別 9美顏相機聲音如何關？美顏相機關聲音方法_綠茶安卓網 10陌陌如何舉報？陌陌舉報好友圖文說明教程_綠茶安卓網 11陌陌群聊如何@別人？陌陌群聊@別人方法_綠茶安卓網 123星s4手勢感應如何用？3星Galaxy s4手勢感應視頻圖文說明教程
相關文章轉：java.util中的Date類一個新版本的ubb轉化程序由http暗藏通道看網絡安全(1) 3種Web開發主流技術的評價之PHP Tomcat 4.0.1中classpath的設置問題使用JScript.NET創建asp.net頁面（一）連接WEB數據庫的ADO性能提高技巧程序中使用自定義的鼠標淺析php中完成多線程~ Java高級日期概念（獻給那些要國際化時間及SQL時間的兄弟）得到Windows用戶名與序列號信息管理系統的迅速開發

六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

ASP創建EXCHANGE用戶的一段代碼

推薦資訊 總人氣榜

最新教程 本月人氣

相關文章

推薦資訊總人氣榜

最新教程本月人氣