client硬體資訊 |
答題得分者是:James
|
cyl
中階會員 發表:163 回覆:171 積分:66 註冊:2002-07-11 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
cyl
中階會員 發表:163 回覆:171 積分:66 註冊:2002-07-11 發送簡訊給我 |
|
James
高階會員 發表:10 回覆:290 積分:220 註冊:2002-07-25 發送簡訊給我 |
轉貼一段程式碼給你看看...
uses NB30 ; Function GetMACAdress:String; Var NCB : PNCB; Adapter :PAdapterStatus; URetCode :Pchar; RetCode :char; I : Integer; Lenum : PlanaEnum; _SystemID :String; TMPSTR :String; Begin Result:=''; _SystemID:=''; Getmem(NCB,sizeof(TNCB)); Fillchar(NCB^,Sizeof(TNCB),0); Getmem(Lenum,sizeof(TLanaEnum)); Fillchar(Lenum^,Sizeof(TLanaEnum),0); Getmem(Adapter,sizeof(TAdapterStatus)); Fillchar(Adapter^,Sizeof(TAdapterStatus),0); Lenum.Length:=chr(0); NCB.ncb_command:=chr(NCBENUM); NCB.ncb_buffer:=pointer(Lenum); NCB.ncb_length:=sizeof(Lenum); RetCode:=Netbios(NCB); i:=0; Repeat Fillchar(NCB^,Sizeof(TNCB),0); Ncb.ncb_command:= chr(NCBRESET); Ncb.ncb_lana_num:=lenum.lana[I]; RetCode:= Netbios(Ncb); Fillchar(NCB^,Sizeof(TNCB),0); Ncb.ncb_command:= chr(NCBASTAT); Ncb.ncb_lana_num:= lenum.lana[I]; // Must be 16 Ncb.ncb_callname:='* '; Ncb.ncb_buffer:=pointer(Adapter); Ncb.ncb_length:=sizeof(TAdapterStatus); RetCode:= Netbios(Ncb); if (RetCode=chr(0)) or (RetCode=chr(6)) then Begin _SystemId:=inttohex(ord(Adapter.adapter_address[0]),2) '-' inttohex(ord(Adapter.adapter_address[1]),2) '-' inttohex(ord(Adapter.adapter_address[2]),2) '-' inttohex(ord(Adapter.adapter_address[3]),2) '-' inttohex(ord(Adapter.adapter_address[4]),2) '-' inttohex(ord(Adapter.adapter_address[5]),2); End; inc(i); until (I>=ord(Lenum.length)) or (_SystemID<>'00-00-00-00-00-00'); FreeMem(NCB); FreeMem(Adapter); FreeMem(Lenum); GetMacAdress:=_SystemID; End; |
cyl
中階會員 發表:163 回覆:171 積分:66 註冊:2002-07-11 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
James
高階會員 發表:10 回覆:290 積分:220 註冊:2002-07-25 發送簡訊給我 |
|
cyl
中階會員 發表:163 回覆:171 積分:66 註冊:2002-07-11 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
jojoboy
初階會員 發表:65 回覆:108 積分:34 註冊:2002-03-13 發送簡訊給我 |
|
James
高階會員 發表:10 回覆:290 積分:220 註冊:2002-07-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |