Zitat:

Warum ist dein Handle=0? Arbeitest du mit VBA?

Zitat:

Ich drucke aus Excel ....

Sub WMIKill()
    Dim objWMI As Object, objProcessList As Object, objProcess As Object
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        ".\root\cimv2")
    Set objProcessList = objWMI.ExecQuery("Select * from Win32_Process " & _
        "Where Name = 'acrord32.exe'")
    For Each objProcess In objProcessList
        objProcess.Terminate (0)
    Next
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!