如何通过ASP管理NT帐号

　　=============================================================
感谢您使用ASP001工作室开发的实用函数程序

=============================================================ASP001工作室为您提供订制程序开发、企业互联网拓展服务
QQ：1974229
E-Mail：
更多程序下载请到
=============================================================
函数介绍：通过ASP管理NT帐号
本函数使用ADSI，需要Administrators组用户权限
程序开发：ASP001工作室ChuQi
=============================================================
填加用户
函数用法：AddUser(Computer,UserName,PassWord,FullName,Info)
参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明
例：AddUser127.0.0.1,Test,Test,测试管理员帐号,本帐号通过ASP填加

修改指定用户基本信息
函数用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明
例：EditUser127.0.0.1,Test,Test2,测试管理员帐号修改,本帐号通过ASP修改过

删除指定用户
函数用法：DelUser(Computer,UserName)
参数：计算机名,用户名
例：DelUser127.0.0.1,Test
=============================================================

FunctionAddUser(Computer,UserName,PassWord,FullName,Info)
执行创建帐号命令
SetComputerObj=GetObject(WinNT://&Computer)
SetNewUser=ComputerObj.Create(User,UserName)
NewUser.SetInfo
进行帐号设置
NewUser.SetPassword(PassWord)帐号密码
NewUser.FullName=FullName帐号全名
NewUser.Description=Info帐号说明
NewUser.SetInfo
response.write帐号&UserName&创建成功！
SetComputerObj=nothing
EndFunction

FunctionEditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
读取用户信息
SetChangeUserObj=GetObject(WinNT://&Computer&/&UserName&,User)
修改帐号密码
ifPassWord<>then
ChangeUserObj.SetPasswordPassWord
response.write帐号密码修改成功！<br>
endif
修改帐号全名
ifFullName<>then
UserFullName=ChangeUserObj.get(FullName)
ChangeUserObj.FullName=FullName
ChangeUserObj.SetInfo
response.write帐号全名修改成功！<br>
endif
修改帐号说明
ifInfo<>then
UserFullName=ChangeUserObj.get(Description)
ChangeUserObj.Description=Info
ChangeUserObj.SetInfo
response.write帐号说明修改成功！<br>
endif
SetChangeUserObj=nothing
EndFunction

FunctionDelUser(Computer,UserName)
SetDelUserObj=GetObject(WinNT://&Computer&/&UserName)
IfErr=&H800401E4Then
Response.Write用户&UserName&不存在
Response.End
EndIf
SetDelObj=GetObject(DelUserObj.Parent)
SetDelUserObj=Nothing
SetDelObj=Nothing
Response.Write删除成功
EndFunction