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

[xiaohuangtao]

如：

域KFB下有：

HT(黄涛） 开发二部

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

[xiaohuangtao]

相当于 计算机管理中的 计算机 的用户和组 的所有信息！！！

[netvanguard]

'=============================================================
'函数介绍：列出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 "    组中用户："&Member.Name &"<br>"
Next
End Function

[daisy8675]

很难得到，个人的想法只有ping或者借助网络邻居，要查下才知道

这和楼上给你的办法有点出入

先mark下

[Hassle]

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 Type

Public 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 Long

Public Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As Long

Public Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long

这几个函数够用了，具体用法查一下MSDN吧

[xiaohuangtao]

非常感谢各位鼎立相助,我的打算是根据域,可以大概得到当前域的用户名称,作为得到公司职员基础资料 的一个手段.

在SQLSEVER添加用户中,就直接列出了选择域的用户信息!!!!

[xiaohuangtao]

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 Function

Private Sub Command1_Click()
ListGroup "192.168.1
end sub

[xiaohuangtao]

另外:我传入本机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


和我在计算机管理中看到的用户 名称 全名 描述 内容不太一样