關於Active Directory 的一要些問題？急！！！！！！

Question

在vb中，怎樣列出Windows2000當前（或指定）域的所有用戶（用戶名，用戶其它信息）。
請教！

Answer 1

(1)NET VIEW 
作 用：显示域列表、计算机列表或指定计算机的共享资源列表。 
命令格式：net view [\\computername | /domain[:domainname]] 
参数介绍： 
　　(1)键入不带参数的net view显示当前域的计算机列表。 
　　(2)\\computername 指定要查看其共享资源的计算机。 
　　(3)/domain[:domainname]指定要查看其可用计算机的域。 
简单事例： 
　　(1)net view \\YFANG查看YFANG的共享资源列表。 
　　(2)net view /domain:LOVE查看LOVE域中的机器列表。 
(2)NET USER 
作 用：添加或更改用户帐号或显示用户帐号信息。该命令也可以写为 net users。 
命令格式：net user [username [password | *] [options]] [/domain] 
参数介绍： 
　　(1)键入不带参数的net user查看计算机上的用户帐号列表。 
　　(2)username添加、删除、更改或查看用户帐号名。 
　　(3)password为用户帐号分配或更改密码。 
　　(4)*提示输入密码。 
　　(5)/domain在计算机主域的主域控制器中执行操作。 
简单事例： 
　　(1)net user yfang查看用户YFANG的信息

Answer 2

程序中用 shell("net view /domain:domainName >c:\文件名.txt")  就會生成域中的机器列表在"文件名.txt" 文件中.在程序中再讀取以\\開頭的計算機名.

Answer 3

dim rs as new adodb.recordset
cn.execute "create table #zz(aa varchar(200))"
cn.execute "insert into #zz exec xp_cmdshell 'net view /domain 你的域名'"
rs.open "select * from #zz where aa like '%disk'",cn
do while not rs.eof
debug.print rs!aa   --->这里你在处理一下
  rs.movenext
loop
cn.execute "drop table #zz"

Answer 4

dim rs as new adodb.recordset
cn.execute "create table #zz(aa varchar(200))"
cn.execute "insert into #zz exec xp_cmdshell 'net view /domain 你的域名'"
------若要插入可以直接用：
cn.execute"insert into yourtable(username) select rtrim(left(aa,patindex('%Disk%',aa)-1)) as username from #zz where aa"--否则：
rs.open "select rtrim(left(aa,patindex('%Disk%',aa)-1)) as username
 from #zz where aa",cn
do while not rs.eof
    debug.print rs!username
    rs.movenext
loop 
cn.execute "drop table #zz"

Answer 5

你将net view 换成net user 应该就差不多了
我的电脑是winme，所以没有net user，无法实践，抱歉

Answer 6

键入不带参数的net user查看计算机上的用户帐号列表。