<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      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的文章在精華有介紹，加上我也不太懂就不介紹了。 ；） 





              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清