[Georgio]

mihanklinov@vk, вирус пишете?

Нашёл у себя в коллекции vbscript:

Код:

set WshShell = WScript.CreateObject("WScript.Shell") 
KEY = true 
do while KEY 
if WshShell.AppActivate("Имя папки") then 
WriteWord() 
KEY = false 
end if 
WScript.Sleep 1000 
loop 

function WriteWord() 
WSHShell.Run("%SystemRoot%\system32\notepad.exe") 
end function

В примере после запуска скрипа при открытии в любом месте компьютера любой папки с именем "Имя папки" запустится "Блокнот"

При желании генерацию и запуск скрипта можно вставить и в BAT-файл.