Здравствуйте, подскажите пож.
Есть скрип на вб, завершает все процессы 1с 7.7
   СК=CreateObject("MSScriptControl.ScriptControl");
   СК.Language="VBscript";
   Стр="Function sss()
   |Set Locator=CreateObject(""WbemScripting.SWbemLocator"")
   |Set Services=Locator.ConnectServer(""."")
   |Set Items=Services.ExecQuery(""Select * from Win32_Process Where Name = '1cv7s.exe'"")
   |For Each Item in Items
   |If Item.GetOwner ( User, Domain ) = 0 Then
   |If (User <> ""петров"") Then
   | sss = sss & User & vbCrLf
//    | Item.Terminate()
   |End If
   |End If
   |Next
   |End Function";
   
   СК.AddCode(Стр);
   Сообщить(СК.Run("sss"));
Как сделать так, чтобы убивались все процессы кроме петрова.
Сейчас это работает, но в процессах остаются еще юзеры, т.е каких то завершает, а кто остается
?