You need to use the swbemlocator like so:
[CODE=Perl]$locator = Win32::OLE->CreateObject(" WbemScripting.S WbemLocator");
$WMI = $locator->ConnectServe r( $computer, "root/cimv2", $user, $pass);[/CODE]
seltzerb
Last Activity: Mar 14 '08, 07:28 PM
Joined: Mar 14 '08
Location:
-
seltzerb replied to is there a perl mechanism to ping a network element before issuing SNMP commands?in PerlHow about:
[CODE=Perl]use Net::Ping;
$host="myServer ";
$p = Net::Ping->new();
if($p->ping($host)) {
print "$host is alive.\n";
}else{
print "$host is down.\n";
}
$p->close();[/CODE]...Leave a comment:
No activity results to display
Leave a comment: