[Serguei Kouzmine]

в пш - и наверное в vbscript можно переписать так как COM - в en-US Windows 7:

Код:

$shellApplication = New-Object -com 'Shell.Application'
$windows = $shellApplication.windows() | select-object LocationName, HWND, Name
$window = $windows | where-object {$_.LocationName -match'Personalization' -and $_.Visible -eq $true} | select-object -first 1
write-output $window | select-object LocationName,HWND,Name,FullName | format-list
$window.Quit()

взято из
https://devblogs.microsoft.com/scrip...on-a-computer/