Posted on July 15, 2011
1
2
3
4
5
6
7
8
9
10
11
12
13
| 'System & API - How to send message to the client system from server/client.
Public Sub fnSendMsg(ByVal strMsg As String, ByVal strMachineName As String)
On Error GoTo fnSendMsg_Error
Shell "net send " & strMachineName & " " & strMsg
On Error GoTo 0
Exit Sub
fnSendMsg_Error:
Err.Clear
Resume Next
End Sub |