Узнать название окна программы exe в Windows

' запускать для консоли, для Блокнота, так:  cscript //nologo get_title.vbs notepad
 
Dim fso, sh : Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
 
Dim src, exe
src = "GetWindowTitle.cs"
exe = "GetWindowTitle.exe"
 
' ---------- 1.  поиск компилятора ----------
Function FindCsc()
    Dim paths, p
    paths = Array( _
        "C:\Windows\Microsoft.NET\Framework\v4.0.30319\csc.exe", _
        "C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe", _
        "C:\Windows\Microsoft.NET\Framework\v2.0.50727\csc.exe", _
        "C:\Windows\Microsoft.NET\Framework64\v2.0.50727\csc.exe")
    For Each p In paths
        If fso.FileExists(p) Then
            FindCsc = """" & p & """"
            Exit Function
        End If
    Next
    FindCsc = ""
End Function
 
Dim cscPath : cscPath = FindCsc()
If cscPath = "" Then
    WScript.Echo "Компилятор csc.exe не найден. Установи .NET Framework 2.0 или 4.0."
    WScript.Quit 1
End If
 
' ---------- 2.  создание и компиляция кода, если нет exe ----------
If Not fso.FileExists(exe) Then
    Dim code, tf
    code = _
"using System;" & vbCrLf & _
"using System.Diagnostics;" & vbCrLf & _
"class GetWindowTitle{" & vbCrLf & _
"  static void Main(string[] args){" & vbCrLf & _
"    if(args.Length==0){Console.WriteLine(""Usage: GetWindowTitle <process>"");return;}" & vbCrLf & _
"    string proc=args[0];" & vbCrLf & _
"    Process[] ps=Process.GetProcessesByName(proc);" & vbCrLf & _
"    string t=null;" & vbCrLf & _
"    foreach(Process p in ps){if(!string.IsNullOrEmpty(p.MainWindowTitle)){t=p.MainWindowTitle;break;}}" & vbCrLf & _
"    if (t == null) Console.WriteLine(""null""); else Console.WriteLine(t);" & vbCrLf & _
"  }" & vbCrLf & _
"}"
    Set tf = fso.CreateTextFile(src, True)
    tf.Write code : tf.Close
 
    Dim cmd
    cmd = cscPath & " /nologo /target:winexe /out:" & exe & " " & src
    Dim rc : rc = sh.Run(cmd, 0, True)
    If rc <> 0 Or Not fso.FileExists(exe) Then
        WScript.Echo "Не удалось скомпилировать GetWindowTitle.exe"
        WScript.Quit 1
    End If
End If
 
' ---------- 3.  вызов ----------
If WScript.Arguments.Count = 0 Then
    WScript.Echo "Usage: cscript //nologo get_title.vbs <processname>"
    WScript.Quit 1
End If
 
Dim procName : procName = WScript.Arguments(0)
Dim exec, line
Set exec = sh.Exec(exe & " " & procName)
 
Do Until exec.StdOut.AtEndOfStream
    line = exec.StdOut.ReadLine
    WScript.Echo line
Loop