GetProcessInfo using WMI

Sub GetProcess()
  Set objWMI = GetObject("winmgmts:")
  Set instanzen = objWMI.InstancesOf("Win32_Process")
  'MakeTabH "Instance","CommandLine"
  For Each objInstance In instanzen
    'MakeTabD objInstance.Name , objInstance.CommandLine
  write objInstance.Name  & " : " & objInstance.CommandLine & ""
  'document.frames.myiframe.document.body.style.font="arial"
  Next
End Sub