请问，如何得到指定域，计算机中的帐户名称 和描述

Question

如：域KFB下有：HT(黄涛）              开发二部说明：HT为登陆域KFB的用户名称，黄涛为该登陆域的中文标识，开发二部为 该帐户的备注信息

Answer 1

'============================================================= 
'函数介绍：列出NT用户组及用户 
'函数名称：ListGroup(Computer) 
'用法：ListGroup(计算机名称) 
'例：显示127.0.0.1计算机NT用户组及用户 
'ListGroup "127.0.0.1" 
'============================================================= 
Function ListGroup(Computer) 
response.write "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>" 
Set ComputerObj = GetObject("WinNT://"&Computer) 
ComputerObj.Filter = Array("Group") 
For Each Member in ComputerObj 
Response.Write "用户组："&Member.Name&"<br>" 
ListUser Computer,Member.Name 
Next 
end Function '列出指定用户组用户 
Function ListUser(Computer,Group) 
Set UserObj = GetObject("WinNT://"&Computer&"/"&Group) 
For Each Member in UserObj.Members 
Response.write "&nbsp;&nbsp;&nbsp;&nbsp;组中用户："&Member.Name &"<br>" 
Next 
End Function

Answer 2

很难得到，个人的想法只有ping或者借助网络邻居，要查下才知道这和楼上给你的办法有点出入先下

Answer 3

Public Type NETRESOURCE
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    pLocalName As Long
    pRemoteName As Long
    pComment As Long
    pProvider As Long
End TypePublic Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As Any, lphEnum As Long) As LongPublic Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As LongPublic Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long这几个函数够用了，具体用法查一下MSDN吧

Answer 4

非常感谢各位鼎立相助,我的打算是根据域,可以大概得到当前域的用户名称,作为得到公司职员基础资料 的一个手段.   在SQLSEVER添加用户中,就直接列出了选择域的用户信息!!!!

Answer 5

netvanguard:的方法很有效!
    但是好象得到的数据全部是代码,没有中外名称,也没有备注.    我在SQLSEVER添加用户中看到,它列出的信息有:
域KFB下有：
HT(黄涛）              开发二部
说明：HT为登陆域KFB的用户名称，黄涛为该登陆域的中文标识，开发二部为 该帐户的备注信
而现在只得到HT字样!!   另外,请说明一下你用到的对象 Set ComputerObj = GetObject("WinNT://" & Computer) 等及其相关属性,好吗?该属性中应该有备注,名称之类,我现在监视该值,无法得到!
    我改后的用法:
Function ListGroup(Computer)
'response.write "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>"
Set ComputerObj = GetObject("WinNT://" & Computer)
ComputerObj.Filter = Array("Group")
For Each Member In ComputerObj
Debug.Print "用户组：" & Member.Name
ListUser Computer, Member.Name
Next
End Function'列出指定用户组用户
Function ListUser(Computer, Group)
Set UserObj = GetObject("WinNT://" & Computer & "/" & Group)
For Each Member In UserObj.Members
    Debug.Print Member.Name
    Debug.Print Member.Name
Next
End FunctionPrivate Sub Command1_Click()
    ListGroup "192.168.1
end sub

Answer 6

另外:我传入本机IP 得到的如下:
用户组：Administrators
Administrator
Domain Admins
xht
maomao
xht
Guest
用户组：Backup Operators
xht
maomao
Guest
用户组：Guests
Guest
TsInternetUser
IUSR_ZHR-8M8T5012HJ6
IWAM_ZHR-8M8T5012HJ6
xht
maomao
IUSR_XHT
ILS_ANONYMOUS_USER
用户组：Power Users
xht
maomao
Guest
用户组：Replicator
xht
maomao
Guest
用户组：Users
INTERACTIVE
Authenticated Users
xht
ASPNET
Domain Users
maomao
Guest
用户组：Debugger Users
Administrator
xht
maomao
SYSTEM
Guest
用户组：DHCP Administrators
用户组：DHCP Users
用户组：NC_S_ISLCK
xht
maomao
Guest
用户组：WINS Users
用户组：__vmware__
__vmware_user__
Guest
和我在计算机管理中看到的用户  名称   全名  描述 内容不太一样