' Enumerate All Windows
' using Vbsedit's free Toolkit
Set toolkit = CreateObject("Vbsedit.Toolkit")
For Each window In toolkit.TopLevelWindows
enumWindows window,""
Next
Sub enumWindows(w,indent)
WScript.Echo indent & "[" & w.Handle & "][" & w.windowtitle & "][" & w.ClassName & "][" & w.X & ":" & w.Y & ":" & w.width & ":" & w.height & "]"
For Each child In w.ChildWindows
enumWindows child,indent & " "
next
End Sub