Este sencillo script, se actualizará un archivo .txt cada vez que el ordenador está encendido con el nombre de la cuenta de usuario, día, hora y fecha así que si usted sospecha cualquier cosa solo abren el archivo de registro para ver si tenía razón.
Este script guarda el archivo como C:\Startup-Log.txt pero fácilmente podría editar el script en algún lugar diferente con un nombre diferente si prefiere.
Para realizar este trabajo sólo tienes que copiar el archivo de comandos a la carpeta Inicio en el menú de All todos y la secuencia de comandos de windows host hará el resto
(C:\Documents and Settings\All Users\Start Menu\Programs\Startup) éste para todos los usuarios que incluye 'Guest'
'
' Anti Snooper
' Registrador de inicio
«Por Dean Potts
'
Opción explícita
' Diversas Variables
Dim FSO, objFolder, objtxtfile, objFile
Dim logpath, archivo de registro, logtext
Débil acción: Establecer acción = CreateObject("Wscript.Shell")
: DIM usuario = Action.ExpandEnvironmentStrings("%UserName%")
Dim Days(7), MonthDays(31), Months(12), horas, minutos, MyTime, D, DD, MM, AA
' Nombres de los días
Days(1) = "Domingo"
Days(2) = "Lunes"
Days(3) = "Martes"
Days(4) = "Miércoles"
Days(5) = "Jueves"
Days(6) = "Viernes"
Days(7) = "Sábado"
' Nombres de los meses
Months(1) = "Enero"
Months(2) = "Febrero"
Months(3) = "Marzo"
Months(4) = "Abril"
Months(5) = "Mayo"
Months(6) = "Junio"
Months(7) = "Julio"
Months(8) = "Agosto"
Months(9) = "Septiembre"
Months(10) = "Octubre"
Months(11) = "Noviembre"
Months(12) = "Diciembre"
' Fantasía de numeración
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"
' Ordenar la hora en formato 24 horas
' horas
Si hour(now) < 10 entonces
Horas = "0" & hour(now)
otra cosa
Horas = hour(now)
terminar si
' minutos
Si minute(now) < 10 entonces
Minutos = "0" & minute(now)
otra cosa
Minutos = minute(now)
terminar si
' Configurar las Variables de
MyTime = horas & ":" & minutos
D = MonthDays(day(now))
DD = Days(weekday(now))
MM = Months(Month(now))
YY = year(now)
LogPath = "c:\"
logfile = "Inicio-log.txt"
logtext = "[cuenta:" & usuario & "]" & MyTime & DD & D & m & AA
' Si la carpeta no existe entonces crear
Set FSO = CreateObject("Scripting.FileSystemObject")
Si FOE. FolderExists(logpath) entonces
Establecer objFolder = FSO. GetFolder(logpath)
Otra cosa
Establecer objFolder = FSO. CreateFolder(logpath)
End If
' si el archivo no existe entonces crear
Si FOE. FileExists(logpath & logfile) entonces
Establecer objFolder = FSO. GetFolder(logpath)
Otra cosa
Set objFile = FSO. CreateTextFile (logpath y archivo de registro)
End If
' libre de los objetos
Set objFile = nada
establecer objFolder = nada
Const constappend = 8
Set objtxtfile = FSO. OpenTextFile _
(logpath y logfile, constappend, True)
' Escribir una línea en el log
objtxtfile. WriteLine(logtext)
objtxtfile. Cerrar
' Terminado
WScript.Quit
