纯PBAPI取局域网计算机名、IP、MAC、工作组等信息.doc

PB + APIIPMAC.txtDLL2000/XPPB + APIPB1.5DOS APIFunction boolean IsWindow (Long hwnd ) Library user32.dllFUNCTION ulong WinExec(ref string lpCmdLine,ulong nCmdShow) LIBRARY kernel32.dll PB1.5 uf_Network_Pinguf_file_isavailablePB1.5mhand.dll2mhand.dllDLL IP2f_searchip(): string ls_ip,ls_temp/ls_tempipxxx.xxx.xxx. 1921680ls_temp=192.168.0.for i=1 to 255 ls_ip=ls_temp + string(i) f_searchip1(ls_ip)nextf_searchip1(string ls_ip): /ipu_kchs lu_kchsstring ls_templong ll_row,pinteger li_filenumulong ll_handlestring ls_pcname,ls_mac,ls_groupsle_ts.text=+as_ip/pingipif not(lu_kchs.uf_Network_Ping(as_ip) then return/NBTSTATls_temp=nbtstat -a +as_ip+temp+as_ipli_FileNum = FileOpen(run.bat,StreamMode!, Write!, LockWrite!, Replace!)FileWrite(li_FileNum,ls_temp)FileClose(li_filenum)ls_temp=run.batll_handle=WinExec(ls_temp,0)/DOSDo 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_FileNum0 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 /DHCPIP,MAC ll_row=dw_cx.find(mac=+ls_mac+,1,dw_cx.rowcount() if ll_row0 then / dw_cx.o b j e c t.macll_row=ls_mac dw_cx.o b j e c t.pcnamell_row=ls_pcname dw_cx.o b j e c t.workgroupll_row=ls_group dw_cx.o b j e c t.ipll_row=as_ip dw_cx.o b j e c t.onlinell_row=1 else ll_row=dw_cx.insertrow(0) dw_cx.o b j e c t.rowidll_row=0 dw_cx.o b j e c t.macll_row=ls_mac dw_cx.o b j e c t.pcnamell_row=ls_pcname dw_cx.o b j e c t.workgroupll_row=