我想讓user上網取得一取序號,此組序號的計算方式是依client端的機器CPU號碼或其硬體序號計算而成,達到一組序號只能裝在同一台機器的目的,但是不知道這取得client的硬體資訊在web上程式要如何達到???

提供兩種方式 (1)使用ActiveX (2)使用Script 中的Shell

引言: 提供兩種方式 (1)使用ActiveX (2)使用Script 中的Shell

對不起,可否提供具體的程式碼,實在不知如何去寫這方面的程式,我從來沒寫過???

轉貼一段程式碼給你看看...    

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;    

請問一下這是取得那一個硬體的資訊?? 請問PC中那一種硬體資訊序號是唯一的,此序號是否透過登錄檔也能取得??? 發表人 - cyl 於 2002/08/22 17:50:10

目前來說，比較簡單知道唯一的東西是網路卡卡號 Register可以得到 但icsboy 這個壞人常常改來改去...哈..

那段 code 是取得網卡 MAC Address ,正常來說應該是唯一的序號...

引言: 那段 code 是取得網卡 MAC Address ,正常來說應該是唯一的序號...

請問在那一個機碼可以取得MAC Address 因為網卡並不是每一個人都有,可以抓到硬碟序號嗎?? 發表人 - cyl 於 2002/08/23 09:09:07

就您這樣的說法而言，我想，他也有可能沒有HDD 吧 必竟就現在這個時代而言，上網還用Modem沒網路卡的人 應該不多了 所以，不然有一個辦法，是一定有的，你捉CPU的編號(單体編號--獨一的那組) 好了，但是我不會...

基本上... 您是要產生Client端的唯一一組編號... 既然是Client端就一定會有網卡的吧.... 所以囉.... 建議您還是利用網卡去產生編號吧!!!

或許我們用另一個角度去想 ,其實 MAC Address 也可能是比較容易知道是不是 正確取到的號碼 ,像 CPU 號碼 , 你可以從什麼東西上看到嗎 ?? 如果有那就 比較容易有辦法了 ,而 MAC Address 可以算是目前最普遍的了.... 要不然頂多你送客戶一張螃蟹卡 ,當成 KeyPro 來使用囉...