Lista applicazioni attive.

[Alberto]

Il codice seguente preso dal sito di Giovanni Cenati, elenca tutti i
processi attivi:
http://digilander.libero.it/Cenati/esegui.htm

'LISTA processi.vbs
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,
48)
For Each objItem in colItems
Wscript.Echo "CommandLine: " & objItem.CommandLine
Wscript.Echo "Name: " & objItem.Name
Next

Qualcuno mi saprebbe indicare un codice simile per ottenere invece
l'elenco delle applicazioni attive o per meglio intenderci delle
icone
presenti (programmi aperti) nella barra delle applicazioni?


Ciao e grazie,
Alberto


Win7 + Office 2003

[Reventlov]

Il giorno Wed, 22 Feb 2012 13:42:59 -0800 (PST), Alberto <alberto...@tin.it> ha
scritto:

>
>Qualcuno mi saprebbe indicare un codice simile per ottenere invece
>l'elenco delle applicazioni attive o per meglio intenderci delle
>icone
>presenti (programmi aperti) nella barra delle applicazioni?

Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible Then Wscript.Echo Task.Name
Next
Word.Quit

Usa il modello a oggetti di word.
http://msdn.microsoft.com/en-us/library/bb212832.aspx


--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--

[Alberto]

Giovanni, la tua soluzione è perfetta per le mie necessità.
Grazie per il tempo che mi hai dedicato!

Un saluto, Alberto

[Reventlov]

Il giorno Sat, 3 Mar 2012 15:51:10 -0800 (PST), Alberto <alberto...@tin.it> ha
scritto:

>Giovanni, la tua soluzione =E8 perfetta per le mie necessit=E0.

>Grazie per il tempo che mi hai dedicato!
>
>Un saluto, Alberto

Non c'è di che.
Tuttavia, senza usare il modello a oggetti di word, credo che in questo codice generato
automaticamente da Microsoft Scriptomatic (si scarica dal sito microsoft) ci sia qualche
proprietà che distingue le applicazioni visibili nella taskbar dai processi in background.
Magari mandando il risultato su un file si riesce a trovare la proprietà giusta per
identificare le applicazioni visibili.

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
For Each objItem in colItems

Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CommandLine: " & objItem.CommandLine
Wscript.Echo "CreationClassName: " & objItem.CreationClassName
Wscript.Echo "CreationDate: " & objItem.CreationDate
Wscript.Echo "CSCreationClassName: " & objItem.CSCreationClassName
Wscript.Echo "CSName: " & objItem.CSName
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "ExecutablePath: " & objItem.ExecutablePath
Wscript.Echo "ExecutionState: " & objItem.ExecutionState
Wscript.Echo "Handle: " & objItem.Handle
Wscript.Echo "HandleCount: " & objItem.HandleCount
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "KernelModeTime: " & objItem.KernelModeTime
Wscript.Echo "MaximumWorkingSetSize: " & objItem.MaximumWorkingSetSize
Wscript.Echo "MinimumWorkingSetSize: " & objItem.MinimumWorkingSetSize
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OSCreationClassName: " & objItem.OSCreationClassName
Wscript.Echo "OSName: " & objItem.OSName
Wscript.Echo "OtherOperationCount: " & objItem.OtherOperationCount
Wscript.Echo "OtherTransferCount: " & objItem.OtherTransferCount
Wscript.Echo "PageFaults: " & objItem.PageFaults
Wscript.Echo "PageFileUsage: " & objItem.PageFileUsage
Wscript.Echo "ParentProcessId: " & objItem.ParentProcessId
Wscript.Echo "PeakPageFileUsage: " & objItem.PeakPageFileUsage
Wscript.Echo "PeakVirtualSize: " & objItem.PeakVirtualSize
Wscript.Echo "PeakWorkingSetSize: " & objItem.PeakWorkingSetSize
Wscript.Echo "Priority: " & objItem.Priority
Wscript.Echo "PrivatePageCount: " & objItem.PrivatePageCount
Wscript.Echo "ProcessId: " & objItem.ProcessId
Wscript.Echo "QuotaNonPagedPoolUsage: " & objItem.QuotaNonPagedPoolUsage
Wscript.Echo "QuotaPagedPoolUsage: " & objItem.QuotaPagedPoolUsage
Wscript.Echo "QuotaPeakNonPagedPoolUsage: " & objItem.QuotaPeakNonPagedPoolUsage
Wscript.Echo "QuotaPeakPagedPoolUsage: " & objItem.QuotaPeakPagedPoolUsage
Wscript.Echo "ReadOperationCount: " & objItem.ReadOperationCount
Wscript.Echo "ReadTransferCount: " & objItem.ReadTransferCount
Wscript.Echo "SessionId: " & objItem.SessionId
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "TerminationDate: " & objItem.TerminationDate
Wscript.Echo "ThreadCount: " & objItem.ThreadCount
Wscript.Echo "UserModeTime: " & objItem.UserModeTime
Wscript.Echo "VirtualSize: " & objItem.VirtualSize
Wscript.Echo "WindowsVersion: " & objItem.WindowsVersion
Wscript.Echo "WorkingSetSize: " & objItem.WorkingSetSize
Wscript.Echo "WriteOperationCount: " & objItem.WriteOperationCount
Wscript.Echo "WriteTransferCount: " & objItem.WriteTransferCount
Next