[Aynyuh]

Пока что вышел из ситуации таким образом. Скрипт в зависимости от локализации системы (русская или английская) пытается активировать окно свойств, передавая заголовок окна, до тех пор пока данное окно не активируется, либо цикл не отработает 11 раз:

Код:

  For i = 0 To 10
    ' с окном свойств какая-то шняга, оно то появляется на переднем плане, то нет
    ' пока не разобрался, вот такой костыль будет
    If GetLocale = 1049 Then
      ' Russian — ru — 0x0419 — 1049
      If WshShell.AppActivate("Свойства: " & aPath(UBound(aPath))) Then Exit For
    Else
      If WshShell.AppActivate(aPath(UBound(aPath))) Then Exit For
    End If
    WScript.Sleep 1000
  Next