PB + API取局域网计算机名、IP、MAC、工作组等信息

PB + API取局域网计算机名、IP、MAC、工作组等信息  

原理是用 NBTSTAT命令取得相关信息 如 (nbtstat -a 机器名 >存放文件名.txt ) ,然后再从 txt中出相关内容,此方法感觉 最好，之前有用网上的getmac.dll获取，但如果是无线的网卡可能取不出,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