NET SEND, EM VBA

2024 - VBA & Macros

Post Recente por EdsonBR 8 anos atrás

3 Posts

2 Usuários

0 Reactions

731 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Vcs lembram do NET SEND, comando que rodava na tela do DOS, para enviar uma mensagem pela rede da empresa para outra máquina ou usuário ou para todo mundo da rede?

Então, eu já vi que tiraram o SEND da lista de comandos do NET... Mas, me veio uma ideia... é possível fazer algo semelhante, mas com VBA ?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/11/2016 8:15 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia!!

Fernado, eu confesso que estou por fora, mas... talve sirva de inspiração.
Outra fonte: http://allapi.mentalis.org/apilist/NetM ... Send.shtml

Sub ExecuteNetSend()
 'Criado por: [b]Bob Phillips[/b]
Dim objShell As New WshShell
Dim objExec As WshExec
Dim strComputer As String
Dim strMessage As String
Dim ReadAll As String

strComputer = "ComputerNameHere"
strMessage = "Testing Net Send"


Set objExec = objShell.Exec("Net Send " & strComputer & " " & strMessage)

Do While Not objExec.StdOut.AtEndOfStream
    ReadAll = objExec.StdOut.ReadAll
Loop

MsgBox ReadAll, vbInformation, "Net Send Results"

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/11/2016 8:27 am