Visual Basic

<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