Howdy. I have written a script to ping a list of Computer Names and remove
any from that list that reply. My problem is </sarcasm on> a few years ago
someone brilliant </sarcasm off> decided to set the computer names to a
numeric string (e.g. 0070123) and we still have several of those in
existence. The problem is that when trying to do a ping, the value passed
is considered an IP if it begins with a number. Does anyone know of a way
to force a ping command to believe a numeric value is a computer name and
not an IP address?
More background info for those who are interested, but not meant to take up
your time. I am in a completely Windows environment. The script I have
written takes a list of targets from a text file whose values are separated
by \n. The list is sucked in and stored in an array, then each value is
pinged using the Net::Ping module setup as
my $tellit = Net::Ping->new('icmp',2)
and whenever a computer name/IP does not respond it is written to a new
array. The content of the new array then overwrites the contents of the
original file. The whole point of this is to see what machines have
actually been alive on the network over some period of time. I will be
setting this to run as a schedule under NT/2000. I am still very new to
Perl, and I am sure there would be an easy way to do this, but it seems to
work minus the problem above.
Thanks Much,
Chris LaPole
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
