网上一些取局域网所有计算机信息的编程基本都用到一些DLL，有的例程只能取2000/XP的计算机名。这里我提供一种方法，纯粹使用PB + API来实现取局域网一个网段的所有计算机的信息（使用了网上下载的《PB扩充函数1.5》）。而且，按照此方法，我们可以取得任何DOS命令能取得的信息。
使用的API：
Function boolean IsWindow (Long hwnd ) Library "user32.dll"
FUNCTION ulong WinExec(ref string lpCmdLine,ulong nCmdShow) LIBRARY "kernel32.dll"
使用到的《PB扩充函数1.5》中的函数
uf_Network_Ping、uf_file_isavailable。虽然使用《PB扩充函数1.5》时需要一个mhand.dll，但是我们用到的2个函数并没有使用到mhand.dll，所以也算是没有借助第三方DLL。
检索IP等信息使用2个自建的函数：
f_searchip():
查看工作组计算机string ls_ip,ls_temp
/
/ls_temp为需要检索的ip段，格式为 如：192。168。0。
ls_temp=192.168.0.
for i=1 to 255
ls_ip=ls_temp + string(i)
f_searchip1(ls_ip)
next
f_searchip1(string ls_ip):
//得到一个一个ip地址计算机信息并且插入数据窗口
u_kchs        lu_kchs
string        ls_temp
long              ll_row,p
integer        li_filenum
ulong        ll_handle
string        ls_pcname,ls_mac,ls_group
='正在检索'+as_ip
//如果能ping通为有效ip
if not(lu_kchs.uf_Network_Ping(as_ip)) then return
//使用NBTSTAT命令取得相关信息
ls_temp="nbtstat -a "+as_ip+">temp\"+as_ip
li_FileNum = FileOpen("run.bat",StreamMode!, Write!, LockWrite!, Replace!)
FileWrite(li_FileNum,ls_temp)
FileClose(li_filenum)
ls_temp='run.bat'
ll_handle=WinExec(ls_temp,0)
//等待DOS窗口关闭
Do While isWindow(ll_handle)
Yield()
Loop
//等待临时文件创建成功
do while not(lu_kchs.uf_file_isavailable("temp\"+as_ip))
Yield()
Loop
//取计算机mac，工作组等信息
li_FileNum=FileOpen("temp\"+as_ip,StreamMode!,Read! )
if li_FileNum>0 then
FileRead(li_FileNum,ls_temp)
FileClose(li_filenum)
FileDelete("temp\"+as_ip)
p=pos(ls_temp,'MAC Address = ')
ls_mac=mid(ls_temp,p + 14,17)
p=pos(ls_temp,'UNIQUE      Registered')
ls_pcname=trim(mid(ls_temp,p - 21,14))
p=pos(ls_temp,'GROUP      Registered')
ls_group=trim(mid(ls_temp,p - 21,14))
if ls_mac='\NetBT_Tcpip_{942' then ls_mac='其他设备'
if ls_mac<>'其他设备' and trim(ls_mac) <> '' then
//因为使用DHCP动态分配IP，所以根据MAC地址来标识唯一的计算机
ll_row=dw_cx.find("mac='"+ls_mac+"'",1,wcount())
if ll_row
>0 then
//如果原来有数据则修改
dw_cx.o b j e c t.mac[ll_row]=ls_mac
dw_cx.o b j e c t.pcname[ll_row]=ls_pcname
dw_cx.o b j e c t.workgroup[ll_row]=ls_group
dw_cx.o b j e c t.ip[ll_row]=as_ip
dw_cx.o b j e line[ll_row]=1
else
ll_row=dw_cx.insertrow(0)
dw_cx.o b j e wid[ll_row]=0
dw_cx.o b j e c t.mac[ll_row]=ls_mac
dw_cx.o b j e c t.pcname[ll_row]=ls_pcname
dw_cx.o b j e c t.workgroup[ll_row]=ls_group
dw_cx.o b j e c t.ip[ll_row]=as_ip
dw_cx.o b j e line[ll_row]=1
end if
end if
end if
不足之处请大家指正，完。