Visual Basic

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

<br />
imports system.net<br />
<br />
 <DllImport("iphlpapi.dll")> _<br />
    Private Shared Function SendARP(ByVal DestIP As UInteger, ByVal SrcIP As UInteger, <Out()> ByVal pMacAddr() As Byte, ByRef PhyAddrLen As Integer) As UInteger<br />
    End Function

 Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click<br />
<br />
        Try<br />
            Dim addr As IPAddress = IPAddress.Parse(TextBox5.Text)<br />
            Dim mac(6) As Byte<br />
            Dim len As Integer = mac.Length<br />
            SendARP(CType(addr.Address, UInteger), 0, mac, len)<br />
<br />
            Dim macAddress As String = BitConverter.ToString(mac, 0, len)<br />
            If macAddress = "" Then<br />
                MsgBox("Cannot Resolve MAC from The Given IP Address")<br />
                Return<br />
            End If<br />
            TextBox6.Text = macAddress<br />
<br />
        Catch ex As System.FormatException<br />
            MsgBox("Enter an Valid IP Address..." + ex, MsgBoxStyle.Critical)<br />
        Catch ex As System.ArithmeticException<br />
            MsgBox("Cannot extract MAC address " + ex, MsgBoxStyle.Critical)<br />
<br />
        End Try<br />
<br />
    End Sub

Dim oNet As Object
Dim arrDrives() As String

Try
    oNet = CreateObject("Wscript.Network")

    '
    ' GetLogicalDrives returns an array with each entry
    ' being of the form "X:\" where X is the drive letter.
    '
    arrDrives = System.Environment.GetLogicalDrives

    '
    ' Detect if it is already mapped.
    '
    If arrDrives.IndexOf(arrDrives, sDriveLetter.ToUpper & "\") >= arrDrives.GetLowerBound(0) Then
        '
        ' optionally remove the drive
        '
        'oNet.RemoveNetworkDrive(sDriveLetter)
    End If

    '
    ' Map it.
    '
    Dim s As String = ""

    s = oNet.MapNetworkDrive(sDriveLetter, sUNCPath)

    '
    ' Report any errors by throwing an exception.
    '
    If s <> "" Then
        Dim ex As New IOException("Unable to map the " & sDriveLetter & " drive.  " & s & " - " & Err.Description)
        Throw ex
    End If

Catch ex As Exception

End Try