Mensagem Instantânea

[Marco Resende]

Olá pessoal, sou novo por aqui e gostaria que me ajudassem a resolver um probleminha:

Quero enviar uma mensagem automática para todos os pc´s da minha rede, abrindo uma janela de mensagem nos pc´s automaticamente e instantaneamente,

a rede é Novell e trabalham com Windows 98. Alguém pode me ajudar a fazer isso?

Muito obrigado...

Marco Resende

[Decio]

Se a sua rede aceitar o comando "Net send" , você pode tentar usar a função abaixo, passando como parametro o nome do computador e a mensagem:

Public Sub NetSend(ByVal User As String, ByVal Mensagem As String)
 On Error Resume Next
  Call Shell("NET SEND " & User & " " & Mensagem, vbHide)
End Sub

Se funcionar , faça uma pesquisa para saber qual o comando para enviar mensagens para todos computadores de uma só vez.

[Guest - Marco Resende -]

Decio muito obrigado, eu vou tentar utilizar a rotina que você me passou, depois retorno uma resposta de confirmação

Sds

Marco Resende