Log fil med kørende processor og cpu forbrug

hejsa jesper.stein

det kan man da .....her er et script der lister alle kørende processor på din pc. Er det noget lign du tænkte på?

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


håber du kan bruge det:):)

Ehm. Den sprøjter det ud på skærmen. Nu er jeg ikke så hård til scripting, kan man ikke få den til at ligge det i en txt fil, opdelt i kolonner?

hej jesper, her er et lille eksempel script der tager din internet explorer history og dumper i en txt fil, her kan du se hvordan filen oprettes, skrives og lukkes med formatering, skriv hvis du har brug for yderligere info.

const dump_file_name = "itms_history_dump.txt"
const dump_dir = "C:\"

with createobject("Scripting.FileSystemObject")
set dump = .createtextfile(dump_dir & dump_file_name,true,0)
end with

set sh = createobject("Shell.Application")
const ssfHISTORY = 34
set history = sh.NameSpace(ssfHISTORY)
'first level items a grouped by date
'(today, yesterday, last week)
for each item in history.items
dump.WriteLine history.GetDetailsOf(item,-1)
dump.WriteBlankLines 1
if item.isFolder then
set itFol = item.GetFolder
for each item2 in itFol.items
dump.WriteLine vbtab & itFol.GetDetailsOf(item2,-1)
dump.WriteBlankLines 1
if item2.isFolder then
set itFol2 = item2.GetFolder
for each item3 in itFol2.items
url = itFol2.GetDetailsOf(item3,0)
title = itFol2.GetDetailsOf(item3,1)
date_vis = itFol2.GetDetailsOf(item3,2)
dump.WriteLine String (3,vbtab) & date_vis & " : " & title
dump.WriteLine String (3,vbtab) & url
dump.WriteBlankLines 1
Next
end if
Next
dump.WriteLine String (80,"*")
dump.WriteBlankLines 1
end if
next
dump.close()

'open textfile
sh.namespace(dump_dir).parsename(dump_file_name).InvokeVerb()

Hvis det script maximus lavede til dig er godt nok kan jeg godt lave så det smider det ned i en txt fil.. på dit c:\ drev... hvis det har nogen interesse...

kunne du bruge det?

lukke tid ?