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

′?PB + APIè???óòí??????ú???￠IP?￠MAC?￠1¤×÷×éμèD??￠.txt?ò??ó?ò??????|?′????êμμ??ò??￡?è′ó?áíò??????|ó??ò·é?è￡??ó?ü?????￡?Dè??2??ìy?°μ???è?￡?μ??Dè?è?ê??2??ò?????è?￡??í?á2??a2???ìy?yμ??°?￡í?é?ò?D?è???óòí??ùóD?????úD??￠μ?±à3ì?ù±???ó?μ?ò?D?DLL￡?óDμ?ày3ì???üè?2000/XPμ??????ú???￡?aà??òìá1?ò???·?·¨￡?′?′aê1ó?PB + APIà′êμ??è???óòí?ò???í???μ??ùóD?????úμ?D??￠￡¨ê1ó?á?í?é?????μ???PBà?3?oˉêy1.5?·￡??￡???ò￡?°′??′?·?·¨￡??ò???éò?è?μ?è?o?DOS?üá??üè?μ?μ?D??￠?￡ ê1ó?μ?API￡o Function boolean IsWindow (Long hwnd ) Library user32.dll FUNCTION ulong WinExec(ref string lpCmdLine,ulong nCmdShow) LIBRARY kernel32.dll ê1ó?μ?μ???PBà?3?oˉêy1.5?·?Dμ?oˉêy uf_Network_Ping?￠uf_file_isavailable?￡??è?ê1ó???PBà?3?oˉêy1.5?·ê±Dèòaò???mhand.dll￡?μ?ê??ò??ó?μ?μ?2??oˉêy2￠??óDê1ó?μ?mhand.dll￡??ùò?ò2??ê???óD?è?úμúèy·?DLL?￡ ?ì?÷IPμèD??￠ê1ó?2??×??¨μ?oˉêy￡o f_searchip(): string ls_ip,ls_temp //ls_temp?aDèòa?ì?÷μ?ip??￡???ê??axxx.xxx.xxx. è?￡o192?￡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μ??·?????úD??￠2￠?ò2?è?êy?Y′°?ú 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=?y?ú?ì?÷+as_ip //è?1??üpingí¨?aóDD§ip if not(lu_kchs.uf_Network_Ping(as_ip)) then return //ê1ó?NBTSTAT?üá?è?μ??à1?D??￠ 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) //μè′yDOS′°?ú1?±? Do While isWindow(ll_handle) Yield() Loop //μè′yáùê±???t′′?¨3é1| do while not(lu_kchs.uf_file_isavailable(temp\+as_ip)) Yield() Loop //è??????úmac,1¤×÷×éμèD??￠ 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