Vbscript 平铺特定命名的窗口/应用程序

我试图水平平铺两个窗口，即从任务管理器中选择两个程序并水平平铺

目前，我只能通过最小化所有窗口，然后恢复我希望平铺的两个窗口来使用VBScript实现这一点，如下代码所示

是否可以使用VBScript（或其他方式）平铺两个特定名称的应用程序，而不必最小化所有内容，也不必通过VBScript加载应用程序

Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeALL
WScript.Sleep 500 
Set shl = CreateObject("WScript.Shell")
shl.AppActivate "Application 1"
WScript.Sleep 500  
shl.SendKeys "% r"
WScript.Sleep 500  
shl.AppActivate "Application 2"
shl.SendKeys "% r"
WScript.Sleep 500  
objShell.TileVertically  
Set shl = Nothing
Set objShell = Nothing