关于OS的用户管理问题！回答出马上狂送分！！！在线等！！！！！急！！！！！！

Question

请问各路英雄，如何能实现对Windows的用户进行添加和删除，分配组等功能？？？？？回答出马上结帖！！！！

Answer 1

使用active ds type library和wmi,适用于win2000
http://www.ourfly.com/bbs/dispbbs.asp?boardID=5&ID=169下载下面是增加的
Dim dso As IADsOpenDSObject
username = frmdomainlogin.Text1.Text
password = frmdomainlogin.Text2.Text
DomainName = frmdomainlogin.Combo1.TextDim container As IADsContainer
Dim containername As String
Dim user As IADsUser
Dim newuser As String
containername = frmdomainlogin.Combo1.TextIf frmdomainlogin.Check1.Value = 1 Then
Set container = GetObject("WinNT://" & containername)
Else
Set dso = GetObject("WinNT:")
Set container = dso.OpenDSObject("WinNT://" & containername, username, password, 0)
End Ifnewuser = Text1.Text
Set user = container.Create("User", newuser)
user.SetInfo

Answer 2

http://expert.csdn.net/Expert/topic/2818/2818520.xml?temp=.8662073
http://expert.csdn.net/Expert/topic/2848/2848880.xml?temp=.7908441