Message over NT

[amersanjak]

Hi,

How can I send message to a workstation on my NT network using VFP 8.0

thanks,
Amer

 

[darrellblackhawk]

Here's a quick and dirty.

Darrell

=SendNetMsg("MachineName","Hello")

procedure SendNetMsg
  lparam cWkStation, cMessage
  oWshShell = createobject("WScript.Shell")
  oWshShell.run("Net Send "+cWkStation+" "+cMessage,0,.f.)
endproc

 

[amersanjak]

Hi Darrell,

Thank you for your feedback, I run this code, It didn't work, is there is something I am missing?

Thank gain,
amer

 

[rgbean]

amer,
Did you change "MachineName" to the real user you were trying to send it to? Does the sending machine have WSH (Windows Script Host) installed and not restricted?

At a command prompt (in a 'DOS' Window), try just:

Net Send <MachineName> Hello

Rick

 

[DSummZZZ]

Here's something that may be of interest:

http://support.microsoft.com/kb/839018

This problem occurs when one of the following conditions is true:
• The source computer is running Microsoft Windows XP SP2.
• The destination computer is running Microsoft Windows XP SP2.
As a result, the destination computer does not receive the messages that are sent by the NET SEND command.

-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[darrellblackhawk]

Sounds like the above suggestions should get you going.

Darrell