Posted on January 4, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| 'Network - How to use Net send to send message from one system to another system in Windows Network.
Option Explicit
Public Sub SendMsg(ByVal strMsg As String, ByVal strMachineName As String)
'This function is used to send message to one system to another system.
'Requirement: Both system should have Messanger service up and running.
On Error GoTo SendMsg_Error
Shell "net send " & strMachineName & " " & strMsg
On Error GoTo 0
Exit Sub
SendMsg_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SendMsg of Form Form1"
End Sub |