关于ADSI的问题

[gp]

在NT上安装ADSI2.5后，想使用如下代码通过ASP在NT上添加一个用户。
Dim oDomain
Dim oUser
Set oDomain = GetObject("WinNT://计算机名")
Set oUser = oDomain.Create("User", "newADSIuser")
oUser.SetInfo
oUser.SetPassword("12345678")
oUser.SetInfo
运行后显示提示如下：
Active Directory 错误 '80070005'
发生一般性访问被拒的错误
网高手指点迷津。
并请问在WINDOWS2000下程序如何写。

[w102272]

ADSI?那里有，我也要一份。 [e-mail]
请告诉我下载地址，或者MAIL。
谢谢！