VBScriptで画像のサイズを取得

メモ
VBScriptで画像のサイズ（ピクセル数）を取得するやりかた。
strFileNameは画像へのパス。

ImgSizeStr = objFolder.GetDetailsOf(strFileName, 26) 
 ImgSizeTbl = split(ImgSizeStr, " ")
  Xsize = CDbl(ImgSizeTbl(0))
  Ysize = CDbl(ImgSizeTbl(2))

もっといいやり方あるんだろうなぁ
でも、調べる時間もったいないし別に不都合無いからこれでおｋ。