' Enumerate Top Level Windows
' using Vbsedit's free Toolkit
Set toolkit = CreateObject("Vbsedit.Toolkit")
For Each w In toolkit.TopLevelWindows
WScript.Echo "[" & w.IsVisible & "][" & w.Handle & "][" & w.windowtitle & _
"][" & w.ClassName & "][" & w.X & ":" & w.Y & ":" & w.width & ":" & w.height & "]"
Next