Dit eenvoudige script, een txt-bestand wordt bijgewerkt telkens wanneer uw computer met de naam van de gebruikersaccount is ingeschakeld, dag, datum en tijd zo als u vermoedt dat alles gewoon open het logbestand om te zien als je had gelijk.
Dit script slaat het bestand op als C:\Startup-Log.txt maar u kan gemakkelijk bewerkt u het script ergens anders met een andere naam indien gewenst.
Te halen zulks werkzaamheden Kopieer het scriptbestand naar de opstartmap in het Menu voor alle gebruikers en de windows script zal host doen de rest
(C:\Documents and Settings\All Users\Start Menu\Programs\Startup) dit een voor alle gebruikers, waaronder 'Gast'
'
' Anti Snooper
' Opstarten Logger
' Door Dean Potts
'
Optie expliciet
' Verschillende variabelen
Dim FSO, objFolder, objtxtfile, objFile
Dim logpath logfile, logtext
Dim actie: Instellen, actie = CreateObject("Wscript.Shell")
: Dim gebruiker = Action.ExpandEnvironmentStrings("%UserName%")
Dim Days(7), MonthDays(31), Months(12), uren, minuten, MyTime, D, DD, MM, YY
' Namen van dagen
Days(1) = "Zondag"
Days(2) = "Maandag"
Days(3) = "Dinsdag"
Days(4) = "Woensdag"
Days(5) = "Donderdag"
Days(6) = "Vrijdag"
Days(7) = "Zaterdag"
' Namen van maanden
Months(1) = 'Januari'
Months(2) = "Februari"
Months(3) = "March"
Months(4) = "April"
Voorgekomen(5) = "Mei"
Months(6) = "Juni"
Geconstateerd(7) = "Juli"
Geconstateerd(8) = "Augustus"
Months(9) = "September"
Months(10) = "Oktober"
Months(11) = "November"
Months(12) = "December"
' Fancy nummering
MonthDays(1) = "1"
MonthDays(2) = "2"
MonthDays(3) = "3e"
MonthDays(4) = "4"
MonthDays(5) = "5"
MonthDays(6) = "6"
MonthDays(7) = "7"
MonthDays(8) = "8"
MonthDays(9) = "9"
MonthDays(10) = "10"
MonthDays(11) = "11h"
MonthDays(12) = "12"
MonthDays(13) = "13e"
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"
' Uitzoeken van de tijd in 24-uursnotatie
' uren
Als hour(now) < 10 vervolgens
Uren = "0" & hour(now)
anders
Uren = hour(now)
eind als
' minuten
Als minute(now) < 10 vervolgens
Minuten = "0" & minute(now)
anders
Minuten = minute(now)
eind als
' De variabelen instellen
MyTime = uur & ":" & minuten
D = MonthDays(day(now))
DD = Days(weekday(now))
MM = Months(Month(now))
YY = year(now)
logPath = "c:\"
logfile = "Opstarten-log.txt"
logtext = "[Account:" & User & "]" & MyTime DD & D MM & JJ
' Als de map niet bestaat maakt het
Set FSO = CreateObject("Scripting.FileSystemObject")
Als FSO. FolderExists(logpath) dan
Set objFolder = FSO. GetFolder(logpath)
Anders
Set objFolder = FSO. CreateFolder(logpath)
End If
' als het bestand niet bestaat dan het maken
Als FSO. FileExists(logpath & logfile) dan
Set objFolder = FSO. GetFolder(logpath)
Anders
Set objFile = FSO. CreateTextFile (logpath & logfile)
End If
' vrije de objecten
set objFile = niets
set objFolder = niets
Const constappend = 8
Set objtxtfile = FSO. OpenTextFile _
(logpath & logfile, constappend, True)
' Een nieuwe regel in het logboek schrijven
objtxtfile. WriteLine(logtext)
objtxtfile. Sluiten
' Klaar
WScript.Quit
