- Uncategorised posts -

I've tried to fix this but i can't see the problem.

All i get is that the Class is not valid.

Any ideas of what i'm i doing wrong?.

Thanks so much!!

Regards.
Francisco.

# Receive Location Test

use strict;
use Win32::OLE qw(in with);

use constant EOL => "\r\n";
use constant false => 0;
use constant true => 1;
use constant TEST_CODE =>0;

use constant wbemFlagReturnImmediately =>  0x10;
use constant wbemFlagForwardOnly =>  0x20;

###############################################################################
# Collect all the system parameters
###############################################################################

# !*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!
# Set / replace the following specfic variables for your specific WMI collection
my $root = "root\\MicrosoftBizTalkServer";
my @variables = ("Name", "ReceivePortName","IsDisabled");
my $sqlQuery = "select ".join(",",@variables)." from MSBTS_ReceiveLocation";
my ($strUser, $strPasswd, $strDomain);
my $res2Site; 
my $device_ip = "127.0.0.1"; 

if (!TEST_CODE) {
    my ($model_name,$version_name,$vendor_name,$pl_name,$device_sn,$device_name);
    get_device_info($device_ip,$model_name,$version_name,$vendor_name,$pl_name,$device_sn,$device_name);
}

if (TEST_CODE) {
    $strUser = "administrator";
    $strPasswd = "painter";
    $strDomain = "";
} else {
    my %protocol_settings = get_protocol_settings('WMI');
    $strUser = $protocol_settings{"Username"};
    $strPasswd = $protocol_settings{"Password"};
    $strDomain = $protocol_settings{"Domain"};
}

my $objWMILocator = Win32::OLE->CreateObject("WbemScripting.SWbemLocator");
my $objWMIService = "";

if ($device_ip eq "127.0.0.1") {
    $objWMIService = Win32::OLE-> GetObject("winmgmts:\\\\$device_ip\\$root");
} else {
    $objWMIService = $objWMILocator->ConnectServer($device_ip, $root, $strDomain."\\".$strUser, $strPasswd);
}

if (not $objWMIService) { # for the local machine you may use ($objWMIService = Win32::OLE-> GetObject("winmgmts:\\\\$device_ip\\root\\MicrosoftBizTalkServer")) 
	print "WMI Moniker ERROR:".Win32::OLE->LastError.EOL;
	$res2Site .= "ERROR: Remote machine unreachable".EOL;
	print "$res2Site" if TEST_CODE;
	wmi_set_result($res2Site) unless TEST_CODE;
	exit 0;
}

my $ret = exec_query($sqlQuery); 

print $res2Site if TEST_CODE;
wmi_set_result($res2Site) unless TEST_CODE;

################################# SubRoutines ##################################

sub exec_query {
    my $query = $_[0];
    my $colItems;
    $res2Site = "";
    if (not ($colItems = $objWMIService-> ExecQuery($query,"WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly)) ) 
    {
    	print "WMI ExecQuery ERROR:", Win32::OLE->LastError;
    }
    
    $res2Site .= "WMI query result:\n";
    $res2Site .= "==================================================\n";
    
    my $entryCounter = 0;
    
    foreach my $key (in $colItems) 
    {
      $entryCounter++;
      $res2Site .= "\[WMIClassInstance_$entryCounter\]\n";
    	foreach (@variables)
    	{
    	     my $val = ($key->{$_})/10;
          $res2Site .= "$_=$val\n";
      }
    }
    
    $res2Site .= "==================================================\n";
    $res2Site .= "Number of Instances: $entryCounter";
    
}

Currently i am using Netscaler VPX that does content switching, load balancing . request url re-direct all by itself but it is too costly like 60$/day.
All i am looking for an alternative for that, please do comment
every suggestion is welcome