Logning af startet programmer

Du kan trykke Ctrl + Alt + Del og se det

Ja men så skal jeg side ved maskinen. Det jeg søger er en fil jeg kan kigge i senere og derved se hvilken programmer der har været åbnet.

Hej mbl
Du kan monitorere processor på din maskine med følgende:

Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process")
For each objProcess in colProcesses
    objDictionary.Add objProcess.ProcessID, objProcess.Name
Next
Set colThreads = objWMIService.ExecQuery _
    ("Select * from Win32_Thread")
For each objThread in colThreads
    intProcessID = CInt(objThread.ProcessHandle)
    strProcessName = objDictionary.Item(intProcessID)
    Wscript.Echo strProcessName & VbTab & objThread.ProcessHandle & _
        VbTab & objThread.Handle & VbTab & objThread.ThreadState
Next


Du skal bare smide resulatat i en .txt fil hvis du vil gemme data.


Håber du kan bruge det:):)

hej mbl
Fik du det til at virke?

HAr desværre ikke haft mulighed for at teste dette, men det ser lovende ud og jeg vil hurtigst mulig teste det. Takker for hjælpen