网络编程
位置:首页>> 网络编程>> Asp编程>> asp如何创建一个Exchange用户?

asp如何创建一个Exchange用户?

 来源:asp之家 发布时间:2009-11-14 20:52:00 

标签:exchange,创建,用户

 

<%@ 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 = "intels.net"
    DomainName = "DC=intels,DC=net"
    emailname = "liyanbing"
    password = "3625"
    recip = "CN=" & emailname
    LastName = "Yanbing"
    FirstName = "Li"
    
    Set objContainer = GetObject("LDAP://" & ServerName & "/OU=intels.net," & DomainName)
    Set objUser = objContainer.Create("User", recip)
    objUser.Put "samAccountName", emailname
    objUser.Put "sn", LastName
    objUser.Put "givenName", FirstName
    objUser.Put "DisplayName", "liyanbing@intels.net"
    objUser.Put "userPrincipalName", emailname & "@intels.net"
    objUser.SetInfo
    
    objUser.SetPassword password
    objUser.AccountDisabled = False
    objUser.SetInfo
    Set objMailbox = objUser
    objMailbox.CreateMailbox "LDAP://intels.net/CN=Mailbox Store (intels),CN=First Storage Group,CN=InformationStore,CN=chunfeng,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=ecitye,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=intels,DC=net"
    objUser.SetInfo
    
    Set objContainer = Nothing
    Set objUser = Nothing
    Set objMailbox = Nothing
    
    if err <> 0 then
        Response.Write "对不起,创建失败!"
    else
        Response.Write "恭喜,创建成功!"
    end if
%>
</BODY>
</HTML>

 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com