web学习吧　2006-12-16　来源:　收藏本文

Set oUser = GetObject("WinNT://machinename/username")
oUser.ChangePassword "oldpassword", "newpassword"
oUser.SetInfo
Set oUser = Nothing

If (err.number <> 0) Then
    It Failed!
Else
    It was successful!
End if

• ·最新贡献：使用ADSI、ASP和一对魔术戏法自
• ·Learning ADSI - Part I: Adding Users To
• ·ADSI Domain browser(试一试很出酷)
• ·asp创建用户、目录和站点(转)
• ·用ASP编程控制在IIS建立Web站点的程序代码
• ·用ASP代码创建EXCHANGE2000用户（续）
• ·活动目录服务接口（ADSI）：常见问题质疑
• ·ASP创建EXCHANGE用户的一段代码
• ·不知道这里贴过没有：一个利用adsi得到局域
• ·目录服务技术介绍——ADSI（一）
• ·只打了这么多：（，顺便送给【豆豆】
• ·目录服务技术介绍——ADSI（二）
• ·一段ADSI和EXCHANGE结合的示范代码
• ·目录服务技术介绍——ADSI（三）
• ·目录服务技术介绍——ADSI（七）
• ·目录服务技术介绍——ADSI（四）