Recuperer version d'un Executable

Bonjour à tous,


je voudrais réaliser un script VBS qui me retourne le numéro de version d'un exécutable.


Est-ce que cela est possible en VBS ?

(Je sais qu'on peut récuperer , le nom, le type etc.., mais je ne trouve pas pour le numero version)

Pourriez-vous m'indiquer comment récupérer ce type information.


Merci d'avance

guigui69

Re- :)

Je viens de trouver :

Code:

---

1 2 3

Set objFSO = CreateObject("Scripting.FileSystemObject") Wscript.Echo objFSO.GetFileVersion("c:\windows\system32\scrrun.dll")

---

Par contre maintenant je cherche VBS comment faire une recherche pour trouver exécutable de mon application qui a la date la plus récente.

Re-bonjour,

j'essai de tester avec VMI mais meme les teste de base de retour les erreur "Echec de l'appel de procédure distance"

(je suis encore sous XP, mais je pense pas que ca soit le probleme )

Code:

---

1 2 3 4 5 6 7 8 9

strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'") For Each objFile in colFiles Wscript.Echo "File Name: " & objFile.Name & "." & objFile.Extension Wscript.Echo "Path: " & objFile.Path Next

---

c'est un code exemple fournit pas microsoft et j'ai erreur Echec de l'appel de procedure...

Citation:

---

Par contre maintenant je cherche VBS comment faire une recherche pour trouver exécutable de mon application qui a la date la plus récente.

---

Peut-être que cette Contribution te donne une idée pour continuer ton investigation

Citation:

---

j'essai de tester avec VMI mais meme les teste de base de retour les erreur "Echec de l'appel de procédure distance"

---

Pour le RPC(Appel de Procédure Distante ou en anglais Remote Procedure Call), regarde ce POST en adjonction avec l'image suivante :

Bonjour,

j'ai toujours erreur à ce niveau

Code:

---

1 2	For Each objFile in colFiles

---

Citation:

---

j'ai toujours erreur à ce niveau For Each objFile in colFiles

---

Tu as certes un nom de fichier incorrect qui cause cette erreur "Argument ou Appel de procédure incorrecte"
Au lieu d'afficher une boite MsgBox une centaine voire des milliers de fois, je ferais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Option Explicit   Const ForWriting = 2 Dim I, strComputer,objWMIService, colFiles, objFile, Reponse, fso, objFich   Reponse = InputBox("Donner l'extension du type de fichier à rechercher :","Extension de fichier", "mp3") If Reponse = "" then Wscript.Quit 0 Else Set fso = CreateObject("Scripting.FileSystemObject") Set objFich = fso.OpenTextFile("Resultat.txt", ForWriting, True) I = 0 strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Extension = '" & Reponse & "'") For Each objFile in colFiles i = i + 1 objFich.WriteLine "[" & AddZeros(i) &"] " & objFile.Name 'chemin complet du fichier Next End If MsgBox "Nombre de fichiers trouvés : " & cstr(i) '================== Function AddZeros(varIn) AddZeros = Right("00000" & CStr(varIn),5) End Function

---