如何将用户添加到一个组？

下面的代码实现这个功能就比较合适：

strUser="UserID"
strGroup="GroupName"
Set oDomain = GetObject("WinNT://YourDomain")
Set oGroup = oDomain.GetObject("Group", strGroup)
oGroup.Add ("WinNT://YourDomain/" & strUser)