online大侠请进，一个adsi的问题

Question

请问如何把一个指定用户添加进一个指定组中

Answer 1

添加一个用户：
Set obj=GetObject("WinNT://3623/lysra")
Set usr=obj.Create("user","A")
usr.SetPassword("123456")
usr.SetInfo
创建组帐号：
Set obj=GetObject("WinNT://3623/lysra,computer")
set grp=obj.Create("group","mygroup")
grp.SetInfo
WScript.Echo "OK"
检查组成员：
Set grp=GetObject("WinNT://3623/Lysra/Users,group")
mem=grp.IsMember("WinNt://3623/yige,user")
WScript.Echo mem
返回True(1),False(0)
添加删除组成员：组要存在，成员须存在
Set grp=GetObject("WinNT://3623/lysra/mygroup,group")
mem=grp.Add("WinNT://3623/lysra/A,user")
WScript.Echo grp.IsMember("WinNT://3263/lysra/A,user")
单独封装为*.vbs已经测试通过  xp+sp1以上全部用VBS实现，在vb中引用Microsoft Script control
                             Microsoft Script Runtime支持Vbs

Answer 2

已经被人说了 :D不用ADSI也可以~~~用net localgroup 组名 /add 用户。~~~

Answer 3

将用户加入指定组
Private Sub Command2_Click()
Dim dso As IADsOpenDSObjectDim group As IADsGroup
Dim groupname As String
Dim groupdomain As String
Dim user As IADsUser
Dim username As String
Dim userdomain As Stringgroupname = List2.Text
username = Combo1.TextSet user = GetObject("WinNT://yang/" & username & ",user")
Set group = GetObject("WinNT://yang/" & groupname & ",group")group.Add (user.ADsPath)
group.SetInfo
List1.AddItem List2.TextEnd SubPrivate Sub Form_Load()
Dim dso As IADsOpenDSObject
Dim container As IADsContainer
Set container = GetObject("WinNT://yang")container.Filter = Array("Group")
For Each group In container
List2.AddItem group.Name
NextEnd Sub