Add two new line in your code:
Set App = CreateObject("FlexFirewallManager.Admin")
App.FormatOutput="xml"
App.Username="Plesk Domain User"
App.Password="Plesk Domain Pass"
App.CloudFlareLogin "my email","my key"
App.CloudflareDomain = "my domain"
Dim strIP : strIP = "123.123.123.123"
Dim returnstring : returnstring = App.BlockIp(strIP)
Set objxml = CreateObject("Msxml2.DOMDocument")
objxml.LoadXml(return_string)
if lcase(objxml.SelectSingleNode("/output/result").text) = "true" then
response.write "Block IP " & strIP
else
response.write "Cannot Block IP " & strIP
end if
$app = new COM("FlexFirewallManager.Admin");
$app->FormatOutput="json";
$app->Username="Plesk Domain User";
$app->Password="Plesk Domain Pass";
$app->CloudFlareLogin("my email","my key")
$app->CloudflareDomain = "my domain";
$strIP = "123.123.123.123";
$returnstring = app->BlockIp($strIP);
$appjson = json_decode($returnstring);
if($appjson->result){
echo "Block IP " . $strIP;
}else{
echo "Cannot Block IP " . $strIP;
}