use strict;
use Win32::OLE;
use Data::Dumper;

my $strServ = "10.x.x.x";
my $wmipath  = "root\\Citrix\\WanScaler";
my $strUsrN     = "Administrator";
my $strPasswd      = "******";


my $objWMILocator;
unless( Win32::OLE::CreateObject( "WbemScripting.SWbemLocator", $objWMILocator ))
{
    print("Cannot create objWMILocator ($!)\n");
    exit;
}

# TBD - FIX THIS
# objWMILocator.Security_.AuthenticationLevel = 6

my $objWMIService;
$objWMIService = $objWMILocator->ConnectServer($strServ,$wmipath,$strUsrN,$strPasswd)
	 or die "Can't access WMI on remote machine $strServ\n";

my $colItems = $objWMIService->ExecQuery( "Select * From Citrix_WS_SystemConfig" )
		or die "ExecQuery failed";


foreach my $objItem ( in $colItems ) {
    #code yet to be written 
}	 

print "\nfinished\n";