Выполнять бесконечно

login = "123"
pass = "123"
patchQUIK="C:\Folder\info.exe"
 
Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")
Set colProcessesWinros = objService.ExecQuery("select * from Win32_Process WHERE Name='winros.EXE'")
Set colProcessesInfo = objService.ExecQuery("select * from Win32_Process WHERE Name='info.EXE'")
 
If colProcessesWinros.Count > 0 and colProcessesInfo.Count < 1 Then
  For Each Process In objService.ExecQuery("select * from Win32_Process WHERE Name='winros.EXE'")
      Process.Terminate
  Next
End If
WScript.Sleep 1000
 
Set colProcessesWinros = objService.ExecQuery("select * from Win32_Process WHERE Name='winros.EXE'")
Set colProcessesInfo = objService.ExecQuery("select * from Win32_Process WHERE Name='info.EXE'")
 
If colProcessesWinros.Count < 1 and colProcessesInfo.Count < 1 Then
  set WshShell = WScript.CreateObject("WScript.Shell")
  createobject("Wscript.Shell").run patchQUIK
    Do Until Dummy = true
       WScript.Sleep 100
    Loop 
    Call Logon
    Function Dummy
    Dummy = false
    If WshShell.AppActivate("Идентификация пользователя") then
    Dummy = True
    Exit Function
    End If
    End Function
    Sub Logon
    WshShell.SendKeys login
    WshShell.SendKeys "{TAB}"
    WScript.Sleep 100
    WshShell.SendKeys pass
    WScript.Sleep 100
    WshShell.SendKeys "{Enter}"
    End Sub
   WScript.Sleep 100
End If
 
Set objService = nothing
Set colProcessesWinros = nothing
Set colProcessesInfo = nothing
Set Process = nothing
set WshShell =nothing

Sub Logon
WshShell.SendKeys login
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys pass
WScript.Sleep 100
WshShell.SendKeys "{Enter}"
End Sub