请教高手一个关于用VB管理Windows本地用户和组的问题，高分感谢（100）！

Question

net user就可以，不过如果删除注册表里面的一个值就没办法用这个NET工具（关于注册表这个值你去搜索一下，

Answer 1

'试试'引用active ds type library
'添加2个listbox,2个按钮,2个combo控件
Option Explicit
'给用户添加组
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 Command3_Click()Dim Username, UserPass
Dim oDomain, oUser
Username = "user1"
UserPass = "user1"
Set oDomain = GetObject("WinNT://yang")
Set oUser = oDomain.Create("user", Username)
If (Err.Number = 0) ThenoUser.SetInfo
oUser.SetPassword UserPass
oUser.SetInfo
Else
MsgBox "创建用户" & Username & "出错！"
End If
Set oUser = Nothing
Set oDomain = Nothing
End Sub'初始化用户名，组名
Private Sub Form_Load()
Dim dso As IADsOpenDSObjectDim container As IADsContainerSet container = GetObject("WinNT://yang")container.Filter = Array("User")
Dim user As IADsUser
For Each user In container
Combo1.AddItem user.Name
Nextcontainer.Filter = Array("Group")
Dim group As IADsGroup
For Each group In container
Combo2.AddItem group.Name
Next
container.Filter = Array("Group")
For Each group In container
List2.AddItem group.Name
NextEnd Sub'得到指定用户所在的组
Private Sub Command1_Click()
Dim dso As IADsOpenDSObjectDim user As IADsUser
Dim Username As String
Dim userdomain As String
Dim group As IADsGroup
Dim container As IADsContainerUsername = Combo1.Text
Set container = GetObject("WinNT://yang")
Set user = GetObject("WinNT://yang/" & Username & ",user")
For Each group In user.Groups
List1.AddItem group.Name
Next
End Sub

Answer 2

online(龙卷风V3.0--笑傲江湖)师哥，您好！我按照您给我的程序运行了，可就是总报错误：自动化错误，请问下面这两句您能帮我具体解释一下吗？
Set user = GetObject("WinNT://yang/" & Username & ",user")
Set group = GetObject("WinNT://yang/" & groupname & ",group")
特别是"WinNT://yang/"这里我不太明白！
另外还有
oUser.SetInfo
oUser.SetPassword UserPass
oUser.SetInfo这三个句子
谢谢您！

Answer 3

WinNT://yang/"
yang是计算机名至于其他的，你运行例子就明白了