＋设为首页 ＋添加到收藏夹
<%
adduser "888","abc"
sub adduser(struser,strdomain)
dim computer
dim user
set computer=getobject("WinNT://"&strdomain)
set user=computer.create("user",struser)
user.setinfo
set user=nothing
set computer=nothing
end sub
%>
你装了ADSI SDK 2.5了吗?
或者你用OpenDSObject()来试一下,指定administrator用户名及密码.详细用法可在VB6的对象浏览器中查.
如果域控制器是NT4.0,请用WinNT://;
如果域控制器是Win2000,请用LDAP://.
使用用户的权限不够，将站点的windows验证设置成“集成验证”
