my $loc = Win32::OLE->new("WbemScripting.SWbemLocator") 
	  + or die "err stms here";      
my $servCon = $loc->ConnectServer($server, "root/cimv2", $username, $password, "MS_409", "ntlmdomain:".$strDomain);