Hallo,
ich möchte gerne in einem Netzwerk einen Rechner pingen, bekomme über den ping-Befehl jedoch leider immer eine Fehlermeldung. Es scheint so, als ob es mit icmp Probleme gibt. Bei den Rechnern handelt es sich ausschließlich um Windows Vista Rechner. Auf Windows-XP-Rechnern funktioniert der unten stehende Befehl einwandfrei! An was kann das liegen? Wäre super wenn mir jemand helfen könnte.
Hier ein Teilauschnitt des Codes:
if ($ret eq "OK"){
my $p=Net::ping->new("icmp");
my $ret=$p->ping($pc);
if (! $ret) {
print "Nicht ereichbar";
return "";
}else {
return $pc);
}
Bekomme folgende Fehlermeldung:
Tk::Error: icmp socket error - Unknown error at C:\perlscript.pl line 20 (da steht der ping-> new("icmp");-Befehl
Vielen Dank!!
Last edited: 2010-04-27 16:50:46 +0200 (CEST)