none
script bat para mandar mensagens para outros pcs na rede? RRS feed

  • Pergunta

  • olha no meu trabalho existe muita queda de sistemas enfim, queria saber se alguem poderia me ajudar a criar um script.

    exemplo: caiu minha net ou sistema ta fora do ar, eu mandasse uma mensagem para todos avisando que a internet caiu e iremos arrumar já já.

    alguem poderia me ajudar?

    quinta-feira, 17 de fevereiro de 2011 21:48

Respostas

  • Boa Tarde,

    Segue em VBS
    Dim x
    Dim y
    
    set oShell = createobject("wscript.shell")
    
    x = InputBox("Enter User or IP","Net Send Messenger.. script by Cavingboy92")
    
    y = InputBox("Enter Messege","Net Send Messenger.. script by Cavingboy92")
    
    oshell.run "net send "& (x) &" "& (y) &"" 
    

    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    segunda-feira, 4 de junho de 2012 18:06
    Moderador
  • Luan,

    Você pode fazer uso do net send (nativo do windows) para enviar uma mensagem para a tela (msgBox) de todos os usuários da sua rede. Para isso o serviço mensageiro tem que estar inicializado em todas as máquinas.

    Net send * /domain:nomedodominio "texto da mensagem"

    nesse explo você enviaria para todos os computadores (*) do dominio (que estejam na mesma LAN) a mensagem Texto da mensagem.

    Certifique-se, antes de executar de que os usuarios da sua empresa desejam receber esse tipo de mensagem na tela, principalmente os gerentes e usuários com hierarquias maiores...

     

    Se lhe foi útil, vote e marque como resposta!

     


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT
    domingo, 27 de março de 2011 05:00

Todas as Respostas

  • Luan,

    Você pode fazer uso do net send (nativo do windows) para enviar uma mensagem para a tela (msgBox) de todos os usuários da sua rede. Para isso o serviço mensageiro tem que estar inicializado em todas as máquinas.

    Net send * /domain:nomedodominio "texto da mensagem"

    nesse explo você enviaria para todos os computadores (*) do dominio (que estejam na mesma LAN) a mensagem Texto da mensagem.

    Certifique-se, antes de executar de que os usuarios da sua empresa desejam receber esse tipo de mensagem na tela, principalmente os gerentes e usuários com hierarquias maiores...

     

    Se lhe foi útil, vote e marque como resposta!

     


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT
    domingo, 27 de março de 2011 05:00
  • Boa Tarde,

    Segue em VBS
    Dim x
    Dim y
    
    set oShell = createobject("wscript.shell")
    
    x = InputBox("Enter User or IP","Net Send Messenger.. script by Cavingboy92")
    
    y = InputBox("Enter Messege","Net Send Messenger.. script by Cavingboy92")
    
    oshell.run "net send "& (x) &" "& (y) &"" 
    

    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    segunda-feira, 4 de junho de 2012 18:06
    Moderador
  • Este Script é para Windows 7, para Windows 8 e 10, troque o comando "net send" para "msg", ficaria assim:

    Dim x
    Dim y
    
    set oShell = createobject("wscript.shell")
    
    x = InputBox("Enter User or IP","Net Send Messenger.. script by Cavingboy92")
    
    y = InputBox("Enter Messege","Net Send Messenger.. script by Cavingboy92")
    
    oshell.run "msg "& (x) &" "& (y) &"" 

    Copie este conteúdo e cole em um novo arquivo de texto e salve como extensão .vbs, depois é só executar.

    Abraços

    terça-feira, 26 de julho de 2016 12:55