Da hätten wir das altbekannte Problem einer Endlosschleife,
denn unter welcher Voraussetzung soll das Script sich denn
auch wieder beenden? - Das funzt derart auch nur wenn der
Prozess wscript.exe mit dem TaskManager beendet wird!!
Dim fso, txt
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile("c:\mylog.txt", 2, True)
txt.WriteLine Now
txt.close
rem ACHTUNG ENDLOSSCHLEIFE
Do
rem warte 5 Minuten
WScript.sleep 300000
rem oeffne Textdatei c:\mylog.txt
Set txt = fso.OpenTextFile("c:\mylog.txt", 8, 1)
rem schreibe neue Zeile mit akt. Datum/Uhrzeit
txt.WriteLine Now
rem schliesse Textdatei
txt.close
rem zurueck zum start
Loop
Wegen der Endlosschleife kann es evtl vorteilhafter sein
das stattdessen lieber über geplante Tasks zu realisieren
(Start-Programme-Zubehör-Sysstemprogramme-Geplante Tasks )
oder dazu den Befehl at zu nutzen (als Dienst aufrufen):
http://www.winhelpline.info/daten/dos/at.php