Stap 4: uitleg tussendoor
Nu technisch alles wat we moeten doen is type de volgende code en we zijn klaar
"instellen van het bestand toe te voegen
Set objTextFile = objFiSyOb.OpenTextFile (strDir & strFile, ForAppending, True)
' de nieuwe regel schrijven naar het bestand
objTextFile.WriteLine ("uw computer Shut down op" & datum & "at" & tijd)
' Sluit het bestand
objTextFile.Close
' een pop make-up
Wscript.Echo ("uw computer Shut down op" & datum & "at" & tijd)
' open het bestand in IE
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" & "" & strDir & "\shutdown_catcher.txt")
Het probleem is wel geen foutcorrectie en eenvoudige fouten zoals bestand niet bestaande of variabele al toegewezen zal het script crash.