Set wnd = CreateObject("UltraMon.Window")
msg = ""
If wnd.GetForegroundWindow() = True Then
	msg = "Caption: " & wnd.Title & vbNewline
	msg = msg & "Class: " & wnd.Class & vbNewline
	msg = msg & "Monitor: " & wnd.Monitor & vbNewline
	msg = msg & "Position: " & wnd.Left & "," & wnd.Top & vbNewline
	msg = msg & "Size: " & wnd.Width & " x " & wnd.Height & vbNewline
Else
	msg = "There is no active window."
End If
MsgBox msg,, WScript.ScriptName