PB + API取局域网计算机名、IP、MAC、工作组等信息
PB + API取局域网计算机名、IP、MAC、工作组等信息
转载如下:
网上一些取局域网所有计算机信息的编程基本都用到一些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段，格式为xxx.xxx.xxx. 如：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
sle_ts.text=’正在检索‘+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,dw_cx.rowcount())
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 c t.online[ll_row]=1
else
ll_row=dw_cx.insertrow(0)
dw_cx.o b j e c t.rowid[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 c t.online[ll_row]=1
end if
end if
end if
2 ===以下是我从上面精减成一个只取mac地址的函数(fx_getmac_dos)
定义api
Function boolean IsWindow (Long hwnd ) Library "user32.dll"
FUNCTION ulong WinExec(ref string lpCmdLine,ulong nCmdShow) LIBRARY "kernel32.dll"
string ls_temp,as_ip
long ll_row,p
integer li_filenum
ulong ll_handle
string ls_pcname,ls_mac,ls_group
as_ip="jack1" //此处是计算机名或ip都可
ls_temp="nbtstat -a "+as_ip+" >c:\"+as_ip+".txt"
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
li_FileNum=FileOpen("c:\"+as_ip+".txt",StreamMode!,Read! )
if li_FileNum>0 then
FileRead(li_FileNum,ls_temp)
p=pos(ls_temp,'MAC Address = ')
ls_mac=mid(ls_temp,p + 14,17)
// if ls_mac='\NetBT_Tcpip_{942′ then ls_mac='其他设备'
if ls_mac<>'其他设备' and trim(ls_mac) <> '' then
messagebox("",ls_mac)
end if
FileClose(li_filenum)
FileDelete("c:\"+as_ip+".txt")
FileDelete("run.bat")
end if