画面上の HTA を中央揃えにする方法はありますか

HTAをちょこちょこいじくっていてプログラムを画面中央に表示したいなーどこかにコード落ちていないかなーと思って探してみたら「Hey, Scripting Guy! 画面上の HTA を中央揃えにする方法はありますか」にちょうどピッタリなコードがあったのでそれを使ってみることに。

以下がそのコード。

<html> 
<head> 
 
<title>Centered HTA</title> 
 
<HTA:APPLICATION  
     ID="objHTA" 
     APPLICATIONNAME="Centered HTA" 
     SCROLL="yes" 
     SINGLEINSTANCE="yes" 
> 
</head> 
 
<SCRIPT Language="VBScript"> 
    Sub Window_Onload 
        strComputer = "." 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
        Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor") 
        For Each objItem in colItems 
            intHorizontal = objItem.ScreenWidth 
            intVertical = objItem.ScreenHeight 
        Next 
        intLeft = (intHorizontal - 800) / 2 
        intTop = (intVertical - 600) / 2 
        window.resizeTo 800,600 
        window.moveTo intLeft, intTop 
    End Sub 
</SCRIPT> 
 
<body></body> 
</html>

<html>

<head>

<title>Centered HTA</title>

<HTA:APPLICATION

ID="objHTA"

APPLICATIONNAME="Centered HTA"

SCROLL="yes"

SINGLEINSTANCE="yes"

</head>

Sub Window_Onload

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

For Each objItem in colItems

intHorizontal = objItem.ScreenWidth

intVertical = objItem.ScreenHeight

intLeft = (intHorizontal - 800) / 2

intTop = (intVertical - 600) / 2

window.resizeTo 800,600

window.moveTo intLeft, intTop

End Sub

</SCRIPT>

</html>

が、これをそのままコピペして実行してみるもなんとうまくいかない！！

「種類が一致しません。」と出てしまう。

うーむ。どうやら見てみると下記で今使っているディスプレイの値をとれていないらしい。

            intHorizontal = objItem.ScreenWidth 
            intVertical = objItem.ScreenHeight

1 2	intHorizontal = objItem.ScreenWidth intVertical = objItem.ScreenHeight

物理的なPCだと普通に中央に表示されるため、今使用している端末が仮想的なやつなのでそれが原因でディスプレイの情報をもってこれないのかなと思います。

なので、対策してみました。
マリーアントワネットも言ってましたが、「ディスプレイのサイズが取れないなら、強制的に値を入れればいいじゃないの」ということをすればいいですね。
シンプル。
シンプルですが使う環境が特定されていないとダメっちゃだめですけどね。

<html> 
<head> 
 
<title>Centered HTA</title> 
 
<HTA:APPLICATION  
     ID="objHTA" 
     APPLICATIONNAME="Centered HTA" 
     SCROLL="yes" 
     SINGLEINSTANCE="yes" 
> 
</head> 
 
<SCRIPT Language="VBScript"> 
    Sub Window_Onload 
        strComputer = "." 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
        Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor") 
        For Each objItem in colItems 
            intHorizontal = objItem.ScreenWidth 
            intVertical = objItem.ScreenHeight 
        Next 
        tmp = IsNull(intHorizontal)
        if tmp = True then
            intHorizontal =1920
            intVertical = 1080
        end if        
        intLeft = (intHorizontal - 800) / 2 
        intTop = (intVertical - 600) / 2 
        window.resizeTo 800,600 
        window.moveTo intLeft, intTop 
    End Sub 
</SCRIPT> 
 
<body></body> 
</html>