Network scan application

See more:

VB

IP

network

Hi,
We have around 400 PC's in our network which is segregated by department wise. Each department has its own subnet for example : dept1 has the ip series 192.168.20.X and dept2 has 192.168.11.X.

My question is that how could i get the ipaddress, hostname and mac address with a VB .net application and store it in the database.

Hope i am clear enough.

Thank you.

What I have tried:

I have tried using:

<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

But it take around an hour to scan whole network and it does not get all the machine in the network.

And also i could not figure out how to get mac address.