PC start Logger till fånga oönskade Snoopers

Detta enkla skript, kommer att uppdatera en txt-fil varje gång datorn är påslagen med förbrukaren redovisa namn, dag, tid och datum så om du misstänker något bara öppnar loggfilen för att se om du hade rätt.

Detta skript sparar filen som C:\Startup-Log.txt men du kan enkelt redigera skriptet att någonstans annorlunda med ett annat namn om du föredrar.

För att göra detta arbete bara kopiera skriptfilen till Autostart-mappen i alla UsersStart menyn och windows script kommer att host göra resten

(C:\Documents and Settings\All Users\Start-meny\Program\Autostart) här en för alla användare som inkluderar "Gäst"

'
"Anti Snooper
"Start Logger
"Av Dean Potts
'
Option Explicit

"Olika variabler
Dim FSO, objFolder, objtxtfile, objFile
Dim logpath, loggfil, logtext
Dim åtgärd: Anger åtgärd = CreateObject("Wscript.Shell")
Dim User: Användare = Action.ExpandEnvironmentStrings("%UserName%")
Dim Days(7), MonthDays(31), Months(12), timmar, minuter, MyTime, D, DD, MM, åå

"Dag namn
Days(1) = "Söndag"
Days(2) = "Måndag"
Days(3) = "Tisdag"
Days(4) = "Onsdag"
Days(5) = "Torsdag"
Days(6) = "Fredag"
Days(7) = "Lördag"

"Månadsnamn
Months(1) = "Januari"
Months(2) = "Februari"
Months(3) = "Mars"
Months(4) = "April"
Months(5) = "Maj"
Months(6) = "Juni"
Months(7) = "Juli"
Months(8) = "Augusti"
Months(9) = "September"
Months(10) = "Oktober"
Months(11) = "November"
Months(12) = "December"

"Fancy numrering
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) = "11h"
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"

"Sortera ut tiden i 24-timmarsformat

"timmar
om hour(now) < 10 sedan
Timmar = "0" & hour(now)
annat
Timmar = hour(now)
slut om

"minuter
om minute(now) < 10 sedan
Minuter = "0" & minute(now)
annat
Minuter = minute(now)
slut om

"Ställa in variabler
MyTime = timmar & ":" & minuter
D = MonthDays(day(now))
DD = Days(weekday(now))
MM = Months(Month(now))
YY = year(now)
logPath = "c:\"
Logfile = "Start-log.txt"
logtext = "[konto:" & användare & "]" & MyTime & DD & D & MM & YY

"Om mappen inte finns skapar du det
Ställa in FSO = CreateObjectScripting.FileSystemObject("")
Om FSO. FolderExists(logpath) sedan
Ange objFolder = FSO. GetFolder(logpath)
Annat
Ange objFolder = FSO. CreateFolder(logpath)
Slut om

"om filen inte finns skapar du det
Om FSO. FileExists(logpath & logfile) sedan
Ange objFolder = FSO. GetFolder(logpath)
Annat
Ange objFile = FSO. CreateTextFile (logpath & loggfil)
Slut om

"gratis objekt
Ange objFile = ingenting
Ange objFolder = ingenting

CONST constappend = 8
Ange objtxtfile = FSO. OpenTextFile _
(logpath & logfile, constappend, sant)

"Skriva en ny rad i loggen
objtxtfile. WriteLine(logtext)
objtxtfile. Stäng
"Slutade
WScript.Quit