Приложение для сканирования сети

---

Привет,
У нас есть около 400 компьютеров в нашей сети,которая разделена по отделам. Каждый отдел имеет свою собственную подсеть, например: dept1 имеет ip-серию 192.168.20.X, а dept2-192.168.11.X.

Мой вопрос заключается в том, как я могу получить IP-адрес, имя хоста и mac-адрес с помощью приложения VB .net и сохранить его в базе данных.

Надеюсь, я достаточно ясно выразился.

Спасибо.

Что я уже пробовал:

Я пробовал использовать:

<pre>For i = 1 To 254
            Try
                hostname = ""
                ipaddr = "192.168.12." & i.ToString
                hostname = (System.Net.Dns.GetHostEntry("192.168.12." & i.ToString).HostName.ToString)
                timestamp = DateAndTime.Now.ToString
                If hostname <> "" Then
                    If con.State = ConnectionState.Closed Then
                        con.Open()
                    End If
                    sql = "insert into ipstats values(?,?,?)"
                    cmd = New SqlCeCommand(sql, con)
                    cmd.Parameters.AddWithValue("hostname", hostname)
                    cmd.Parameters.AddWithValue("ipddr", ipaddr)
                    cmd.Parameters.AddWithValue("timestamp", timestamp)
                    retvals = cmd.ExecuteNonQuery()
                End If
            Catch ex As Exception
            End Try
        Next

Но для сканирования всей сети требуется около часа, и он не получает всю машину в сети.

А также я не мог понять, как получить mac-адрес.

---