VBSでIEのウィンドウサイズを強制的に変えれない・・・

質問

VBScriptでウィンドウの操作をするプログラムを作っています。

JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更するのはテストサイトでは問題ないのですが・・・

本当に対象としているサイトは社内インヨラサイト内なので見れないのですが・・・

http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja

テストサイトではobjWindow.Document.URL = URL2とすればabout:blankがURL2のサイトになるのですが・・・対象サイトのアドレスはどうしても入ってくれません。
URL2をグーグルのアドレスに変えてみればうまくいくのですがその対象サイトだけはどうしてもダメです。

そのサイトに入るにはテストサイト同様にリンクをクリックしてからでないと入れないようになっています。そのハイパーリンクで右クリックの対象ファイルを保存をすると「Internet Explorerでは、○○をダウンロードできません。インターフェイスがサポートされていません。」となるようなサイトです。

どうにかしてオープンする前にウィンドウサイズを指定してしまいたいのですがどうにもこうにもうまくいきません。
例えばなのですが、元サイトをいじることなく一旦JavaScriptなどで指定されているサイズを”一時的”に書き換えて立ち上げるとかは出来ないでしょうか？

回答No.1

nemutai_sh · ベストアンサー

' ウィンドウサイズの指定を具体的にどのように行っているのか記載されていませんが、
' 通常は、IEオブジェクトで指定できます。

'''''
set objWindow=CreateObject("InternetExplorer.Application")

' ↓表示前に窓サイズ指定
objWindow.Top=2
objWindow.Left=2
objWindow.Width=600
objWindow.Height=600

objWindow.Visible=True
objWindow.Navigate("http://www.google.co.jp/")
Do: WScript.Sleep(200): Loop Until (NOT objWindow.busy) AND (objWindow.readyState=4)
msgbox "何かキー押すとサイズを変更します。"

' ↓表示後に窓サイズ指定
objWindow.Top=400
objWindow.Left=400
objWindow.Width=200
objWindow.Height=200

参考URL：

http://msdn2.microsoft.com/en-us/library/aa752084.aspx