terça-feira, 9 de junho de 2009

Como imprimir os processos do Gerenciador de Tarefas

Se você deseja imprimir o conteúdo dos processos da guia Gerenciador de Tarefas, crie um arquivo com a extensão vbs (Ex.: Processo.vbs) e cole o código abaixo no seu conteúdo. Neste exemplo o arquivo “process.txt”, contendo a lista dos processos ativos no windows, será gerado na pasta “c:\backup”.

strComputer = "."
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
'==============================================================
Const Data_Path = "C:\Backup\"
Const fileName = "process.txt"


Set fso = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Data_Path & filename) Then
Set f = fso.OpenTextFile(Data_Path & fileName,2, True)
Else
Set f = fso.OpenTextFile(Data_Path & fileName,8)
End If


Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcessList
f.WriteLine "Process " & objProcess.Name
Next



Nenhum comentário: