VBS 画像ファイルのサイズ（幅×高さ）取得 PNG&TIFF対応

LoadPicture関数では失敗してしまう

JPEGだといけるのに、PNGだとエラーになってしまう。
「たかが縦横サイズだけなのに」と絶望しかけていたら、StackOverflowで海外の方が回答されていました！
しかも、ピクセル単位で取得してくれるので下手な計算も必要ありません。
StackOverflow - Need to read width/height from graphics file with VBScript/ASP classic

スクリプト

imgFilePath = "tmp.PNG" 'JPEG、TIFFにも使用できることを確認

' インスタンス作成
Set objImg = CreateObject("WIA.ImageFile")
' ファイルパス指定
objImg.LoadFile(imgFilePath)
' 幅x高さで表示
WScript.Echo(objImg.Width & "x" & objImg.Height & "(ピクセル)")
' インスタンス初期化
Set wia = Nothing

'### または ###
With CreateObject("WIA.imagefile")
    .LoadFile(imgFilePath)
    WScript.Echo(.Width & "x" & .Height & "(ピクセル)")
End With

'### 実行結果 ###
'1920x1080(ピクセル)

参考

StackOverflow - Need to read width/height from graphics file with VBScript/ASP classic
WIA.ImageFileオブジェクトについて（公式）