none
Script para verificar se computador da rede está ligado, e informar RRS feed

  • Pergunta

  • Boa noite!!

    Amanhã, vou precisar criar um script para iniciar no logon do XP e do Seven, para quando o PC ligar, informar caso o computador do sistema e das câmeras esteja desligado (via ping - senão conseguir pingar para o ip dos computadores) para que o usuário possa informar o responsável para que o mesmo possa ligar o computador..

    Desde já agradeço a ajuda!!

    Abs.

    sexta-feira, 22 de junho de 2012 00:12

Respostas

  • Bom dia Erik,

    O script abaixo faz o seguinte, fica pingando para um servidor, caso o retorno de ping não voltar, será enviado um email para as pessoas que você cadastrou !

    Sua explicação no meu entender não ficou claro o que você realmente quer, mas acho que é isso!

    strComputer = "."
     nCont = 0
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     Do
     Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '155.155.100.3'")
     
        For Each objStatus in colPings
            If IsNull(objStatus.StatusCode) _
               or objStatus.StatusCode<>0 Then
            nCont = nCont + 1
            End If
            if nCont >= 3 Then
                EnviaMail
                nCont = 0
            End if
        Next
      'EXECUTAR A CADA 1 MINUTO
       wscript.sleep (18000)
     Loop
     
    
    Sub EnviaMail
     
    Set objEmail = CreateObject("CDO.Message")
     objEmail.From = "Email@email.com.br"
     objEmail.To = "Email@email.com.br"
     objEmail.Subject = "conexão com Problema - CAMERAS DESLIGADAS."
     objEmail.Textbody = "Rede Não está pingando. Horário =  "& Time &" e Data = "& date &""
     objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "155.155.100.7"  (IP DO SERVIDOR DO EXCHANGE)
     objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 (PORTA DO SMTP)
     objEmail.Configuration.Fields.Update
     objEmail.Send
    
    End sub


    Rafael S. AMARAL
    U. P. Mackenzie


    sexta-feira, 22 de junho de 2012 13:42

Todas as Respostas

  • Bom dia Erik,

    O script abaixo faz o seguinte, fica pingando para um servidor, caso o retorno de ping não voltar, será enviado um email para as pessoas que você cadastrou !

    Sua explicação no meu entender não ficou claro o que você realmente quer, mas acho que é isso!

    strComputer = "."
     nCont = 0
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     Do
     Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '155.155.100.3'")
     
        For Each objStatus in colPings
            If IsNull(objStatus.StatusCode) _
               or objStatus.StatusCode<>0 Then
            nCont = nCont + 1
            End If
            if nCont >= 3 Then
                EnviaMail
                nCont = 0
            End if
        Next
      'EXECUTAR A CADA 1 MINUTO
       wscript.sleep (18000)
     Loop
     
    
    Sub EnviaMail
     
    Set objEmail = CreateObject("CDO.Message")
     objEmail.From = "Email@email.com.br"
     objEmail.To = "Email@email.com.br"
     objEmail.Subject = "conexão com Problema - CAMERAS DESLIGADAS."
     objEmail.Textbody = "Rede Não está pingando. Horário =  "& Time &" e Data = "& date &""
     objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "155.155.100.7"  (IP DO SERVIDOR DO EXCHANGE)
     objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 (PORTA DO SMTP)
     objEmail.Configuration.Fields.Update
     objEmail.Send
    
    End sub


    Rafael S. AMARAL
    U. P. Mackenzie


    sexta-feira, 22 de junho de 2012 13:42
  • Erik,

    O script do Rafael faz até mais do que vc precisa.

    Se você não quiser que ele envie e-mail basta alterar a linha:

    EnviaEmail

    por

    Msgbox "Servidor Desligado"

    Assim será enviada uma mensagem para a tela do usuário que está logando.

    Outra coisa é que se você não quiser que ele monitore o tempo todo, ou seja, apenas verifique durante o logon do usuário então basta tirar as linhas Do e Loop


    Fábio de Paula Junior

    terça-feira, 26 de junho de 2012 20:49
    Moderador
  • Bom dia, pessoal.

    Estou precisando montar alguma forma de monitorar, de forma visual, quais os computadores da minha rede estão ligados e quais estão desligados.

    Isso pode ser feito de qualquer forma, seja em uma página, um painel, qualquer coisa desde que seja visual, tipo:

    [uma bolinha verde ou vermelha e o IP na frente.]

    Poderia distribuir em colunas, tipo: IP da faixa 0 | IP da faixa 1 | IP da faixa 2... até a faixa 6.

    Essa seria uma ideia, mas estou aberto à outras sugestões!

    A empresa em que eu trabalho possui 330 computadores e, com esse painel, ficaria bem legal para eu monitorar cada um deles quando estiverem desligados ou fora da rede.

    Alguém teria alguma ideia de como eu poderia fazer isso? (ou algo parecido?)

    Aguardo ansiosamente pelas opiniões de vocês.

    Desde já, agradeço a atenção e a ajuda de todos.

    Abrs, Mauro.
    quinta-feira, 27 de abril de 2017 10:27