Visual Basic

y_mmohd wrote:

the code moves to catch and run the error message.

Any Explanation about this please.

My: Blog | Photos

"Man who stand on hill with mouth open will wait long time for roast duck to drop in." -- Confucious

abhinish wrote:

ut the problem is that it only retrieves the MAC address of Windows Operating System Not any other OS like Linux Solorois. Some of our system are these only
it throghs an Arithmetic over Flow Exception.
can any one help me out in retreiving the other OS MAC address

Imports System.Net
 
Public Class IpHelpers
    Declare Auto Function SendARP Lib "iphlpapi" ( _
                        ByVal DestIp As UInteger, _
                        ByVal SrcIp As UInteger, _
                        ByVal MacBytes() As Byte, _
                        ByVal PhysAddrLength As Integer _
                        ) As Integer
 
    Public Shared Function GetMacAsStringFromIp(ByVal TargetIp As IPAddress) As String
        Dim rc As Integer
        Dim MacBytes(6) As Byte
        Dim Length As Integer = MacBytes.Length
 
        Try
            Dim Ip32 As UInteger = CType(TargetIp.Address, UInteger)
            rc = SendARP(Ip32, 0, MacBytes, Length)
        Catch ex As Exception
            ' This is usefull for catching any .NET Exceptions thrown because of coding problems.
            MsgBox(ex.Message)
        End Try
 
        If rc <> 0 Then
            ' SendARP will fail with error 31 if the Target IPAddress doesn't respond.
            ' This can happen if the IP really doesn't exist, isn't on the local subnet
            ' or if the conversion of the IPAddress to a number that SendARP expects
            ' isn't done properly.
            Throw New ArgumentException(String.Format("Win32 Error {0} returned by SendARP!", rc))
        End If
       
        Return String.Format("{0:X2}:{1:X2}:{2:X2}:{3:X2}:{4:X2}:{5:X2}", _
                        MacBytes(0), MacBytes(1), MacBytes(2), _
                        MacBytes(3), MacBytes(4), MacBytes(5))
    End Function
End Class