Adding a new user to W2K is simple. Create your form and use the following ASP code:
<%
Dim usr, passwd, fname
usr = Request.Form("txtUsername")
passwd = Request.Form("txtPassword")
fname = Request.Form("txtFullName")
Const strDomain="RPTSERVER"
SaveUser usr,passwd,fname
sub SaveUser(UID, PWD, FULLNAME)
Dim strUser, oDomain, oGroup, oUser, oUserInfo
strUser = UID
Set oDomain = GetObject("WinNT://" & strDomain)
Set oUser = oDomain.Create ("user", strUser)
oUser.setinfo
set oUserInfo = getobject("WinNT://" & strDomain & "/" & strUser & ",user")
call oUserInfo.setpassword(lcase(PWD))
oUserInfo.fullname = FULLNAME
oUserInfo.setinfo
Set oDomain=Nothing
Set oUser=Nothing
Set oUserInfo = nothing
end sub
%>
For further explanation, read Remie's article, Learning ADSI.
Posted by Remie Bolte on the ASP discussion list.
