Function KillProcess($sProcessname, Optional $sComputer)
  Dim $x, $objWMIService, $colItems, $objItem
  If $sComputer = ""
    $sComputer = "."
  EndIf

  $objWMIService = GetObject("winmgmts:\\" + $sComputer + "\root\cimv2")

  If @ERROR
    $x = MessageBox(@SERROR,"Error",0)
    Exit(1)
  EndIf

  $colItems = $objWMIService.ExecQuery("Select * from Win32_Process",,48)

  For Each $objItem In $colItems
    If $objItem.Name = $sProcessname
      $strWBEMPath = "Win32_Process.Handle=" + $objItem.ProcessID
      $objInstance = $objWMIService.Get($strWBEMPath)
      $intStatus = $objInstance.Terminate(1)
      If $intStatus <> 0
         $x = MessageBox("Killing Process " + $sProcessName + " Failed" + @CRLF + @SERROR,"Error",0)
      EndIf
    EndIf
  Next
EndFunction

strComputer = "."
   set processes = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("Select * from Win32_Process")

   For Each process In processes    
   	    RT = process.GetOwner(NameOfUser)
   	    Wscript.Echo "--"& NameOfUser &"--"         
   Next  

  $strComputer = "."
   $processes = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2").ExecQuery("Select * from Win32_Process")

   For Each $process In $processes
   	    $RT = $process.GetOwner($NameOfUser)
   	    ? "--"+ $NameOfUser +"--"
   Next