Mac address with Win32 bindings.

Mac address with Win32 bindings.

[Alex Xela]

Hi,

I 'm looking for some Ada stuff to get the Mac Address under WindowsNT/XP
(using bindingWin32 -> function Win32.Nb30.Netbios())

I tried in vain to write it, but honestly, I'm not a win32 API guru......

Thanks.

Alex.

Re: MAC address with Win32 bindings.

[Larry Kilgallen]

In article <3fad244e$0$27572$626a54ce@news.free.fr>, "Alex Xela" <xela2@free.fr> writes:

> Subject: Mac address with Win32 bindings.

> I 'm looking for some Ada stuff to get the Mac Address under WindowsNT/XP
> (using bindingWin32 -> function Win32.Nb30.Netbios())

Since Windows NT does not run on Macintosh, probably what you want is a
MAC address rather than a Mac address.  Like ADA only the other way around.

Re: MAC address with Win32 bindings.

[Alex Xela]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 765 bytes --]

Yes I want to be able to read my MAC Address (Medium Access Control) using a
binding (Win32 here) from an Ada application.
I did not understand what you were meaning by "Like ADA only the other way
around".
Alex.
"Larry Kilgallen" <Kilgallen@SpamCop.net> a �crit dans le message de
news:CmAtyEfetDI6@eisner.encompasserve.org...
> In article <3fad244e$0$27572$626a54ce@news.free.fr>, "Alex Xela"
<xela2@free.fr> writes:
>
> > Subject: Mac address with Win32 bindings.
>
> > I 'm looking for some Ada stuff to get the Mac Address under
WindowsNT/XP
> > (using bindingWin32 -> function Win32.Nb30.Netbios())
>
> Since Windows NT does not run on Macintosh, probably what you want is a
> MAC address rather than a Mac address.  Like ADA only the other way
around.

Re: Mac address with Win32 bindings.

[Steve]

Converting the example at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netbios/netbios_1l82.asp
to Ada:

with Ada.Strings.Fixed;
with Ada.Text_IO;
with Win32.Nb30;
with Interfaces;
 use Interfaces;
with Interfaces.C;
with Ada.Unchecked_Conversion;

procedure Show_Mac_Address is

    use type Interfaces.C.unsigned_short;
    use type Interfaces.C.unsigned_char;

    package UInt_Io is
      new Ada.Text_IO.Modular_IO( Win32.UCHAR );

    type NAME_BUFFER_ARRAY is array( 0 .. 29 ) of Win32.nb30.NAME_BUFFER;

    type AStat is
      record
        adapt      : Win32.nb30.ADAPTER_STATUS;
        nameBuffer : NAME_BUFFER_ARRAY;
      end record;
    pragma Convention( C, AStat );

    type AstatAcc is access all Astat;

    function Conv is
      new Ada.Unchecked_Conversion( AstatAcc, Win32.PUCHAR );

    type Byte_Array_Type is array( Positive range <> ) of Unsigned_8;

    function Hex_Chars( Char_Data : Win32.UCHAR ) return String is
      str_buffer : String( 1 .. 32 );
      first_hash : Natural;
      last_hash  : Natural;
    begin
      UInt_Io.Put( str_buffer, Char_Data, 16 );
      first_hash := Ada.Strings.Fixed.Index( str_buffer, "#",
Ada.Strings.Forward );
      last_hash := Ada.Strings.Fixed.Index( str_buffer, "#",
Ada.Strings.Backward );
      return str_buffer( first_hash + 1 .. last_hash - 1 );
    end Hex_Chars;

    ncb       : aliased Win32.Nb30.NCB;
    Ncb_Alias : Byte_Array_Type( 1 .. ncb'Size/8 );
    for Ncb_Alias'Address use ncb'Address;
    Return_Code : Win32.UCHAR;
    Adapter   : aliased AStat;
  begin
    Ncb_Alias := ( others => 0 );
    ncb.ncb_command := Win32.Nb30.NCBRESET;
    ncb.ncb_lana_num := 0;

    Return_Code := Win32.Nb30.Netbios( ncb'UNCHECKED_ACCESS );
    Ada.Text_IO.Put( "The NCBRESET return code is: " & Hex_Chars(
Return_Code ) );
    Ada.Text_IO.New_Line;

    Ncb_Alias := ( others => 0 );
    ncb.ncb_command := Win32.Nb30.NCBASTAT;
    ncb.ncb_lana_num := 0;
    ncb.ncb_callname := ( 0 => Character'Pos('*'), others => Character'Pos('
') );
    ncb.ncb_buffer := Conv( Adapter'Access );
    ncb.ncb_length := Adapter'Size / 8;

    Return_Code := Win32.Nb30.Netbios( ncb'Unchecked_Access );

    Ada.Text_IO.Put( "The NCBASTAT return code is: " & Hex_Chars(
Return_Code ) );
    Ada.Text_IO.New_Line;

    if Return_Code = 0 then
      Ada.Text_IO.Put( "The Ethernet Number is: " );
      Ada.Text_IO.Put( Hex_Chars( Adapter.adapt.adapter_address(0) ) & "-" &
                       Hex_Chars( Adapter.adapt.adapter_address(1) ) & "-" &
                       Hex_Chars( Adapter.adapt.adapter_address(2) ) & "-" &
                       Hex_Chars( Adapter.adapt.adapter_address(3) ) & "-" &
                       Hex_Chars( Adapter.adapt.adapter_address(4) ) & "-" &
                       Hex_Chars( Adapter.adapt.adapter_address(5) ) );
      Ada.Text_IO.New_Line;
    end if;

end Show_Mac_Address;

For things to link correctly with GNAT you must specify the netabp32
library:

gnatmake Show_Mac_Address -largs -lnetapi32

I hope this helps,
Steve
(The Duck)


"Alex Xela" <xela2@free.fr> wrote in message
news:3fad244e$0$27572$626a54ce@news.free.fr...
> Hi,
>
> I 'm looking for some Ada stuff to get the Mac Address under WindowsNT/XP
> (using bindingWin32 -> function Win32.Nb30.Netbios())
>
> I tried in vain to write it, but honestly, I'm not a win32 API guru......
>
> Thanks.
>
> Alex.
>
>

Re: Mac address with Win32 bindings.

[Alex Xela]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 4236 bytes --]

-------------



In fact your code is very very close to mine (I was aware about the
Microsoft example, and I tried also to translate this ugly language into a
beautifully Ada code :-).

In the both case your code and mine have a wrong the return code (0 and 35
for mine, 23 and 23 for yours)

The result is independent of the compiler (ObectAda7.2.2 /Gnat3.15p) or of
the OS (Windos2K/XP).

There is definitively something I do not understand in this
API!!!!.....................



ALEX



-------------



"Steve" <nospam_steved94@comcast.net> a �crit dans le message de
news:wuirb.150012$Fm2.132677@attbi_s04...
> Converting the example at
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netbios/netbios_1l82.asp
> to Ada:
>
> with Ada.Strings.Fixed;
> with Ada.Text_IO;
> with Win32.Nb30;
> with Interfaces;
>  use Interfaces;
> with Interfaces.C;
> with Ada.Unchecked_Conversion;
>
> procedure Show_Mac_Address is
>
>     use type Interfaces.C.unsigned_short;
>     use type Interfaces.C.unsigned_char;
>
>     package UInt_Io is
>       new Ada.Text_IO.Modular_IO( Win32.UCHAR );
>
>     type NAME_BUFFER_ARRAY is array( 0 .. 29 ) of Win32.nb30.NAME_BUFFER;
>
>     type AStat is
>       record
>         adapt      : Win32.nb30.ADAPTER_STATUS;
>         nameBuffer : NAME_BUFFER_ARRAY;
>       end record;
>     pragma Convention( C, AStat );
>
>     type AstatAcc is access all Astat;
>
>     function Conv is
>       new Ada.Unchecked_Conversion( AstatAcc, Win32.PUCHAR );
>
>     type Byte_Array_Type is array( Positive range <> ) of Unsigned_8;
>
>     function Hex_Chars( Char_Data : Win32.UCHAR ) return String is
>       str_buffer : String( 1 .. 32 );
>       first_hash : Natural;
>       last_hash  : Natural;
>     begin
>       UInt_Io.Put( str_buffer, Char_Data, 16 );
>       first_hash := Ada.Strings.Fixed.Index( str_buffer, "#",
> Ada.Strings.Forward );
>       last_hash := Ada.Strings.Fixed.Index( str_buffer, "#",
> Ada.Strings.Backward );
>       return str_buffer( first_hash + 1 .. last_hash - 1 );
>     end Hex_Chars;
>
>     ncb       : aliased Win32.Nb30.NCB;
>     Ncb_Alias : Byte_Array_Type( 1 .. ncb'Size/8 );
>     for Ncb_Alias'Address use ncb'Address;
>     Return_Code : Win32.UCHAR;
>     Adapter   : aliased AStat;
>   begin
>     Ncb_Alias := ( others => 0 );
>     ncb.ncb_command := Win32.Nb30.NCBRESET;
>     ncb.ncb_lana_num := 0;
>
>     Return_Code := Win32.Nb30.Netbios( ncb'UNCHECKED_ACCESS );
>     Ada.Text_IO.Put( "The NCBRESET return code is: " & Hex_Chars(
> Return_Code ) );
>     Ada.Text_IO.New_Line;
>
>     Ncb_Alias := ( others => 0 );
>     ncb.ncb_command := Win32.Nb30.NCBASTAT;
>     ncb.ncb_lana_num := 0;
>     ncb.ncb_callname := ( 0 => Character'Pos('*'), others =>
Character'Pos('
> ') );
>     ncb.ncb_buffer := Conv( Adapter'Access );
>     ncb.ncb_length := Adapter'Size / 8;
>
>     Return_Code := Win32.Nb30.Netbios( ncb'Unchecked_Access );
>
>     Ada.Text_IO.Put( "The NCBASTAT return code is: " & Hex_Chars(
> Return_Code ) );
>     Ada.Text_IO.New_Line;
>
>     if Return_Code = 0 then
>       Ada.Text_IO.Put( "The Ethernet Number is: " );
>       Ada.Text_IO.Put( Hex_Chars( Adapter.adapt.adapter_address(0) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(1) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(2) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(3) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(4) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(5) ) );
>       Ada.Text_IO.New_Line;
>     end if;
>
> end Show_Mac_Address;
>
> For things to link correctly with GNAT you must specify the netabp32
> library:
>
> gnatmake Show_Mac_Address -largs -lnetapi32
>
> I hope this helps,
> Steve
> (The Duck)
>
>
> "Alex Xela" <xela2@free.fr> wrote in message
> news:3fad244e$0$27572$626a54ce@news.free.fr...
> > Hi,
> >
> > I 'm looking for some Ada stuff to get the Mac Address under
WindowsNT/XP
> > (using bindingWin32 -> function Win32.Nb30.Netbios())
> >
> > I tried in vain to write it, but honestly, I'm not a win32 API
guru......
> >
> > Thanks.
> >
> > Alex.
> >
> >
>
>

Re: Mac address with Win32 bindings.

[Alex Xela]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 3888 bytes --]


------------


I apologise, I certainly made a mistake somewhere because after an other try
your code works perfectly (not mine :-().
Thanks.
ALEX


----------
"Steve" <nospam_steved94@comcast.net> a �crit dans le message de
news:wuirb.150012$Fm2.132677@attbi_s04...
> Converting the example at
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netbios/netbios_1l82.asp
> to Ada:
>
> with Ada.Strings.Fixed;
> with Ada.Text_IO;
> with Win32.Nb30;
> with Interfaces;
>  use Interfaces;
> with Interfaces.C;
> with Ada.Unchecked_Conversion;
>
> procedure Show_Mac_Address is
>
>     use type Interfaces.C.unsigned_short;
>     use type Interfaces.C.unsigned_char;
>
>     package UInt_Io is
>       new Ada.Text_IO.Modular_IO( Win32.UCHAR );
>
>     type NAME_BUFFER_ARRAY is array( 0 .. 29 ) of Win32.nb30.NAME_BUFFER;
>
>     type AStat is
>       record
>         adapt      : Win32.nb30.ADAPTER_STATUS;
>         nameBuffer : NAME_BUFFER_ARRAY;
>       end record;
>     pragma Convention( C, AStat );
>
>     type AstatAcc is access all Astat;
>
>     function Conv is
>       new Ada.Unchecked_Conversion( AstatAcc, Win32.PUCHAR );
>
>     type Byte_Array_Type is array( Positive range <> ) of Unsigned_8;
>
>     function Hex_Chars( Char_Data : Win32.UCHAR ) return String is
>       str_buffer : String( 1 .. 32 );
>       first_hash : Natural;
>       last_hash  : Natural;
>     begin
>       UInt_Io.Put( str_buffer, Char_Data, 16 );
>       first_hash := Ada.Strings.Fixed.Index( str_buffer, "#",
> Ada.Strings.Forward );
>       last_hash := Ada.Strings.Fixed.Index( str_buffer, "#",
> Ada.Strings.Backward );
>       return str_buffer( first_hash + 1 .. last_hash - 1 );
>     end Hex_Chars;
>
>     ncb       : aliased Win32.Nb30.NCB;
>     Ncb_Alias : Byte_Array_Type( 1 .. ncb'Size/8 );
>     for Ncb_Alias'Address use ncb'Address;
>     Return_Code : Win32.UCHAR;
>     Adapter   : aliased AStat;
>   begin
>     Ncb_Alias := ( others => 0 );
>     ncb.ncb_command := Win32.Nb30.NCBRESET;
>     ncb.ncb_lana_num := 0;
>
>     Return_Code := Win32.Nb30.Netbios( ncb'UNCHECKED_ACCESS );
>     Ada.Text_IO.Put( "The NCBRESET return code is: " & Hex_Chars(
> Return_Code ) );
>     Ada.Text_IO.New_Line;
>
>     Ncb_Alias := ( others => 0 );
>     ncb.ncb_command := Win32.Nb30.NCBASTAT;
>     ncb.ncb_lana_num := 0;
>     ncb.ncb_callname := ( 0 => Character'Pos('*'), others =>
Character'Pos('
> ') );
>     ncb.ncb_buffer := Conv( Adapter'Access );
>     ncb.ncb_length := Adapter'Size / 8;
>
>     Return_Code := Win32.Nb30.Netbios( ncb'Unchecked_Access );
>
>     Ada.Text_IO.Put( "The NCBASTAT return code is: " & Hex_Chars(
> Return_Code ) );
>     Ada.Text_IO.New_Line;
>
>     if Return_Code = 0 then
>       Ada.Text_IO.Put( "The Ethernet Number is: " );
>       Ada.Text_IO.Put( Hex_Chars( Adapter.adapt.adapter_address(0) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(1) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(2) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(3) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(4) ) & "-"
&
>                        Hex_Chars( Adapter.adapt.adapter_address(5) ) );
>       Ada.Text_IO.New_Line;
>     end if;
>
> end Show_Mac_Address;
>
> For things to link correctly with GNAT you must specify the netabp32
> library:
>
> gnatmake Show_Mac_Address -largs -lnetapi32
>
> I hope this helps,
> Steve
> (The Duck)
>
>
> "Alex Xela" <xela2@free.fr> wrote in message
> news:3fad244e$0$27572$626a54ce@news.free.fr...
> > Hi,
> >
> > I 'm looking for some Ada stuff to get the Mac Address under
WindowsNT/XP
> > (using bindingWin32 -> function Win32.Nb30.Netbios())
> >
> > I tried in vain to write it, but honestly, I'm not a win32 API
guru......
> >
> > Thanks.
> >
> > Alex.
> >
> >
>
>

Re: MAC address with Win32 bindings.

[Simon Wright]

"Alex Xela" <xela2@free.fr> writes:

> I did not understand what you were meaning by "Like ADA only the
> other way around".

People in this newsgroup tend to get agitated when the language is
spelt ADA instead of Ada (ADA => Americans with Disabilities Act or
American Dental Association or Application Development Advisor
magazine or ... see Google)

-- 
Simon Wright                               100% Ada, no bugs.

Re: MAC address with Win32 bindings.

[chris]

Simon Wright wrote:
> People in this newsgroup tend to get agitated when the language is
> spelt ADA instead of Ada (ADA => Americans with Disabilities Act or
> American Dental Association or Application Development Advisor
> magazine or ... see Google)

I thought Ada was case insensitive? ;)

Re: MAC address with Win32 bindings.

[Larry Kilgallen]

In article <0wrrb.1073$Tc2.7139@newsfep4-glfd.server.ntli.net>, chris <spamoff.danx@ntlworld.com> writes:
> Simon Wright wrote:
>> People in this newsgroup tend to get agitated when the language is
>> spelt ADA instead of Ada (ADA => Americans with Disabilities Act or
>> American Dental Association or Application Development Advisor
>> magazine or ... see Google)
> 
> I thought Ada was case insensitive? ;)

Somebody, however, decided to conduct this newsgroup in English rather
than in Ada.  Even in Ada, however, there are some who request that
symbol names have consistent casing.  This is not because the compiler
might get confused, but because the humans will.

RE: MAC address with Win32 bindings.

[Beard, Frank Randolph CIV]

-----Original Message-----
From: Simon Wright [mailto:simon@pushface.org]

> People in this newsgroup tend to get agitated when the language is
> spelt ADA instead of Ada (ADA => Americans with Disabilities Act or
    ^
    |
What does wheat have to do with the spelling of Ada?  ;-)

I remember when this was considered the incorrect spelling of "spelled".
IIRC, this became accepted because it was misspelled for so long, like
some other words in American English.

Can I dare dream of the day when ADA becomes an accepted spelling of Ada
because it is so commonly misspelled on a large scale because of it's
widespread usage? ;-)  Of course, if they can't get the name of the 
language right, their code may be a little suspect as well.

And no, I'm not advocating spelling it incorrectly.  I don't like it
either.

Frank

Re: MAC address with Win32 bindings.

[Stephane Richard]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 866 bytes --]

What does wheat have to do with the spelling of Ada?  ;-)

I remember when this was considered the incorrect spelling of "spelled".
IIRC, this became accepted because it was misspelled for so long, like
some other words in American English.

Can I dare dream of the day when ADA becomes an accepted spelling of Ada
because it is so commonly misspelled on a large scale because of it's
widespread usage? ;-)  Of course, if they can't get the name of the
language right, their code may be a little suspect as well.

And no, I'm not advocating spelling it incorrectly.  I don't like it
either.

Frank

*** I just did a major change on my website (couple weeks back) to change
the spelling of Ada to be consistant throughout my website :-).

-- 
"To err is human.  To really screw up, you need C++!"

St�phane Richard
"Ada World" Webmaster
http://www.adaworld.com

Re: MAC address with Win32 bindings.

[Simon Wright]

"Beard, Frank Randolph CIV" <frank.beard@navy.mil> writes:

> -----Original Message-----
> From: Simon Wright [mailto:simon@pushface.org]
> 
> > People in this newsgroup tend to get agitated when the language is
> > spelt ADA instead of Ada (ADA => Americans with Disabilities Act or
>     ^
>     |
> What does wheat have to do with the spelling of Ada?  ;-)

It took me a while to understand this one!!

I do regret the decay of irregular forms in modern English (both sides
of the Atlantic) -- eg, 'shined' for 'shone'.

-- 
Simon Wright                               100% Ada, no bugs.

Re: MAC address with Win32 bindings.

[Preben Randhol]

On 2003-11-10, Beard, Frank Randolph CIV <frank.beard@navy.mil> wrote:
> I remember when this was considered the incorrect spelling of "spelled".
> IIRC, this became accepted because it was misspelled for so long, like
> some other words in American English.

Isn't: spelt correct? My oxford english dictionary says it is either
spelled or spelt. (Not talking about American English)

-- 
"Saving keystrokes is the job of the text editor, not the programming
 language."

Re: MAC address with Win32 bindings.

[JrZ]

Kilgallen@SpamCop.net (Larry Kilgallen) wrote in message 

> Since Windows NT does not run on Macintosh, probably what you want is a
> MAC address rather than a Mac address.  Like ADA only the other way around.

I'm bored of reading those bullsh**...
Why not simply answer ? 
Maybe you did not understood ...!?! ;)

Re: MAC address with Win32 bindings.

[Fionn mac Cuimhaill]

On Sun, 09 Nov 2003 13:48:22 +0000, chris <spamoff.danx@ntlworld.com>
wrote:

>Simon Wright wrote:
>> People in this newsgroup tend to get agitated when the language is
>> spelt ADA instead of Ada (ADA => Americans with Disabilities Act or
>> American Dental Association or Application Development Advisor
>> magazine or ... see Google)
>
>I thought Ada was case insensitive? ;)
Ada *programmers* are case-sensitive, and tend to raise exceptions
when they see "ADA".

Ada -vs- ADA (was: Re: MAC address with Win32 bindings.)

[Steve]

"Fionn mac Cuimhaill" <invisible@hiding.from.spam> wrote in message
news:sjadrv89c8v7d5ut0onj1qajdmff323jpi@4ax.com...
[snip]
> Ada *programmers* are case-sensitive, and tend to raise exceptions
> when they see "ADA".

GET OVER IT!

It's hard enough to get people to spell Ada at all.  Let's not complain
about upper versus lower versus mixed case.

If you answer a question in a post (the majority of responses to this post
did not), you might include a comment Ada -vs- ADA.  If the only response
you have is Ada -vs- ADA, please don't respond.

Let's try to make the newsgroup a little more inviting.  Maybe that will
help to make the language a little more inviting.

Steve
(The Duck)

Re: Ada -vs- ADA (was: Re: MAC address with Win32 bindings.)

[Marius Amado Alves]

On Sun, 2003-11-16 at 03:07, Steve wrote:
> Let's try to make the newsgroup a little more inviting.  Maybe that will
> help to make the language a little more inviting.

Everyone's invited. But the language bar shouldn't be set as low as to
let "ADA" or "MAC" pass uncommented. Rigour is a big plus of this group
and of Ada. Personally I try to say something more than just "it's not
ADA, it's Ada" or some such. But I find just saying that perfectly
justifiable, because it is very likely that someone making the "ADA"
kind of mistake is not prepared to make any technical questions
either--let alone understand the answers.

I really wonder what makes someone write "ADA" instead of "Ada" most of
the times here. The only possible explanation is that (s)he has not
looked at *any* Ada document yet, no? So, if (s)he's making a technical
question, what on Earth can (s)he be expecting?

Re: Ada -vs- ADA (was: Re: MAC address with Win32 bindings.)

[Chad R. Meiners]

"Marius Amado Alves" <amado.alves@netcabo.pt> wrote in message
news:mailman.10.1068985595.3110.comp.lang.ada@ada-france.org...
> I really wonder what makes someone write "ADA" instead of "Ada" most of
> the times here. The only possible explanation is that (s)he has not
> looked at *any* Ada document yet, no? So, if (s)he's making a technical
> question, what on Earth can (s)he be expecting?

Perhaps the names they see the most are BASIC, C, C++, COBOL, and LISP. ;-)