como usar net send en VFP

mira este ejemplo (solo funciona en Windows NT,2K, XP y sup.)
Declare Long NetMessageBufferSend In "NetAPI32.Dll" String Server, ;
String ToName, String yFromName, String yMsg, Long lSize
Declare Long NetApiBufferFree In "NetAPI32.Dll" Long Buffer
=EnviarMsg('10.10.10.29','Administrador','Prueba de
Mensaje'+Chr(13)+Chr(9)+'Con Retorno!')

Function EnviarMsg
Lparameters Destino, Quien, Mensaje
Local cDest, cQuien, cMsg, nCiclo
NetApiBufferFree(0)
cDest = ""
cMsg = ""
cQuien = ""
For nCiclo = 1 To Len(Alltrim(Destino))
cDest= cDest +toByte(Substr(Destino,nCiclo,1))
Endfor
For nCiclo = 1 To Len(Mensaje)
cMsg= cMsg+toByte(Substr(Mensaje,nCiclo,1))
Endfor
For nCiclo = 1 To Len(Quien)
cQuien= cQuien+toByte(Substr(Quien,nCiclo,1))
Endfor
If Len(Alltrim(Quien))=0
cQuien = 0
Endif
cResult= NetMessageBufferSend(0, cDest+Chr(0),cQuien,cMsg+Chr(0),
(Len(cMsg)*2)+1)
Return cResult = 0
Endfunc

Function toByte
Lparameters cCar
nNum= Asc(cCar)
c1 = Chr(Int(nNum/256))
c0 = Chr(Mod(nNum,256))
Return c0+c1
Endfunc


En , escribió:

Alguien me puede decir como puedo mandar mensajes en una red windows
desde
vfp7 sin utilizar
el RUN y el comando NET SEND <Usuario> <Mensaje> de MSDOS

gracias

Jorge Mota
Microsoft Visual FoxPro MVP
Guatemala