Dim MyWQL As String = "SELECT * FROM Win32_Process"
            Dim WMIName As String = ""
            Dim WMICommandLine As String = ""
            Dim myScope As New System.Management.ManagementScope("\\" & _
              Hostname & "\root\cimv2")
            Dim WMIObject As System.Management.ManagementObject
            Dim myQuery As New System.Management.ObjectQuery(MyWQL)
            Dim Searcher As New System.Management.ManagementObjectSearcher( _
              myScope, myQuery)
 
            For Each WMIObject In Searcher.Get()
                WMIName = WMIObject("Name").ToString
'funktioniert leider nicht unter windows 2000 !!!
                WMICommandLine = WMIObject("CommandLine").ToString
next