Discussion :

[guigui69]

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

[guigui69]

Re-

Je viens de trouver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[guigui69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[l_autodidacte]

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

[l_autodidacte]

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 :

[guigui69]

Bonjour,

j'ai toujours erreur à ce niveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For Each objFile in colFiles

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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