How can I check to see if the active window is maximized with vbs?

When I'm working, I want to be able to maximize or restore a window. B开发者_如何学JAVAut I only want to use one shortcut key to do it. I am currently using the below code to perform the function of maximizing. However, if the window is already maximized, this won't 'restore' the window.

Set oShell = CreateObject("WScript.Shell") 
oShell.SendKeys "% x"

I guess I'm thinking of code like this:

if window state=Maximized 
then Restore
else Maximize

This logic will 'maximize' the window if it isn't and 'restore' it if it is.

Thanks.

PS: Extra points if you skip the whole SendKeys thing and go straight to native commands.

VBScript and Windows Script Host don't provide access to Windows API, so you can't do that.

A possible workaround is to write a custom utility (in C++, C# with PInvoke etc) that will perform this kind of check and call it from your script.