Visual Basic

<a href="http://www.codeproject.com/KB/vb/Excel_Connectivity.aspx">http://www.codeproject.com/KB/vb/Excel_Connectivity.aspx</a>[<a href="http://www.codeproject.com/KB/vb/Excel_Connectivity.aspx" target="_blank" title="New Window">^</a>]

Public Function GetDomain() As String
Dim WGroup As String = ""
Dim query As New SelectQuery("Win32_ComputerSystem")
Dim searcher As New ManagementObjectSearcher(query)
For Each mo As ManagementObject In searcher.Get()
WGroup = mo("Domain")
'MsgBox(WGroup)
Next
Return WGroup
End Function
'---------------------------------------------------



'---------------------------------------------------
'Method for Finding IP Address of and node no which are Active in LAN

Public Sub ListComputers(ByVal TView As TreeView, ByVal WorkGroup As String)
Try
TView.Nodes.Clear()
Dim AllComp As New TreeNode
AllComp.Text = Form1.groupname
AllComp.ImageIndex = 1
AllComp.SelectedImageIndex = 1
TView.Nodes.Add(AllComp)

If WorkGroup.Trim() = "" Then
MessageBox.Show("Please provide a Domain Name.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

Dim DomainEntry As New DirectoryEntry("WinNT://" & WorkGroup.Trim())
DomainEntry.Children.SchemaFilter.Add("computer")
For Each Machine As DirectoryEntry In DomainEntry.Children
Dim CompNode As New TreeNode(), CompInfo(1) As String
CompInfo(0) = Machine.Name
Dim Tempaddr As System.Net.IPHostEntry = Nothing
Try
Tempaddr = DirectCast(Dns.GetHostByName(Machine.Name), System.Net.IPHostEntry)
Dim TempAd As System.Net.IPAddress() = Tempaddr.AddressList, str As String = ""
For Each TempA As IPAddress In TempAd
CompInfo(1) = TempA.ToString()
Form1.ListBox1.Items.Add(TempA)
Next

Catch ex As Exception
CompInfo(1) = ""
End Try
CompNode.Text = CompInfo(0)
CompNode.ToolTipText = CompInfo(1)
CompNode.ImageIndex = 0
CompNode.SelectedImageIndex = 0
AllComp.Nodes.Add(CompNode)

Next
TView.ExpandAll()
Catch ex As Exception

End Try


End Sub