Scripts Ping

[leandrobls]

Tenho que monitorar uma rede, com 35 servidores, acontece gostaria de uma ajudinha na criação de um script para testa a disponibilidade de cada maquina atraves do ping, pois ainda estou fazendo esse serviço de 1 a 1.

obrigado.

[CoderSc]

Olá

Bom seu tópico está na área errada. Você domina alguma linguagem de programação ?

[leandrobls]

Gosto de programar usando visual basic, mais não domino totalmente, consigo me virar ..

[Marcelo Moraes]

Cara,

Os ambientes são Linux ?? Isso pode ser feito usando Shell Script, de uma olhada aqui nesse link : http://www.vivaolinux.com.br/topico/...cript-com-ping

Não vejo necessidade utilizar de uma linguagem de alto nível para isso se só quer verificar se as máquinas estão online

Abraços,
att,
Marcelo Moraes.

[CoderSc]

Se for no ambiente Linux mesmo você também pode dar uma olhada nesse exemplo ou
se for Windows também tem esse programa que pode fazer isso a você.

[acpguedes]

eu aconselho usar script Perl para isso, não pq eu amo perl mas é pq é uma otima linguagem para esse tipo de atividade, inclusive se tiver servidores em plataformas diferentes, como servidores linux e windows (e ate mac)...

os outros servidores funcionariam como clientes, o modulo INET é com p isso...

vc pode fazer em script shell mas não seria tão eficiente, ou ate mesmo e C mas n compensa devido a simplicidade do script...

mas diganos, quais SO's são os servidores, e qual SO esta na sua maquina...

[leandrobls]

Fiz esse codigo, que ele ele sá faz um ping de servidor por vez, gostaria de incrementar ele para inserir todos os servidores e me retorna a disponibilidade de cada um, alguem melhor de programação que eu, poderia me ajudar inserindo um array, com uma lista de todos.


Dim Shell, comando, Host, Retur
Host = "10.1.1.85"
Set Shell = wscript.createObject("wscript.shell")
comando= "ping -n 1 -w 300 " & Host
Return = Shell.Run(comando, 0, True)
If Return = 0 Then
wscript.echo Host & " OK "
Else
wscript.echo Host & " Não Respondeu"
End If

[leandrobls]

Alguem pode me ajudar com esse laço... Usando os IP alem desse 10.1.1.85 ... os outros 34 que tenho que pingar ...

Dim Shell, comando, Host, Retur
Host = "10.1.1.85"
Set Shell = wscript.createObject("wscript.shell")
comando= "ping -n 1 -w 300 " & Host
Return = Shell.Run(comando, 0, True)
If Return = 0 Then
wscript.echo Host & " OK "
Else
wscript.echo Host & " Não Respondeu"
End If

[acpguedes]

amigo, leia esses 2 sites

http://translate.google.com.br/trans...26prmd%3Dimvns

e

http://www.vivaolinux.com.br/script/ping-Aviso


vc vai aprender no primeiro montar um script para dar ping em varios host

mas vai precisar montar um lista....

eu vou ver se monto um melhor p vc...

[acpguedes]

em Perl seria mais ou menos assim....

use strict;
use warnings;
use Net::Ping;

my $ P = Net::Ping -> new ("syn");
my $ P -> port_number ( getservbyname ("http", "tcp"));
foreach my $ host (@ host_array) {
my $ P -> ping (my $ host);
}
while ((my $ host, my $ rtt, my $ ip) = $ p -> ack) {
print "HOST:. $ host [$ ip] ACKed em $ rtt segundos \ n";
}