{$IFDEF MSWINDOWS}

type
  TNetWkstaGetInfo = function (servername: PWideChar; level: DWORD; out bufptr: PByte): NET_API_STATUS; stdcall;

var
  _NetWkstaGetInfo: TNetWkstaGetInfo = nil;

function NetWkstaGetInfo(servername: PWideChar; level: DWORD; out bufptr: PByte): NET_API_STATUS; stdcall;
begin
  GetProcedureAddress(Pointer(@_NetWkstaGetInfo), netapi32, 'NetWkstaGetInfo');
  Result := _NetWkstaGetInfo(servername, level, bufptr);
end;

{$ENDIF MSWINDOWS}