E-Mail

E-Mail

E-Mail

E-Mail

E-Mail

E-Mail

E-Mail

E-Mail

Jpeg ファイル以外を喰わせたらエラーになるのでチト修正。
' -----------------------------------------------------------------------------
Option Explicit
Dim Arg, File
Set Arg = WScript.Arguments

If Arg.Count < 1 Then
    WScript.Quit
End If

File=ARG(0)

If Not IsNull(File) Then
  Dim Stream, _
      Data1, Data2, Data3, _
      DataX, DataX1, DataX2, _
      DataY, DataY1, DataY2
  Set Stream = WScript.CreateObject("Adodb.Stream")
  Stream.Type = 1
  Stream.Open
  Stream.LoadFromFile File
  Do while not Stream.EOS
    Data1 = Stream.Read(1)
    Data2 = Stream.Read(1)
    Data3 = Stream.Read(2)
    If (AscB(Data1) = 255) Then
      If ((AscB(Data2) >= &HC0) And (AscB(Data2) =< &HC3)) Then
        Data3  = Stream.Read(1)
        DataY1 = Stream.Read(1)
        DataY2 = Stream.Read(1)
        DataX1 = Stream.Read(1)
        DataX2 = Stream.Read(1)
        DataX = AscB(DataX1) * &H100 + AscB(DataX2)
        DataY = AscB(DataY1) * &H100 + AscB(DataY2)
        Exit Do
      End If
    End If
  Loop
  Stream.Close
  Set Stream = Nothing
End If

If (DataX + DataY) Then
  WScript.Echo DataX & " , " & DataY
Else
  WScript.Echo "This is not Jpeg File."
End If
' -----------------------------------------------------------------------------

> 一応、Jpeg の構造からサイズを取得する方法は次のようになっているようです。
> Re: JPEG ファイルのイメージの大きさを知る方法
> http://java-house.jp/ml/archive/j-h-b/027543.html#body

一番簡単な範囲内で・・・

GetSizeJpeg.vbs  ( ex. GetSizeJpeg.vbs x:\path\image.jpeg )

' -----------------------------------------------------------------------------
Option Explicit
Dim Arg, File
Set Arg = WScript.Arguments

If Arg.Count < 1 Then
    WScript.Quit
End If

File=ARG(0)

If Not IsNull(File) Then
  Dim Stream, _
      Data1, Data2, Data3, _
      DataX, DataX1, DataX2, _
      DataY, DataY1, DataY2
  Set Stream = WScript.CreateObject("Adodb.Stream")
  Stream.Type = 1
  Stream.Open
  Stream.LoadFromFile File
  Do
    Data1 = Stream.Read(1)
    Data2 = Stream.Read(1)
    Data3 = Stream.Read(2)
    If (AscB(Data1) = 255) Then
      If ((AscB(Data2) >= 192) And (AscB(Data2) =< 195)) Then
        Data3  = Stream.Read(1)
        DataY1 = Stream.Read(1)
        DataY2 = Stream.Read(1)
        DataX1 = Stream.Read(1)
        DataX2 = Stream.Read(1)
        DataX = AscB(DataX1)*256 + AscB(DataX2)
        DataY = AscB(DataY1)*256 + AscB(DataY2)
        Exit Do
      End If
    End If
  Loop
  Stream.Close
  Set Stream = Nothing
End If

WScript.Echo DataX & " , " & DataY
' -----------------------------------------------------------------------------

VBScript で画像ファイルの画像の大きさを取得する (unibon)
http://www.geocities.co.jp/SiliconValley/4334/unibon/asp/getimagesize.html

WMI か VBS からエクスプローラの情報を取得する方法があると
思うけど、見つけられなかった。

jpeg だけで無くイメージを広く扱う事を考えて、上のを参考に
して、既知のイメージを桐のテンプレートにあるファイルに
してしまうと、次のようなスクリプトで可能ではあります。

GetImageSize.vbs  ( ex. GetImageSize.vbs x:\path\image.jpeg )

' ------------------------------------------------------------------------------
Option Explicit
Dim WS, FS, Arg
Set WS  = WScript.CreateObject("WScript.Shell")
Set FS  = WScript.CreateObject("Scripting.FileSystemObject")
Set Arg = WScript.Arguments

Dim KiriVer, KiriPath, KiriImage, ImageFile
KiriVer = WS.RegRead("HKCR\.tbl\")
If     KiriVer = "Kiri8tbl" Then
  KiriPath = WS.RegRead("HKLM\SOFTWARE\K3\KIRI\8.0\Path")
  KiriImage = KiriPath + "\Template\TTON2IND.BMP"
ElseIf KiriVer = "Kiri9tbl" Then
  KiriPath = WS.RegRead("HKLM\SOFTWARE\K3\KIRI\9.0\Path")
  KiriImage = KiriPath + "\Template\TTON2IND.BMP"
Else
  Ret = WS.Popup( "桐の関連付けがありません！" _
                , 0 _
                , "桐の関連付け確認" _
                , 0)
  Set Arg = Nothing
  Set FS  = Nothing
  Set WS  = Nothing
  WScript.Quit
End If

If Arg.Count < 1 Then
    WScript.Quit
End If

ImageFile=ARG(0)

Dim x, y
Call GetImageSize(ImageFile, x, y, KiriImage, 100, 113)
WScript.Echo"幅 = " & x & ", 高さ = " & y
WScript.Quit

Sub GetImageSize(ByVal f, ByRef x, ByRef y, ByVal r, ByVal xx, ByVal yy)
    Dim p
    Set p = LoadPicture(f) ' 未知の画像
    Dim q
    Set q = LoadPicture(r) ' 既知の画像
    x = CLng(CDbl(xx) * CDbl(p.Width) / CDbl(q.Width)) ' CLng の丸めの機能を利用している。
    y = CLng(CDbl(yy) * CDbl(p.Height) / CDbl(q.Height)) ' CLng の丸めの機能を利用している。
    Set p = Nothing
    Set q = Nothing
End Sub
' ------------------------------------------------------------------------------

perl  でやれば、次のようなやつで可能ですね。
perl でやっちゃうとか vbs とかで組み押して使うとか？

#!/usr/bin/perl

$filename = $ARGV[0];
local($t, $m, $c, $l, $wi, $hi);

open(JPEG, $filename);
binmode JPEG;
read(JPEG, $t, 2);
while (1) {
        read(JPEG, $t, 4);
        ($m, $c, $l) = unpack("a a n", $t);

        if ($m ne "\xFF") { $wi = $hi = 0; last; }
        elsif ((ord($c) >= 0xC0) && (ord($c) <= 0xC3)) {
                read(JPEG, $t, 5);
                ($hi, $wi) = unpack("xnn", $t);
                last;
        }
        else {
                read(JPEG, $t, ($l - 2));
        }
}
close(JPEG);

print "$wi, $hi";