Help for this page

Select Code to Download


  1. or download this
      eval 
    {
...
    };
   if($@){ $err = 1; $ret = "timeout while accessing wmi on machine $h
+ost"; return($err, $ret); }
    else { }  # didn't
  2. or download this
    
    $col = undef;
...
      else { }  # didn't
    if($ok == 0) { $err = 1; $ret = clean(Win32::OLE->LastError); retu
+rn($err, $ret); }
  3. or download this
    

...
      if($debug == 1) { print "\tOBJ: \"$obj\" L: \"" . __LINE__ . "\"
+\n"; }

      }
  4. or download this
      my %colhash = % { $col };
  if($debug == 1) { print "DUMP COLHASH: \"" . Dumper(%colhash) . "\" 
+L: \"" . __LINE__ . "\"\n"; }