This is how it goes:
#! /opt/CSCOpx/bin/perl -w
use CRM;
print "Enter the first octet of ip address ";
my $fo = ;
chomp($fo);
if ( ($fo < 0) || ( $fo > 255) ) {
printf "Out of range value for first octet \n";
exit;
}
print "Enter the second octet of ip address ";
my $so = ;
chomp($so);
if ( ($so < 0) || ( $so > 255) ) {
printf "Out of range value for second octet \n";
exit;
}
print "Enter the begining third octet ";
my $b3o = ;
chomp($b3o);
if ( ($b3o < 0) || ( $b3o > 255) ) {
printf "Out of range value for beginning of third octet \n";
exit;
}
print "Enter the ending third octet ";
my $e3o = ;
chomp($e3o);
if ( ($e3o < 0) || ( $e3o > 255) ) {
printf "Out of range value for end of third octet \n";
exit;
}
if ( $b3o > $e3o) {
print "Invalid range for third octet ";
exit;
}
print "Enter the begining fourth octet ";
$b4o = ;
chomp($b4o);
print "Enter the ending fourth octet ";
$e4o = ;
chomp($e4o);
if ( $b4o > $e4o) {
print "Wrong second octet ";
exit;
}
for ($i=$b3o; $i <= $e3o; $i++) {
for ($j=$b4o; $j <= $e4o; $j++) {
my $ipaddress=$fo . "." . $so . "." . $i . "." . $j;
my $command=$ENV{NMSROOT} . '\objects\smarts\bin\dmctl -s DFM invoke IP::IP-' . $ipaddress . " setManagedState
UNMANAGED";
printf " command is $command \n";
system $command;
}
}
OPT directory in the very begining makes me doubtful. Can you confirm if a change to "#! c:/program files/" instead of OPT will suffice the purpose???
