Visual Basic

<br />
Imports Microsoft.VisualBasic<br />
Imports System<br />
Imports System.Drawing<br />
Imports System.Collections<br />
Imports System.ComponentModel<br />
Imports System.Windows.Forms<br />
Imports System.Data<br />
Imports System.Net<br />
Imports System.DirectoryServices<br />
Imports System.Runtime.InteropServices<br />

<br />
private void ButDisplay_Click(object sender, System.EventArgs e)<br />
		{<br />
			try<br />
			{<br />
<br />
				this.Status.Text = "Collecting Information...";<br />
<br />
				if(this.TxtWorkGroup.Text.Trim() == "")<br />
				{<br />
					MessageBox.Show("The Work Group name Should Not be Empty");<br />
					return;<br />
				}<br />
			<br />
					<br />
				// Use Your work Group WinNT://&&&&(Work Group Name)<br />
				DirectoryEntry DomainEntry = new DirectoryEntry("WinNT://" + this.TxtWorkGroup.Text.Trim());<br />
				DomainEntry.Children.SchemaFilter.Add("computer");<br />
			<br />
<br />
				// To Get all the System names And Display with the Ip Address<br />
				foreach(DirectoryEntry machine in DomainEntry.Children)<br />
				{<br />
					string[] Ipaddr = new string[3];<br />
					Ipaddr[0] = machine.Name;<br />
<br />
					System.Net.IPHostEntry Tempaddr = null;<br />
<br />
					try<br />
					{<br />
                        Tempaddr = (System.Net.IPHostEntry)Dns.GetHostByName(machine.Name);<br />
					}<br />
					catch(Exception ex)<br />
					{<br />
						MessageBox.Show("Unable to connect woth the system :" + machine.Name );<br />
						continue;<br />
					}<br />
					System.Net.IPAddress[] TempAd = Tempaddr.AddressList;<br />
					foreach(IPAddress TempA in TempAd)<br />
					{<br />
						Ipaddr[1] = TempA.ToString();<br />
<br />
						byte[] ab = new byte[6];<br />
						int len = ab.Length;<br />
<br />
						// This Function Used to Get The Physical Address<br />
						int r = SendARP( (int) TempA.Address, 0, ab, ref len );<br />
						string mac = BitConverter.ToString( ab, 0, 6 );<br />
<br />
						Ipaddr[2] = mac;<br />
					}			<br />
<br />
					System.Windows.Forms.ListViewItem TempItem = new ListViewItem(Ipaddr);<br />
<br />
					this.ListHostIP.Items.Add(TempItem);<br />
				}<br />
<br />
				this.Status.Text = "Displayed";<br />
			}<br />
			catch(Exception ex)<br />
			{<br />
				MessageBox.Show(ex.Message,"Error",System.Windows.Forms.MessageBoxButtons.OK  );<br />
				Application.Exit();<br />
			}<br />
		<br />
		}<br />

<br />
Private Sub ButDisplay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButDisplay.Click<br />
			Try<br />
<br />
				Me.Status.Text = "Collecting Information..."<br />
<br />
				If Me.TxtWorkGroup.Text.Trim() = "" Then<br />
					MessageBox.Show("The Work Group name Should Not be Empty")<br />
					Return<br />
				End If<br />
<br />
<br />
				' Use Your work Group WinNT://&&&&(Work Group Name)<br />
				Dim DomainEntry As DirectoryEntry = New DirectoryEntry("WinNT://" & Me.TxtWorkGroup.Text.Trim())<br />
				DomainEntry.Children.SchemaFilter.Add("computer")<br />
<br />
<br />
				' To Get all the System names And Display with the Ip Address<br />
				For Each machine As DirectoryEntry In DomainEntry.Children<br />
'INSTANT VB NOTE: The local variable Ipaddr was renamed since Visual Basic will not uniquely identify class members when local variables have the same name:<br />
					Dim Ipaddr_Renamed As String() = New String(2){}<br />
					Ipaddr_Renamed(0) = machine.Name<br />
<br />
					Dim Tempaddr As System.Net.IPHostEntry = Nothing<br />
<br />
					Try<br />
                        Tempaddr = CType(Dns.GetHostEntry(machine.Name), System.Net.IPHostEntry)<br />
					Catch ex As Exception<br />
						MessageBox.Show("Unable to connect woth the system :" & machine.Name)<br />
						Continue For<br />
					End Try<br />
					Dim TempAd As System.Net.IPAddress() = Tempaddr.AddressList<br />
					For Each TempA As IPAddress In TempAd<br />
						Ipaddr_Renamed(1) = TempA.ToString()<br />
<br />
						Dim ab As Byte() = New Byte(5){}<br />
						Dim len As Integer = ab.Length<br />
<br />
						' This Function Used to Get The Physical Address<br />
                        Dim r As Integer = SendARP(CInt(TempA.Address), 0, ab, len)<br />
						Dim mac As String = BitConverter.ToString(ab, 0, 6)<br />
<br />
						Ipaddr_Renamed(2) = mac<br />
					Next TempA<br />
<br />
					Dim TempItem As System.Windows.Forms.ListViewItem = New ListViewItem(Ipaddr_Renamed)<br />
<br />
					Me.ListHostIP.Items.Add(TempItem)<br />
				Next machine<br />
<br />
				Me.Status.Text = "Displayed"<br />
			Catch ex As Exception<br />
				MessageBox.Show(ex.Message,"Error",System.Windows.Forms.MessageBoxButtons.OK)<br />
				Application.Exit()<br />
			End Try<br />
<br />
		End Sub<br />