中央論壇 - CENTER BBS

標題: 用WMI列出目前的程序並寫入文字檔 [打印本頁]

作者: f66666602 時間: 2007-7-27 20:59
標題: 用WMI列出目前的程序並寫入文字檔
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("Process.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_Process")
outFile.WriteLine("Caption: " & Item.Caption)
outFile.WriteLine("CreationDate: " & Item.CreationDate)
outFile.WriteLine("Name: " & Item.Name)
outFile.WriteLine("Priority: " & Item.Priority)
outFile.WriteLine("ProcessID: " & ProcessID)
outFile.WriteLine("ThreadCount: " & Item.ThreadCount)
outFile.WriteLine("WorkingSetSize: " & Item.WorkingSetSize)

outFile.WriteLine("")
Next
outFile.Close

歡迎光臨中央論壇 - CENTER BBS (https://www.centerbbs.com/)