HOWTO: Kill process on remote workstation using system.management?

[nb.home]

I found the following code:
Public Function WMIKill()

Dim colProcesses As Management.ManagementObjectSearcher

Dim colObserver As New Management.ManagementOperationObserver

Dim refProcess As Management.ManagementObject

colProcesses = New Management.ManagementObjectSearcher("SELECT * " & _
"FROM
Win32_Process " & _
"WHERE Handle
= '" & _processName & "'")
colProcesses.Scope = New Management.ManagementScope("\\" & _ws &
"\root\cimv2")
If colProcesses.Get.Count = 0 Then
Else
For Each refProcess In colProcesses.Get
Try
refProcess.InvokeMethod(colObserver, "Terminate", Nothing)
Catch ex As Exception
_errorMsg = ex.Message
End Try
Next
End If
End Function

However, the process (in this case, notepad) doesn't close.

Any help would be greatly appreciated.

TIA,
NB