Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
vms

(Resolvido) encontrar endereço fisico

Question

alguém sabe de alguma função que possa encontrar o endereço fisico do computador

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0
alguém sabe de alguma função que possa encontrar o endereço fisico do computador
Dá para explicar melhor? Já que parece que não se trata de endereço IP na rede.

Share this post


Link to post
Share on other sites
  • 0
Dá para explicar melhor? Já que parece que não se trata de endereço IP na rede.

ok

no command prompt do windows voce digita (ipconfig/all)

vai aparecer as configuraçoes da maquina

ip, endereço fisico, etc

uso um programa da siemes que a liceça e para um unico endereço fisico(uma licença pra cada pc)

stou tentando bolar um arquivo de licença semelhante a isso pra meus projetos.

Share this post


Link to post
Share on other sites
  • 0
uso um programa da siemes que a liceça e para um unico endereço fisico(uma licença pra cada pc)

stou tentando bolar um arquivo de licença semelhante a isso pra meus projetos.

Você está querendo saber o MAC da placa de rede?

Agora dá para dizer que é isto mesmo que ele quer Imroot.

vms, dê uma olhada neste post http://scriptbrasil.com.br/forum/index.php...pic=90144"" target="_blank">Pegando o Endereço MAC da Placa de Rede do nosso colega Kikonanet, existente na seção Tutoriais & Dicas.

Abraços

Share this post


Link to post
Share on other sites
  • 0

valeu galera, tinha encontrado esta função na net, mas não sabia que era a mesma coisa

//Pegando o endereço mac da placa de rede
Function MacAddress: string;
var
  Lib: Cardinal;
  Func: function(GUID: PGUID): Longint; stdcall;
  GUID1, GUID2: TGUID;
begin
  Result := '';
  Lib := LoadLibrary('rpcrt4.dll');
  if Lib <> 0 then
  begin
    @Func := GetProcAddress(Lib, 'UuidCreateSequential');
    if Assigned(Func) then
    begin
      if (Func(@GUID1) = 0) and
         (Func(@GUID2) = 0) and
         (GUID1.D4[2] = GUID2.D4[2]) and
         (GUID1.D4[3] = GUID2.D4[3]) and
         (GUID1.D4[4] = GUID2.D4[4]) and
         (GUID1.D4[5] = GUID2.D4[5]) and
         (GUID1.D4[6] = GUID2.D4[6]) and
         (GUID1.D4[7] = GUID2.D4[7]) then
      begin
        Result :=
          IntToHex(GUID1.D4[2], 2) + '-' +
          IntToHex(GUID1.D4[3], 2) + '-' +
          IntToHex(GUID1.D4[4], 2) + '-' +
          IntToHex(GUID1.D4[5], 2) + '-' +
          IntToHex(GUID1.D4[6], 2) + '-' +
          IntToHex(GUID1.D4[7], 2);
      end;
    end;
  end;
end;

Edited by Micheus
Adicionada a tag CODE e identação. Utilize-a também. ;-)

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148112
    • Total Posts
      643388
×
×
  • Create New...