Click here to Skip to main content
Click here to Skip to main content

LAN Messenger

, 19 Aug 2004
Rate this:
Please Sign up or sign in to vote.
A tool for communicating with the computers across the network.

Sample Image - MyLanApp.jpg


This is a tool which is created using the Active Directory objects in VB.NET. Using this tool, we can communicate with the computers across the network.

Once the form is loaded, it will bring out all the computer names in a TreeView control. If you click on any computer name from the tree view, it will display the selected item in the right top textbox; it will show the computer name and also the IP address details below.

We have to type the message that we want to send, in the Message to Send box, and if you press the Send button, it will send the message to the selected computer.

In the same way, if we want to send messages to all the computers, if we press the Send to All button, it will send the message to all the computers; we also have a provision to ‘ping’ the selected node.

For sending messages to another computer, we have a ‘Net Send’ command; it is a DOS command. To run any executable program, we have a ‘Shell’ command.

Shell("net send " & txtcomputer.Text & " " & txtmessage.Text)

The above line is a part of the code which will send a message to a specified computer.

To Ping the another node, the following is the command:

Shell("PING " & TextBox1.Text)

In the ‘TextBox1’ we will have the IP address of the selected computer.

To get the IP Address of the computer using the tool, we have a generic function called “GetIPAddress”.

Function GetIPAddress(ByVal CompName As String) As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
    With System.Net.Dns.GetHostByName(CompName)
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
          End With
          GetIPAddress = sAddr
  Catch Excep As Exception
    MsgBox(Excep.Message, MsgBoxStyle.OKOnly, "Lan Messenger")
  End Try
End Function


Gets the DNS information for a specified DNS host name. Only we have to pass the ‘hostname’. Returns the host information for the address specified in hostName.


Provides an Internet Protocol (IP) address. The following is the code to list the computers in the network:

  Dim childEntry As DirectoryEntry
  Dim ParentEntry As New DirectoryEntry()
    ParentEntry.Path = "WinNT:"
    For Each childEntry In ParentEntry.Children
        Dim newNode As New TreeNode(childEntry.Name)
        Select Case childEntry.SchemaClassName
               Case "Domain"
               Dim ParentDomain As New TreeNode(childEntry.Name)
               TreeView1.Nodes.AddRange(New TreeNode() {ParentDomain})
               Dim SubChildEntry As DirectoryEntry
               Dim SubParentEntry As New DirectoryEntry()
               SubParentEntry.Path = "WinNT://" & childEntry.Name
               For Each SubChildEntry In SubParentEntry.Children
                   Dim newNode1 As New TreeNode(SubChildEntry.Name)
                   Select Case SubChildEntry.SchemaClassName
                          Case "Computer"
                   End Select
        End Select
    Catch Excep As Exception
          MsgBox("Error While Reading Directories")
         ParentEntry = Nothing
  End Try


The .NET Framework System.DirectoryServices namespace is a robust and flexible API for querying and manipulating objects in Microsoft's Active Directory.

Active Directory is Microsoft's network operating system (NOS) directory, built on top of Windows 2000 and Windows Server 2003. It enables administrators to manage enterprise-wide information efficiently from a central repository that can be globally distributed.

The two main classes within System.DirectoryServices are DirectoryEntry and DirectorySearcher. The DirectoryEntry class represents an object in the directory, and can be used to create new objects and manage existing ones.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Web Developer
Kuwait Kuwait
I am J. Franklin Kennedy, Working as a programmer in application software developement.

Comments and Discussions

QuestionGreat Start Pinmemberfuqueue8418-Jul-12 6:04,c# PinmemberNaniCh8-Jul-12 23:58 
QuestionSending a message PinmemberKwaku Boateng2-Jun-12 14:37 
GeneralMy vote of 5 PinmemberMuhammad Wilayat Shah21-Mar-12 10:35 
Question[My vote of 2] not great PinmemberCIDev17-Feb-12 3:27 
Questionhelp regarding the file transfer PinmemberMenon Santosh13-Feb-12 19:41 
GeneralMy vote of 5 PinmemberMojtaba Rezaeian3-Dec-11 16:04 
Questionat kennedsy_franklin PinmemberMonib zia9-Oct-11 4:16 
QuestionWhere can i do the editing of this software from?? Pinmemberdiasroyal8-Jul-11 6:20 
GeneralMy vote of 4 Pinmemberdiasroyal8-Jul-11 5:01 
QuestionNot working Pinmemberpankaj11256-Jul-11 23:28 
GeneralMy vote of 1 PinmemberArpan Kar25-Apr-11 0:06 
Questionmessage is not being sent PinmemberRAHUL238530-Dec-10 23:46 
Hi this si rahul here i am facing a problem in sending a message to all pcs/a single pc...
on my windows 7 how can i send the message.
if u have any idea then can u plz tell me at my email address.

Rahul Kapoor
Software Engineer
Geovas technologies

Thanks for making Good Software.
AnswerRe: message is not being sent Pinmemberelpaez25-Nov-11 9:49 
Generalmessenger PinmemberRamani Nidhi18-Apr-09 20:54 
GeneralRe: messenger PinmemberIshanLakhia26-Apr-09 22:48 
GeneralRe: messenger Pinmemberdiasroyal8-Jul-11 5:13 
Generalhelp me to operate a lan messenger Pinmembervahid1460712-Nov-08 21:44 
Generallan messenger Pinmemberynaungsoe10-Oct-08 5:03 
Generalthanx...... PinmemberFares Amr23-Jul-08 21:09 
Generalfor create lan messanger Pinmembermansuri sahil11-Jul-08 7:12 
GeneralChat Application PinmemberUrsrathi8-Jul-08 3:54 
GeneralRe: Chat Application Pinmemberdiasroyal8-Jul-11 5:18 
QuestionThanx Sir Pinmemberrajesh.vbnet2-May-08 20:56 
QuestionNice program...But ..... Pinmemberscotty8919-Sep-07 16:57 
GeneralVista Pinmemberlukebateson15-Aug-07 12:01 
GeneralRe: Vista PinmemberVF14-Oct-07 3:03 
GeneralReadme Pinmembertoon402820-May-07 23:52 
GeneralHello Sir, Pinmemberpraveen_b18-May-07 19:50 
GeneralNot shows the list of computers PinmemberRajkumar S. Rajput2-May-07 2:18 
QuestionHow to receive message? Pinmembertestmail_12322-Feb-07 20:39 
AnswerRe: How to receive message? Pinmembervsuguna10-Oct-09 3:29 
GeneralDue to XP service pk2 this kind of messenger services has been disabled [modified] Pinmembergodsemporer13-Aug-06 14:52 
Generalthank you Pinmemberjimbo_azim12-Jun-06 19:45 
GeneralRe: thank you Pinmemberdiasroyal8-Jul-11 5:35 
Generalthank you any way Pinmemberosamahamed12326-Feb-06 0:56 
GeneralShutup PinmemberMike K. Clark26-Jan-06 16:13 
Generalnice appn but getting problem with net send 22:06 
GeneralIf you've nothing contructive to say, move on PinmemberLike2Byte19-Jul-05 9:18 
General[Message Deleted] PinsussPERREO PAPI PERREO9-Jul-05 14:03 
GeneralRe: it suks PinmemberColin Angus Mackay9-Jul-05 14:26 
GeneralRe: it suks Pinmembergreg.boudreau16-Jul-07 5:22 
Generalnice program PinmemberKlaasjanMors14-Apr-05 12:08 
GeneralIt doesn't work PinmemberVinay K. Ladwal6-Jan-05 22:48 
Generalplcation.Doesn't work PinmemberVinay K. Ladwal6-Jan-05 22:46 
QuestionHow do i..... Pinmembernalixx@hotmail.com12-Sep-04 21:49 
AnswerRe: How do i..... Pinmemberdiasroyal8-Jul-11 6:30 
GeneralTHIS IS COMPLETE GARBAGE PinsussAnonymous20-Aug-04 11:49 
GeneralRe: THIS IS COMPLETE GARBAGE PinsussFranklin Kennedy21-Aug-04 9:35 
GeneralRe: THIS IS COMPLETE GARBAGE Pinmemberm a y s a m23-Aug-04 21:19 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.150414.1 | Last Updated 20 Aug 2004
Article Copyright 2004 by kennedy_franklin
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid