Étape 4: explications entre les deux
Maintenant techniquement tout ce que nous avons à faire est de type le code suivant, et nous avons terminé
« choisir le fichier pour permettre l’ajout de
Set objTextFile = objFiSyOb.OpenTextFile (strDir & strFile, ForAppending, True)
« écrire la nouvelle ligne dans le fichier
objTextFile.WriteLine (« votre ordinateur s’éteint sur » & date & « à » & time)
"fermez le fichier
objTextFile.Close
« faire un pop up
Wscript.Echo (« votre ordinateur s’éteint sur » & date & « à » & time)
« Ouvrez le fichier dans Internet Explorer
Définissez objShell = CreateObject("WScript.Shell")
objShell.run (« Explorer » & "" & strDir & « \shutdown_catcher.txt »)
Le problème est qu’il n’aura aucune correction d’erreur, et toute erreur simple comme fichier non existant ou variable déjà assignée va planter le script.