如何通过ASP管理NT帐号

1. '=============================================================  
2. '       感谢您使用ASPKU工作室开发的实用函数程序  
3. '               HTTP://WWW.ASPKU.NET  
4. '=============================================================     'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务  
5. 'QQ：1974229  
6. 'E-Mail：Shenyangchuqi@tom.com  
7. '更多程序下载请到HTTP://WWW.ASPKU.NET  
8. '=============================================================       
9. '函数介绍：通过ASP管理NT帐号  
10. '本函数使用ADSI，需要Administrators组用户权限  
11. '程序开发：ASPKU工作室 ChuQi  
12. '=============================================================  
13. '填加用户  
14. '函数用法：AddUser(Computer,UserName,PassWord,FullName,Info)  
15. '参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明  
16. '例：AddUser "127.0.0.1","Test","Test","测试管理员帐号","本帐号通过ASP填加"  
17.  
18. '修改指定用户基本信息  
19. '函数用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)  
20. '参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明  
21. '例：EditUser "127.0.0.1","Test","Test2","测试管理员帐号修改","本帐号通过ASP修改过"  
22.  
23. '删除指定用户  
24. '函数用法：DelUser(Computer,UserName)  
25. '参数：计算机名,用户名'  
26. '例：DelUser "127.0.0.1","Test"  
27. =============================================================  
28.  
29. Function AddUser(Computer,UserName,PassWord,FullName,Info)  
30. '执行创建帐号命令  
31. Set ComputerObj = GetObject("WinNT://"&Computer)  
32. Set NewUser = ComputerObj.Create( "User" , UserName )     
33. NewUser.SetInfo  
34. '进行帐号设置  
35. NewUser.SetPassword ( PassWord ) '帐号密码  
36. NewUser.FullName = FullName   '帐号全名  
37. NewUser.Description = Info    '帐号说明  
38. NewUser.UserFlags = &H10000   '&H20000(使用者下次登入时须变更密码) &H0040(使用者不得变更密码) &H10000(密码永久正确) &H0002(帐户暂时停用)  
39. NewUser.SetInfo  
40. response.write "帐号"&UserName&"创建成功！"  
41. Set ComputerObj=nothing  
42. End Function  
43.  
44. Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)  
45. '读取用户信息  
46. Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")  
47. '修改帐号密码  
48. if PassWord<>"" then  
49. ChangeUserObj.SetPassword PassWord   
50. response.write "帐号密码修改成功！<br>"  
51. end if  
52. '修改帐号全名  
53. if FullName<>"" then  
54. UserFullName = ChangeUserObj.get("FullName")  
55. ChangeUserObj.FullName = FullName   
56. ChangeUserObj.SetInfo   
57. response.write "帐号全名修改成功！<br>"  
58. end if  
59. '修改帐号说明  
60. if Info<>"" then  
61. UserFullName = ChangeUserObj.get("Description")  
62. ChangeUserObj.Description = Info   
63. ChangeUserObj.SetInfo   
64. response.write "帐号说明修改成功！<br>"  
65. end if  
66. Set ChangeUserObj=nothing  
67. End Function  
68.  
69. Function DelUser(Computer,UserName)  
70. Set DelUserObj = GetObject("WinNT://"&Computer&"/"&UserName)  
71. If Err = &H800401E4 Then  
72. Response.Write "用户"&UserName&"不存在"  
73. Response.End  
74. End If   
75. Set DelObj = GetObject(DelUserObj.Parent)  
76. DelObj.Delete "User", DelUserObj.Name  
77. Set DelUserObj = Nothing  
78. Set DelObj = Nothing  
79. Response.Write "删除成功"  
80. End Function