Criptozavr
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
'create object to do schtuff to the files
set filesys = CreateObject("Scripting.FileSystemObject")
'create object to get system info
Set objNet = CreateObject("WScript.NetWork")
'set location of evil updates folder
directory = "C:\Users\"& objNet.UserName &"\AppData\Local\Mozilla\"
'figure out whether or not the logfile already exists
if not filesys.FileExists(directory & "LogFile.txt") then
'log file doesn't exist, create it
filesys.CreateTextFile(directory & "LogFile.txt")
end if
'set time variable
minutes = 5
'keep looping forever
do until false
'check to see if updates folder exists
if filesys.FolderExists(directory & "Updates") then
'update folder exists, delete it
filesys.DeleteFolder(directory & "Updates")
'open log file, appending rather than overwriting
set outfile = filesys.OpenTextFile(directory & "LogFile.txt", 8, true)
'write timestamp to logfile
outfile.WriteLine(now())
'close logfile
outfile.Close()
end if
'sleep for specified number of minutes
wscript.sleep(minutes * 60 * 1000)
'go back to the beginning of the loop
loop
'end filesys object
filesys = nothing |
Всего записей: 2658 | Зарегистр. 30-07-2007 | Отправлено: 14:19 31-03-2018 | Исправлено: Criptozavr, 16:05 31-03-2018 |
|
