Select Code to Download

$val = Win32::OLE::Enum->All($col) or $ok = 0;

    eval 
      {
...
      };
     if($@) { $ret = $@; print "ERR: \"$ret\"\n";
              $err = 1; $ret = "timeout while QUERY: \"$query\" wmi on
+ machine $host"; return($err, $ret); }