sub GetContent{
my($lstrURL)=@_;
$testURL=Variant(VT_BSTR,$lstrURL);
my $lobjXML=Win32::OLE->new('MSXML2.ServerXMLHTTP');
#my $lobjXML=Win32::OLE->new('WinHttp.WinHttpRequest.5.1') or die "cannot create: $!";
$lobjXML->open("GET",$testURL,false);
#$lobjXML->SetClientCertificate("Enterprise Trust\\Local Computer");
$lobjXML->send;
#print $lobjXML->GetALLResponseHeaders;
if($lobjXML->status==200){
	#print $lobjXML->Status ,"\n";
	return $lobjXML->ResponseText;
}
else{
	return $lobjXML->status,"\n";
	#print $lobjXML->ResponseText;
	
}
undef $lobjXML;

}