4 respuestas en este tema

[escafandra]

Para encontrar el nombre de una red local podemos usar este código:

delphi

type
  WKSTA_INFO_100   = Record
      wki100_platform_id  : DWORD;
      wki100_computername : LPWSTR;
      wki100_langroup     : LPWSTR;
      wki100_ver_major    : DWORD;
      wki100_ver_minor    : DWORD;
  end;
 
  PWKSTA_INFO_100 = ^WKSTA_INFO_100;
 
  function NetWkstaGetInfo(name: PWCHAR; Level: DWORD; buffer: Pointer): DWORD; stdcall; external 'Netapi32.dll';
  function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall; external 'netapi32.dll';
 
 
implementation
 
function GetNetName(): String;
var
  WK: PWKSTA_INFO_100;
begin
  Result:= '';
  if 0 = NetWkstaGetInfo(nil, 100, @WK) then
    Result:= WK.wki100_langroup;
  NetApiBufferFree(WK.wki100_langroup);
end;

Saludos.

[escafandra]

El mismo truco en C/CPP

cpp

#include <Lmwksta.h>
 
String GetName()
{
  PWKSTA_INFO_101 WK;
  String R = "";
  if(0 == NetWkstaGetInfo(L"127.0.0.1", 100, (PBYTE*)(&WK))){
    R = WK->wki101_langroup;
    NetApiBufferFree(WK->wki101_langroup);
  }
  return R;
}

Saludos.

[ELKurgan]

Muchas gracias por el aporte, maestro

 

 

[poliburro]

Una pregunta.

¿Esto hace lo mismo que cuando hacemos "ping -a" a una ip?

[escafandra]

Una pregunta.

¿Esto hace lo mismo que cuando hacemos "ping -a" a una ip?

No. Simplemente te devuelve el nombre de la estación de trabajo a la que esté conectado tu PC.

 

 

Saludos.