Étape 8 :
OK, maintenant la partie de plaisir... Comme dans toutes les autres étapes, ouvrez le bloc-notes, couper et coller le texte en gras seulement et enregistrez le fichier sous "warn.vbs" à la racine de votre clé USB. Étape six, DONE !
Noter que le texte en italique est le message que vous voulez que votre ordinateur « lire » à haute voix. S’amuser avec elle !
Dim userInput
userInput = ("le pouce de cette voiture est la propriété de l’orignal de l’armée américaine. C’est pour usage officiel seulement. Toute utilisation non autorisée de cette clé USB se traduira par l’arrestation et l’inculpation dans la pleine mesure de la Loi. Je le répète, cette clé USB est la propriété de l’orignal de l’armée américaine. C’est pour usage officiel seulement. Toute utilisation non autorisée de cette clé USB se traduira par l’arrestation et l’inculpation dans la pleine mesure de la loi")
Définir les Sapi = Wscript.CreateObject ("SAPI. SpVoice")
SAPI.Speak userInput