以下に簡単な例を示します。
Sample.vbs
'//---
'// ex1: Image is in file.
set oJPGPS = createobject("JPGPS")
set oInfo = oJPGPS.GetInfo("sample.jpg")
wscript.echo "ex1:"
for each i in oInfo
wscript.echo i & ":" & oInfo(i)
next
'//---
'// ex2: Image is in stream.
set oStream = createobject("ADODB.Stream")
'{
oStream.open
oStream.type = 1
oStream.loadFromFile "sample.jpg"
'}
set oInfo = oJPGPS.GetInfo( oStream.read(-1) )
wscript.echo "ex2:"
for each i in oInfo
wscript.echo i & ":" & oInfo(i)
next
[console output]
ex1:
GPSLatitude:36:4:0.04
GPSLatitudeRef:N
GPSLongitude:136:14:44.56
GPSLongitudeRef:E
GPSMapDatum:WGS-84
GPSProcessingMethod:JIS
GPSVersionID:2 2 0 0
ex2:
GPSLatitude:36:4:0.04
GPSLatitudeRef:N
GPSLongitude:136:14:44.56
GPSLongitudeRef:E
GPSMapDatum:WGS-84
GPSProcessingMethod:JIS
GPSVersionID:2 2 0 0