' Taskliste mit WMI verarbeiten

OPEN ENVIRON$("TEMP") + "\~taskdmp.vbs" FOR OUTPUT AS 1
PRINT #1, "Option Explicit"
PRINT #1, "Dim oFS, oTs, oWMI, aProz, oProz"
PRINT #1, "Set oFS = CreateObject(" + CHR$(34) + "Scripting.FileSystemObject" + CHR$(34) + ")"
PRINT #1, "Set oTs = oFS.CreateTextFile(" + CHR$(34) + ENVIRON$("TEMP") + "\~TASKLST.TXT" + CHR$(34) + ")"
PRINT #1, "Set oWMI = GetObject(" + CHR$(34) + "winmgmts:\\." + CHR$(34) + ")"
PRINT #1, "Set aProz = oWMI.InstancesOf(" + CHR$(34) + "Win32_Process" + CHR$(34) + ")"
PRINT #1, "For Each oProz In aProz"
PRINT #1, "  oTs.WriteLine oProz.Name & " + CHR$(34) + "," + CHR$(34) + " & oProz.ProcessId"
PRINT #1, "Next"
PRINT #1, "Set aProz = Nothing"
PRINT #1, "Set oWMI = Nothing"
PRINT #1, "oTs.Close"
PRINT #1, "Set oTs = Nothing"
PRINT #1, "Set oFS = Nothing"
CLOSE 1
SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~taskdmp.vbs"
KILL ENVIRON$("TEMP") + "\~taskdmp.vbs"
OPEN ENVIRON$("TEMP") + "\~TASKLST.TXT" FOR INPUT AS 1
WHILE NOT EOF(1)
  INPUT #1, tnam$, pid%
  PRINT "Taskname: "; tnam$; " PID:"; pid%
WEND
CLOSE 1
KILL ENVIRON$("TEMP") + "\~TASKLST.TXT"