Dieses einfache Skript wird eine txt-Datei aktualisiert, jedes Mal, wenn Ihr Computer mit dem Benutzer-Account-Namen eingeschaltet ist, Tag, Uhrzeit und Datum so, wenn Sie vermuten, dass alles nur öffnen die Log-Datei zu sehen, ob du recht hattest.
Dieses Skript speichert die Datei als C:\Startup-Log.txt, aber Sie könnte leicht bearbeiten Sie das Skript irgendwo anders mit einem anderen Namen, wenn Sie es vorziehen.
Damit dies funktioniert nur die Skript-Datei in Ihrem Ordner "Autostart" in allen Users\Start Menu und das Windows-Skript kopieren wird Host den Rest erledigen.
(C:\Documents und Settings\All Users\Start Menu\Programs\Startup) diese ein für alle Benutzer "Gast" umfasst
'
"Anti-Snooper
"Start-Logger
"Von Dean Potts
'
Option Explicit
"Verschiedene Variablen
Dim FSO, ObjFolder, Objtxtfile, objFile
Dim Logpath, Logfile, logtext
Dim Aktion: Aktion festlegen = CreateObject("Wscript.Shell")
Dim Benutzer: Benutzer = Action.ExpandEnvironmentStrings("%UserName%")
Dim Days(7), MonthDays(31), Months(12), Stunden, Minuten, MyTime, D, DD, MM, JJ
"Tagesnamen
Days(1) = "Sonntag"
Days(2) = "Montag"
Tage(3) = "Dienstag"
Tage(4) = "Mittwoch"
Days(5) = "Donnerstag"
Days(6) = "Freitag"
Days(7) = "Samstag"
"Monatsnamen
Months(1) = "Januar"
Months(2) = "Februar"
Months(3) = "März"
Ist(4) = "April"
Months(5) = "Mai"
Months(6) = "Juni"
Months(7) = "Juli"
Months(8) = "August"
Months(9) = "September"
Ist(10) = "Oktober"
Months(11) = "November"
Months(12) = "Dezember"
"Schickes Nummerierung
MonthDays(1) = "1"
MonthDays(2) = "2"
MonthDays(3) = "3"
MonthDays(4) = "4"
MonthDays(5) = "5"
MonthDays(6) = "6."
MonthDays(7) = "7"
MonthDays(8) = "8"
MonthDays(9) = "9"
MonthDays(10) = "10"
MonthDays(11) = "11 Uhr"
MonthDays(12) = "12."
MonthDays(13) = "13"
MonthDays(14) = "14"
MonthDays(15) = "15"
MonthDays(16) = "16"
MonthDays(17) = "17."
MonthDays(18) = "18"
MonthDays(19) = "19"
MonthDays(20) = "20"
MonthDays(21) = "21."
MonthDays(22) = "22"
MonthDays(23) = "23"
MonthDays(24) = "24"
MonthDays(25) = "25"
MonthDays(26) = "26"
MonthDays(27) = "27"
MonthDays(28) = "28"
MonthDays(29) = "29"
MonthDays(30) = "30"
MonthDays(31) = "31"
"Die Uhrzeit im 24-Stunden Format sortieren
"Stunden
Wenn hour(now) < 10 dann
Stunden = "0" & hour(now)
anderes
Stunden = hour(now)
beenden, wenn
"Minuten
Wenn minute(now) < 10 dann
Minuten = "0" & minute(now)
anderes
Minuten = minute(now)
beenden, wenn
"Richten Sie die Variablen
MyTime = Stunden & ":" & Minuten
D = MonthDays(day(now))
DD = Days(weekday(now))
MM = Months(Month(now))
YY = year(now)
Logpath = "c:\"
Logfile = "Startup-log.txt"
Logtext = "[Konto:" & Benutzer & "]" & MyTime DD & D MM & YY
"Wenn der Ordner nicht vorhanden ist, erstellen Sie es dann
Set FSO = CreateObject("Scripting.FileSystemObject")
Wenn FSO. FolderExists(logpath) dann
Set ObjFolder = FSO. GetFolder(logpath)
Anderes
Set ObjFolder = FSO. CreateFolder(logpath)
End If
"Wenn die Datei nicht existiert, erstellen Sie es dann
Wenn FSO. FileExists(logpath & logfile) dann
Set ObjFolder = FSO. GetFolder(logpath)
Anderes
Legen Sie ObjFile = FSO. CreateTextFile (Logpath & Log-Datei)
End If
"die Objekte freigeben
Set ObjFile = nothing
Set ObjFolder = nothing
Const Constappend = 8
Set Objtxtfile = FSO. Dergleichen _
(Logpath & Logfile, Constappend, True)
"Eine neue Zeile im Protokoll schreiben
Objtxtfile. WriteLine(logtext)
Objtxtfile. In der Nähe
"Fertig
WScript.Quit