如何通过ASP管理NT帐号

时间:2022-09-18 14:35:15
  1. '=============================================================  
  2. '       感谢您使用ASPKU工作室开发的实用函数程序  
  3. '               HTTP://WWW.ASPKU.NET  
  4. '=============================================================     'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务  
  5. 'QQ: 
  6. 'E-Mail:
  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