Set g = CreateObject("shotgraph.image")
file_name = "c:\files\image.jpg"
Set info = g.GetImageInfo(file_name,1)
Wscript.echo info("Model")

Set g = CreateObject("shotgraph.image")
filename = "c:\images\ixus.jpg"
Set info = g.GetImageInfo(filename)
s = ""
for each key in info
	s = s & key & ": "
	if IsArray(info(key)) then
		ar = info(key)
		for j = 0 to UBound(ar)
			s = s & ar(j) & " "
		next
		s = s & Chr(13) & Chr(10)
	else
		s = s & info(key) & Chr(13) & Chr(10)
	end if
Next
Wscript.echo s

Set g = CreateObject("shotgraph.image")
filename = "c:\images\a13257.jpg"
Set ii = g.GetImageInfo(filename,0)

%><table border=1 cellspacing=0 cellpadding=2>
<tr><th>Key</th><th>Value</th><th>Description</th></tr><%

rowcolor = ""
for each key in ii
	data = ""
	description = ii(key).description
	textvalue = ii(key).textvalue
	if IsArray(ii(key).value) then
		ar = ii(key).value
		for j = 0 to UBound(ar)
			data = data & ar(j) & " "
		next
	else

		if textvalue = "" then		
			data = ii(key).value
		else
			data = textvalue
		end if

	if description = "" then description = " "

	if rowcolor <> "#eeffee" then
		rowcolor = "#eeffee"
	else
		rowcolor = "#f9fff9"
	end if

	%><tr bgcolor="<%=rowcolor%>">
		<td><B><%=key%></B></td>
		<td><%=data%></td>
		<td><%=description%></td>
		</tr><%
	end if
Next

%></table><%