Проблема с Terminate() на сервере терминалов.

[Deryni]

Есть такой код:
Function KillProcesses(ByVal V7Path, ByVal EnumOnly) 'As Boolean
'перечисляет или закрывает процессы
' On Error Resume Next
Dim colProcessList 'As Object
Dim objProcess 'As Object
Dim strNameOfUser 'As String
Dim strUserDomain 'As String
Dim ThereIsAProcess 'As Boolean
Dim strExeFile 'As String
Dim strProcPath 'As String

WriteToDebugLog "KillProcesses: Запущена функция"
ThereIsAProcess = False
If Not PreCond(Array(oWMI), "KillProcs") Then Exit Function
Set colProcessList = oWMI.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcessList
strExeFile = Mid(V7Path ,InStrRev(V7Path,"\")+1)
strProcPath = IIf(IsNull(objProcess.ExecutablePath),objProcess.Name, objProcess.ExecutablePath)
If (UCase(objProcess.ExecutablePath) = UCase(V7Path)) Or ((UCase(strExeFile) = UCase(objProcess.Name)) And IsNull(objProcess.ExecutablePath)) Then
Call objProcess.GetOwner(strNameOfUser, strUserDomain)
ThereIsAProcess = True
If EnumOnly Then
WriteToDebugLog "KillProcs: Процесс " & strProcPath & " запущен пользователем " & strNameOfUser & "/" & strUserDomain
Else
If objProcess.Terminate() = 0 Then
WriteToDebugLog "KillProcs: Закрыт процесс " & strProcPath & " пользователя " & strNameOfUser & "/" & strUserDomain
Else
WriteToDebugLog "KillProcs: Ошибка закрытия процесса " & strProcPath & " пользователя " & strNameOfUser & "/" & strUserDomain
End If
End If
End If
Next
KillProcesses = ThereIsAProcess
WriteToDebugLog "KillProcesses: Завершена функция"
End Function

Там еще есть процедуры проверки, вывода в лог и т.д., но я думаю в данном случае они не интересны.
Собственно проблема в том, что запускаю на терминальном сервере с правами админа. Мои процессы прекращаются, а открытые другими пользователями - нет. В лог пишет "KillProcs: Ошибка закрытия
процесса <ИмяПользователя> пользователя".

Подскажите, что не так пожалуйста