Avatar billede morteeart Nybegynder
27. oktober 2004 - 14:47 Der er 5 kommentarer og
1 løsning

Process listning

Hej

Hvilken funktion skal jeg bruge for at liste kørende processor
(ligsom ctrl+alt+delete -> processor)

Det skal være under windows XP.

Hvis Visual Studio 6.0 Enterprise har nogle indbyggende funktioner til, må i også gerne skrive det.

På forhold Tak.
Avatar billede hiks Nybegynder
27. oktober 2004 - 14:55 #1
Avatar billede sturman Nybegynder
28. oktober 2004 - 10:15 #2
'Get all the processes of Your PC and out put to text file



      Function getRunningProcessList(strComputer)
' if no computer name is specified, run on local machine
If Len(strComputer) = 0 Then
strComputer = Environment("LocalHostName")
End If

On Error Resume Next
Dim ProcessSet
' get list of running processes from Windows Management Instrumentation
Set ProcessSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("select * from Win32_Process")
If (Not Err.Number = 0) Then
getRunningProcessList = "Could not get process list for computer " & strComputer & vbCrLf & vbCrLf & "Error " & Err.Number & " " & Err.Description
Exit Function
End If

' build a textual description of running processes
Dim strProcessList
strProcessList = "Processes running on computer " & strComputer & ":" & vbCrLf & vbCrLf
strProcessList = strProcessList & "Description" & vbTab & vbTab & "Executable Path" & vbCrLf
strProcessList = strProcessList & "===========" & vbTab & vbTab & "===============" & vbCrLf & vbCrLf
Dim Process
For Each Process In ProcessSet
strProcessList = strProcessList & Process.Description & vbTab & vbTab
If Len(Process.Description) < 8 Then
strProcessList = strProcessList & vbTab
End If
strProcessList = strProcessList & Process.ExecutablePath & vbCrLf
Next

' return textual description of running processes
getRunningProcessList = strProcessList
End Function




Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\ProcessesList.txt", True)
'You need to send the name of Your pc instead "main"
msgbox getRunningProcessList("main")

'It will write the list in C:\ProcessesList...
objTextFile.WriteLine getRunningProcessList("main")
Avatar billede hiks Nybegynder
01. november 2004 - 21:30 #3
har du fået løst dit problem?

/hiks
Avatar billede morteeart Nybegynder
03. november 2004 - 02:24 #4
ja, det tror jeg.. jeg vil mangler dog lige et par test..

den af jer som havde den mest rammende kode, får points.
medmindre i vil dele :)
Avatar billede sturman Nybegynder
03. november 2004 - 09:51 #5
thats up to you, but i know my code does the job - i use it myself.
Avatar billede morteeart Nybegynder
08. november 2004 - 11:51 #6
hmm, it is a console app. or what ?

I can't compile it in MS Visual Studio .NET
Does i need any special ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester