Auto Tab entre Telas

Boas!

Para quem gosta de colocar vários controles em uma TV como graficos vindo do access, planilhas, vídeos ou mesmo power point
segue uma solução bem bacana para que fique alternando entre telas no windows

Abra um bloco de notas cole o código abaixo e salve como AutoTab.vbs
*20.000 equivale a 20 segundos entre telas

Código:

Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Do
      objShell.SendKeys "%+{TAB}"
      Wscript.Sleep 20000
Loop

e Para finalizar o AutoTab, crie um novo bloco de notas e salve como AutoTab_Fechar.vbs

Código:

Option Explicit

Dim strComputer : strComputer = "."
Dim objWMIService : Set objWMIService = GetObject("winmgmts:\\" & _
                        strComputer & "\root\cimv2")
Dim colProcesses : Set colProcesses = objWMIService.ExecQuery(_
                  "Select * From Win32_Process Where Name = 'wscript.exe'")
Dim objProcess, strUserName, strDomain, strCommandLine
For Each objProcess In colProcesses
    On Error Resume Next
    ' CommandLine is valid for WinXP and greater
    strCommandLine = objProcess.CommandLine
    objProcess.GetOwner strUserName, strDomain
    WScript.Echo strCommandLine
    WScript.Echo strDomain & "\" & strUserName
    WScript.Echo ""
    strCommandLine = "" : strUserName = "" : strDomain = ""
    objProcess.Terminate() ' to kill process
    On Error GoTo 0
Next

o fechar vai apresentar alguns alertas é só ir confirmando...

caso alguém tenha uma sugestão para melhorar o fechar deixa aqui em baixo vai ajudar todo mundo inclusive eu!  

Muito legal, vou testar assim que tiver um tempinho. Obrigado por compartilhar!
*Obs.: movi de repositório, pois esse VBS não está sendo aplicado no Access.