GPS-метаданные со сценарием WSH

Question

Я пытаюсь извлечь метаданные GPS из коллекции изображений с помощью VBScript. Используя объект Shell.Application, я могу получать метаданные из файла, но они не содержат информации GPS. Является ли это возможным? Сокращенный скрипт для разбора metada из файла Я использую:

<job id="main"> 
    <object id="objShell" progid="Shell.Application" /> 
    <script language="VBScript"> 
     Dim arrHeaders(300) 
     Set objFolder = objShell.Namespace("c:\Path\To\Folder\With\One\Jpg\") 
     For i = 0 to 299 
      arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i) 
     Next 
     For Each strFileName in objFolder.Items 
      For i = 0 to 299 
       Wscript.Echo i & vbtab & arrHeaders(i) & ": " & objFolder.GetDetailsOf(strFileName, i) 
      Next 
     Next 
    </script> 
</job> 

Answer 1

Я нашел решение на сайте Пола Гранта http://www.paulgrant.ca/code_image_details_gps.html.

Очень красивые и чистые сценарии.