método AppActivate disponível no VBScript pode fazer isso
Exemplo para se concentrar no bloco de notas está abaixo:
Dim ObjShell :Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.AppActivate("Notepad")
Você também pode envolver isso em um aplicativo HTA para definir o programa imediatamente.