Vos réglages, si vou plé...

' Filename: showexif.vbs
'
' Author: Fred-Eric Lafaille
'
' Date: 3 Mars, 2006
'
' Ce WSH script
'
' Usage: Glisser un fichier image sur le script et il vous montre ses exif.
'

Option Explicit
Const ReadOnly = 1

'dim objShell
Dim objargs, num, stlog, objshell, logfile, iso, obj_fichier_base
Dim stNom, file, fso, s, objFileCopy, I, fso2, Fld ,NewFolder ,cnt, file2chg_att, extenso, obj_fichier, Shell, objfolder, mycount
Dim objWshShell, OutLine, lentille
Dim msg, lsPath, arPath, cont_obj_fichier, cont_total, folder_base, getfolder, objfolderItem, fichier, folder




Set fso = CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set Shell = WScript.CreateObject ("Shell.Application")
Set objShell = CreateObject("Shell.Application")
Set objargs = WScript.Arguments

num = objargs.Count



if num < 1 or num > 1 then
WScript.Echo "Erreur: Maximum un fichier"
WScript.Quit 1
end if

cont_total = len(objArgs(0))
obj_fichier = FSO.GetFileName(objArgs(0))
cont_obj_fichier = len(obj_fichier)
folder = left(objArgs(0),cont_total - cont_obj_fichier -1 )
folder_base = InStrRev(folder, "\",-1,1)
getfolder = right(folder, 8 - 1)
set objFolder = objShell.NameSpace(folder)
wscript.echo "obj_fichier: " & obj_fichier & chr(13) & _
"folder: " & folder & chr(13) & _
"count fichier: " & cont_obj_fichier & chr(13) & _
"count path: " & cont_total & chr(13) & _
"folder_base: " & folder_base & chr(13) & _
"Getfolder: " & getfolder
set objfolderItem = objFolder.ParseName(obj_fichier)
logfile = "z:\temp\" & obj_fichier & ".log"
Set stlog = fso.CreateTextFile(logfile, True)

stlog.WriteLine folder & obj_fichier

stlog.WriteLine "Nom du fichier: " & objFolder.GetDetailsOf(objFolderItem, 0)


stlog.WriteLine "Size: " & objFolder.GetDetailsOf(objFolderItem, 1)
stlog.WriteLine "Type: " & objFolder.GetDetailsOf(objFolderItem, 2)
'stlog.WriteLine "Date Modified: " & objFolder.GetDetailsOf(objFolderItem, 3)
'stlog.WriteLine "Date Created: " & objFolder.GetDetailsOf(objFolderItem, 4)
'stlog.WriteLine "Date Accessed: " & objFolder.GetDetailsOf(objFolderItem, 5)
stlog.WriteLine "Image Dimensions: " & objFolder.GetDetailsOf(objFolderItem, 40)
stlog.WriteLine "Date Image Taken: " & objFolder.GetDetailsOf(objFolderItem, 41)
stlog.WriteLine "Digital Image Type: " & objFolder.GetDetailsOf(objFolderItem, 43)
stlog.WriteLine "Color Space: " & objFolder.GetDetailsOf(objFolderItem, 44)
stlog.WriteLine ""
stlog.WriteLine "Camera Model: " & objFolder.GetDetailsOf(objFolderItem, 42)

If objFolder.GetDetailsOf(objFolderItem, 50) = "18-200 mm" Then
stlog.WriteLine "Lentille Utilisé: AF-S DX VR Zoom-Nikkor 18-200mm f/3.5-5.6G IF-ED"
lentille = "AF-S DX VR Zoom-Nikkor 18-200mm f/3.5-5.6G IF-ED et filtre Nikon NC 72mm"
Elseif objFolder.GetDetailsOf(objFolderItem, 50) = "50 mm" then
stlog.WriteLine "Lentille Utilisé: Nikkor 50mm 1.8D"
lentille = "Nikkor 50mm 1.8D et Filtre Nikon NC 52mm"

Elseif objFolder.GetDetailsOf(objFolderItem, 50) = "18-55 mm" then
stlog.WriteLine "Lentille Utilisé: AF-S DX Zoom-Nikkor 18-55mm f3.5-5.6G ED"
lentille = "AF-S DX Zoom-Nikkor 18-55mm f3.5-5.6G ED"

Elseif objFolder.GetDetailsOf(objFolderItem, 50) = "18-70 mm" then
stlog.WriteLine "Lentille Utilisé: AF-S DX Zoom-Nikkor 18-70mm f/3.5-4.5G IF-ED"
lentille = "AF-S DX Zoom-Nikkor 18-70mm f/3.5-4.6G IF-ED"

Else
stlog.WriteLine "Lentille Utilisé: Inconnue"
lentille = "n/d"

End if

'stlog.WriteLine "Lentille Utilisé: " & objFolder.GetDetailsOf(objFolderItem, 50)
stlog.WriteLine "Focal: " & objFolder.GetDetailsOf(objFolderItem, 49)
stlog.WriteLine "Balance des Blancs: " & objFolder.GetDetailsOf(objFolderItem, 48)
stlog.WriteLine "Ouverture: " & objFolder.GetDetailsOf(objFolderItem, 45)
stlog.WriteLine "Vitesse: " & objFolder.GetDetailsOf(objFolderItem, 46)
stlog.WriteLine "ISO: " & objFolder.GetDetailsOf(objFolderItem, 47)
'stlog.WriteLine "Keywords: " & objFolder.GetDetailsOf(objFolderItem, 51)
stlog.WriteLine ""
stlog.WriteLine ""
stlog.WriteLine ""
'Nikon D50 :: AF-S DX VR Zoom-Nikkor 18-200mm f/3.5-5.6G IF-ED
'Focal 75 mm :: Ouverture f/5.3 :: Vitesse 1/25 :: ISO 200
stlog.WriteLine objFolder.GetDetailsOf(objFolderItem, 42) & " :: " & lentille
stlog.WriteLine "Focal " & objFolder.GetDetailsOf(objFolderItem, 49) & " :: Ouverture " & objFolder.GetDetailsOf(objFolderItem, 45) & " :: Vitesse " & objFolder.GetDetailsOf(objFolderItem, 46) & " :: ISO " & objFolder.GetDetailsOf(objFolderItem, 47)




'shell.open newFolder
objShell.Open(logfile)
set objShell = nothing

Biem a écrit:Salut,

Fonctionne pas chez moi, Norton n'aime pas du tout

Samyone a écrit:Salut,

Pour ceux qui ont Firefox, vous pouvez instaler un lecteur d'exifs :
http://ted.mielczarek.org/code/mozilla/fxif/

Un simple clic droit / Propriétés surl'image vous donnera les Exifs de la photo.

@pluche

Azram a écrit:Trés sympa, merci Fred
Mais on en fait quoi de ce truc plein de texte peux tu ajouter des explications facilement compréhensibles pour tout le monde

0 Name: _DSC1779.NEF
1 Size: 5 351 KB
2 Type: NEF File
3 Date Modified: 2006-02-21 21:43
4 Date Created: 2006-02-21 22:00
5 Date Accessed: 2006-03-04 14:07
6 Attributes: A
7 Status: Online
8 Ext: nef
9 Treesize: 5.2 MB
10 Owner: SCUBA\flafaille
11 Author:
12 Title:
13 Subject:
14 Category:
15 Pages:
16 Comments:
17 Copyright:
18 Artist:
19 Album Title:
20 Year:
21 Track Number:
22 Genre:
23 Duration:
24 Bit Rate:
25 Protected:
26 Camera Model:
27 Date Picture Taken:
28 Dimensions:
29 :
30 :
31 Episode Name:
32 Program Description:
33 :
34 Audio sample size:
35 Audio sample rate:
36 Channels:
37 Company:
38 Description:
39 File Version:
40 Product Name:
41 Product Version:
42 Image Dimensions: 3008 x 2000
43 Date Image Taken: 2006-02-21 21:43:31
44 Camera Model: Nikon D50
45 Digital Image Type: Nikon RAW Image (.NEF)
46 Color Space: Adobe RGB (1998)
47 Aperture: f/5.6
48 Shutter: 1/60
49 ISO Speed: 400
50 White Balance: Auto
51 Focal Length: 200 mm
52 Lens Type: 18-200 mm
53 Keywords: