MsgBox(64,"","Ce scrit crée un fichier contenant le virus de test EICAR")

$VirTest = "X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"

FileWriteLine("VirusTest.com", $VirTest)