[Mathieu]

Hi,

I've been trying to get the IPs (or computer names) of the computers in the same network as the computer running the program.

I got as far as getting all the IPs of the servers in the network wich ended up in a dead end since its all the computers that i need and not the servers only.

My goal is to get acces to files on all the other computers, i guess a shared folder would do the work and just access it as a regular folder, but for that i need the computer name (wich i can get through his IP)


Basicly, I need to find the ips of all computers in the same network wich is not what i get right now...

		   Dim localIP() As System.Net.IPAddress = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName)
			Dim strLocalIP As String = localIP(0).ToString
			Dim DomainHostEntry As System.Net.IPHostEntry
			DomainHostEntry = System.Net.Dns.GetHostEntry("workgroup")

			DomainAdressList = DomainHostEntry.AddressList

Thanks for the Help

- Mathieu

This post has been edited by Mathieu: 28 February 2007 - 12:35 PM

[whisla13]

Try obtaining the standard output from executing "net view". This will give you all discovered computer names (in the same workgroup) on the network.

A more advanced way would be to calculate the IP address ranges of the network based on the computer's subnet mask and IP. For example, if the computer's subnet mask is 255.255.255.0, and the computer's IP is 192.168.1.52, you can calculate from the subnet mask that valid IP address ranges on this network is 192.168.1.1 to 192.168.1.254, therefore giving you 254 addresses you can send an ICMP ECHO packet to (ping), and if you get a response packet back, then you have discovered a computer on the network. If using Framework 2.0, you can use My.Computer.Network.Ping.

- Andrew

[matoksoz]

here is my c# code

Process netsend = new Process();
netsend.StartInfo.FileName = "net.exe";
netsend.StartInfo.CreateNoWindow = true;
netsend.StartInfo.Arguments = "view";
netsend.StartInfo.RedirectStandardOutput = true;
netsend.StartInfo.UseShellExecute = false;
netsend.StartInfo.RedirectStandardError = true;
netsend.Start();


StreamReader sr = new StreamReader(netsend.StandardOutput.BaseStream, netsend.StandardOutput.CurrentEncoding);

string sss = "";
while ((sss = sr.ReadLine()) != null)
{
if (sss.StartsWith("\\"))
comboBox1.Items.Add(sss.Substring(2).Substring(0, sss.Substring(2).IndexOf(" ")).ToUpper();
}

sr.Close();
netsend.WaitForExit(1000);

string dom = Dns.GetHostName().ToUpper();
dom = dom + "\\SQLEXPRESS";
if (!comboBox1.Items.Contains(dom))
comboBox1.Items.Add(dom);

I hope this helps you
Mehmet Altan Toksöz

[PsychoCoder]

You can use this function as well.
Make sure to have this at the top of your class

Imports System.Net

Public Shared Function GetAllIP(Optional ByVal args As String() = Nothing) As Integer

		Dim strHostName As New String("")
		If args.Length = 0 Then
			' Getting Ip address of local machine...
			' First get the host name of local machine.
			strHostName = DNS.GetHostName()
			Console.WriteLine("Local Machine's Host Name: " + strHostName)
		Else
			strHostName = args(0)
		End If

		' Then using host name, get the IP address list..
		Dim ipEntry As IPHostEntry = DNS.GetHostByName(strHostName)
		Dim addr As IPAddress() = ipEntry.AddressList

		Dim i As Integer = 0
		While i < addr.Length
			Console.WriteLine("IP Address {0}: {1} ", i, addr(i).ToString())
			System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
		End While
		Return 0
	End Function

The args parameter is optional, if you pass it nothing it will retrieve the host name of the comp-uter you're on, then loop and get all IP's for that hostname. You must have a reference to System.Net.DLL in your reference list to make this work.

[motcom]

A 3 year old post gets resurrected by "Hi"...

[dbasnett]

Why?

[austincr48]

PsychoCoder, on 26 July 2007 - 07:24 AM, said:

You can use this function as well.
Make sure to have this at the top of your class

Imports System.Net

Public Shared Function GetAllIP(Optional ByVal args As String() = Nothing) As Integer

		Dim strHostName As New String("")
		If args.Length = 0 Then
			' Getting Ip address of local machine...
			' First get the host name of local machine.
			strHostName = DNS.GetHostName()
			Console.WriteLine("Local Machine's Host Name: " + strHostName)
		Else
			strHostName = args(0)
		End If

		' Then using host name, get the IP address list..
		Dim ipEntry As IPHostEntry = DNS.GetHostByName(strHostName)
		Dim addr As IPAddress() = ipEntry.AddressList

		Dim i As Integer = 0
		While i < addr.Length
			Console.WriteLine("IP Address {0}: {1} ", i, addr(i).ToString())
			System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
		End While
		Return 0
	End Function

The args parameter is optional, if you pass it nothing it will retrieve the host name of the comp-uter you're on, then loop and get all IP's for that hostname. You must have a reference to System.Net.DLL in your reference list to make this work.

I know that this thread is old but I ran into a problem with the 'solution'. I have a variety of different IP addresses on one machine and for some reason. I am returning all of the IP addresses that the computer has. Is there a method that this actually would work with?

[austincr48]

This is the result, also grabbing the ip's hostname at the same time. It seems like if I could narrow it down to a single interface I would be able to get the desired result. Is there a way to select the interface?