Ce script simple, mettra à jour un fichier .txt, chaque fois que votre ordinateur est allumé avec le nom de compte d’utilisateur, jour, heure et date si vous suspectez quelque chose juste ouvrent le fichier journal pour voir si vous avez eu raison.
Ce script montre comment enregistrer le fichier sous C:\Startup-Log.txt mais vous pouvez modifier facilement le script à un endroit différent avec un nom différent si vous préférez.
Pour ce faire il suffit de copier le fichier de Script à votre dossier de démarrage dans le Menu menu Démarrer tout et le windows script host fera le reste
(C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage) celui-ci pour tous les utilisateurs, qui comprend « Guest »
'
« Anti-Snooper
« Enregistreur de démarrage
« Par Dean Potts
'
Option Explicit
« Diverses Variables
Dim FSO, objFolder, objtxtfile, objFile
Dim logpath, logfile, logtext
Dim Action : Définissez Action = CreateObject("Wscript.Shell")
: Dim utilisateur = Action.ExpandEnvironmentStrings("%UserName%")
Dim Days(7), MonthDays(31), Months(12), heures, Minutes, MyTime, D, DD, MM, AA
"Les noms de jour
Days(1) = « Dimanche »
Days(2) = « Lundi »
Days(3) = « Mardi »
Days(4) = « Mercredi »
Days(5) = « Jeudi »
Days(6) = « Vendredi »
Days(7) = « Samedi »
"Les noms de mois
Months(1) = « Janvier »
Months(2) = « Février »
Months(3) = « Mars »
Mois (4) = « Avril »
Mois (5) = « Mai »
Months(6) = « Juin »
Months(7) = « Juillet »
Months(8) = « Août »
Months(9) = « Septembre »
Months(10) = « Octobre »
Months(11) = « Novembre »
Months(12) = « Décembre »
« Fantaisie de numérotation
MonthDays(1) = « 1 »
MonthDays(2) = « 2nd »
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) = « 19e »
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 »
"Régler l’heure en format 24 heures
' heures
Si hour(now) < 10 puis
Heures = « 0 » & hour(now)
d’autre
Heures = hour(now)
fin si
' minutes
Si minute(now) < 10 puis
Minutes = « 0 » & minute(now)
d’autre
Minutes = minute(now)
fin si
"Mettre en place les Variables
MyTime = heures & ":" & Minutes
D = MonthDays(day(now))
DD = Days(weekday(now))
MM = Months(Month(now))
YY = year(now)
LogPath = « c:\ »
logfile = « Startup-log.txt »
logText = "[compte:" & User & "]" & MyTime & DD & D & MM AA
"Si le dossier n’existe pas alors créez-le
Set FSO = CreateObject("Scripting.FileSystemObject")
Si FSO. FolderExists(logpath) puis
Set objFolder = FSO. GetFolder(logpath)
D’autre
Set objFolder = FSO. CreateFolder(logpath)
End If
' si le fichier n’existe pas alors créez-le
Si FSO. FileExists(logpath & logfile) puis
Set objFolder = FSO. GetFolder(logpath)
D’autre
Set objFile = FSO. CreateTextFile (logpath & logfile)
End If
"libérer les objets
Set objFile = nothing
Set objFolder = nothing
Const constappend = 8
Set objtxtfile = FSO. OpenTextFile _
(logpath & logfile, constappend, True)
"Écrire une nouvelle ligne dans le journal
objtxtfile. WriteLine(logtext)
objtxtfile. Fermer
"Terminé
WScript.Quit
