- 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

if (($Snapshots -eq "yes")  -or ($cdroms -eq "yes"))
    {
        $array0 = @()
        $array1 = @()
        $array2 = @()
        $array3 = @()
        start-sleep 1
        connect-VIServer $vcserver
        $array0 += Get-VM | get-snapshot | %{$_.VM.Name}
        $array1 += Get-VM | get-snapshot | select-object -expandproperty Name
        $array2 += Get-VM | get-snapshot | select-object -expandproperty Created
        $array3 =@(Get-VM | where { $_ | Get-CDdrive | where { $_.ConnectionState.Connected -eq "true" } } | Select-object -ExpandProperty Name)
        $i = 0
        $j = 0
        Do {
            $msg.Body += "<FONT COLOR=black>VMware HealthCheck vCenter2</FONT><BR><BR>"  + `
            "<B><FONT COLOR=black>Snapshots Active</FONT></B><BR>" + `
            "<B><FONT COLOR=black>VM Name</FONT></B>"+`
            "<B><FONT COLOR=black>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`
            Name</FONT></B>"+`
            "<B><FONT COLOR=black>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`
            Created</FONT></B><BR>"+`
            "<FONT COLOR=Red>"+$array0+"</FONT>"+`
            "<FONT COLOR=Red>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+$array1+"</FONT>"+`
            "<FONT COLOR=Red>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+$array2+"</FONT><BR><BR>"+`
            "<B><FONT COLOR=black>CDROMS Connected (Bad Habit)</FONT></B><BR>"+"<B><FONT COLOR=black>VM Name</FONT></B><BR>"+"<FONT COLOR=Red>"+$array3+"</FONT>"
            $i++
            $j++