请问如何列出Windows 2000 Professional/Server 所有用户组

Question

好象没有这方面的例子呀,起码VB6的例子没有,我只在C#的例子里见过。如果谁见过的话，请通知我一声。

Answer 1

请使用ADSI+LDAP，你可以查一下ADSI,如果找不到例子，我可以给你一个，你这个问题在Exchange里经常用到，你可以去哪个版去找找

Answer 2

Set  dom  =  GetObject("WinNT://aDomain")
Set  usr  =  dom.Create("user","jsmith")
usr.SetInfo
Set  grp  =  GetObject("WinNT://aDomain/group")
grp.Add  ("WinNT://aDomain/jsmith")1.aDomain改为机器名
2.Win2k自带ADSI，并不需要安装Active  Directory 找到的资料，没有试验呢；你试验一下，应该可以实现

Answer 3

呵呵~~`我来要分来了function checklist
on error resume next
Set DomainObj = GetObject("WinNT://" & DomainString)
tmp= DomainObj.MinPasswordLength    ‘验证域名是否存在
if err<>0 then
  msgbox "连接域"&domainstring&"出错!"
  exit function
end if
DomainObj.Filter = Array("group")
For Each GroupObj In DomainObj
    If GroupObj.Class = "Group" Then
       strInfo=strInfo&GroupObj.Name&":"&GroupObj.Description
    End If
Next
set DomainObj = Nothing
set GroupObj = Nothing
end function上面是组，如果是用户就把group改成user
DomainString是机器名或者域名

Answer 4

lovingkiss、zhpfaff 谢谢两位的大力支持，在两位大侠的帮助下，我顺利的完成了相关的工作，剩下就是给分的工作啦，我不知道怎么给分，请指导一下！还有就是我有个新问题：怎样在程序里添加NetBEUI协议、打开\关闭输入法状态、打开\关闭软键盘？有提问，给分的哦！！比较急！！还请两位大侠救救小弟啊！

Answer 5

上面那个问题用VC\VB实现都可以