VBScript/w AppActivate для нескольких экземпляров приложения

Question

У нас есть приложение, которое минимизирует себя в верхнем левом углу экрана при отключении от вашего рабочего стола VMware View. Поэтому я написал следующую VBS, которая активирует приложение и максимизирует его, что отлично работает.

Set objShell = CreateObject("WScript.Shell") 
objShell.AppActivate "notepad" 

objShell.SendKeys "% r" 

objShell.SendKeys "% x" 

Но некоторые пользователи имеют несколько экземпляров одного и того же приложения. Так что мне интересно, как заставить этот скрипт выполнять для каждого экземпляра приложения? Я предполагаю, что мне нужно будет отключить PID, поскольку каждый экземпляр будет иметь свой собственный PID, но я не уверен, как это сделать.

Спасибо, Brian

Answer 1

AppActivate принимает PID. Вы можете использовать WMI для извлечения PID всех процессов с этим именем.

Option Explicit 

Dim Shell, WMI, wql, process 

Set Shell = CreateObject("WScript.Shell") 
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 

wql = "SELECT ProcessId FROM Win32_Process WHERE Name = 'notepad.exe'" 

For Each process In WMI.ExecQuery(wql) 
    Shell.AppActivate process.ProcessId 
    Shell.SendKeys "% r" 
    Shell.SendKeys "% x" 
Next 

См. Также the Win32_Process class documentation.