Discussion :

[fouji]

Bonjour,

Avant de commencer je voudrais vous dire que je ne suis pas très très bon en script (je commence, faut bien apprendre un jour)

Voilà le but de mon script est d'installer les mises à jour d'un logiciel (adobe reader, firefox, etc....)

J'essaye avec firefox

la version est inscrite dans le fichier application.ini qui se trouve dans C:\Program Files\Mozilla Firefox

la ligne est la suivante : MaxVersion=25.0.1

Je voudrais savoir comment faire un scrpit qui permet de lire cette ligne et de la comparer ?

Merci par avance.

Cordialement.

[hackoofr]

et Bienvenue dans DVP
Testez ce Script

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
Option Explicit
Const ForReading = 1
Dim fso,f,WS,ProgramFiles,FichierINI,ReadTextFileTest,Pos,Entree,MajorVersion
Set WS = CreateObject("WScript.shell")
ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
FichierINI = ProgramFiles & "\Mozilla Firefox\application.ini"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FichierINI,ForReading)
on error resume next
Do While f.AtEndOfStream <> True
   ReadTextFileTest = f.ReadLine
   Pos = instr(ReadTextFileTest, "=")
   Entree = Mid(ReadTextFileTest,1,Pos - 1)
   if Entree = "MaxVersion" then
      MajorVersion = Mid(ReadTextFileTest, Pos+1)
      MajorVersion = Left(MajorVersion, Len(MajorVersion))
      Exit do
   end if
loop
on error goto 0
f.Close
Set f = Nothing
MsgBox "La version actuelle de votre Firefox est V " & MajorVersion,64,"Version de Firefox " & MajorVersion

[fouji]

et Bienvenue dans DVP
Testez ce Script
.....

Impeccable ça fonctionne merci,

J'arrive à vérifier la version reste plus qu'à l'adapter pour qu'il lance la mise à jour

Merci

[hackoofr]

Impeccable ça fonctionne merci,
J'arrive à vérifier la version reste plus qu'à l'adapter pour qu'il lance la mise à jour

Alors, postez votre modification, et expliquez-nous la méthode que vous voulez faire pour atteindre votre objectif, ça sera plus cool de partager les idées non , moi aussi je suis intéressé pour le script du mise à jour

[hackoofr]

Une autre méthode pour déterminer la version actuelle de vos applications en utilisant FSO.GetFileVersion

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
Option Explicit
Dim fso,f,WS,ProgramFiles,App1,App2,App3,App4,App5
Set WS = CreateObject("WScript.shell")
ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
Set fso = CreateObject("Scripting.FileSystemObject")
 
App1 = ProgramFiles & "\Adobe\Reader 10.0\Reader\AcroRd32.exe"
App2 = ProgramFiles & "\Mozilla Firefox\firefox.exe"
App3 = ProgramFiles & "\WinRAR\WinRAR.exe"
App4 = ProgramFiles & "\Google\Chrome\Application\chrome.exe"
App5 = ProgramFiles & "\CCleaner\CCleaner.exe"
 
If fso.FileExists(App1) and fso.FileExists(App2) and fso.FileExists(App3) and fso.FileExists(App4) and fso.FileExists(App5) Then
    MsgBox "La version Adobe Reader est : " & FSO.GetFileVersion(App1) & VbCrLF & VbCrLF &_
    "La version de firefox.exe est : " & FSO.GetFileVersion(App2) & VbCrLF & VbCrLF &_
    "La version de Winrar.exe est : " & FSO.GetFileVersion(App3)  & VbCrLF& VbCrLF &_
    "La version de Google chrome est : " & FSO.GetFileVersion(App4) & VbCrLF & VbCrLF &_
    "La version de CCleaner.exe est : " & FSO.GetFileVersion(App5),64,"La version actuelle de vos applications" 
Else 
    MsgBox "Il y a une erreur !" & VbCrLF & "Vérifier bien les chemins de vos applications !",16,"Vérifier bien les chemins de vos applications !"
    Wscript.Quit
End if

[fouji]

J'essaye de faire une vérification depuis le registre, le souci c'est qu'il verifie pas et qui valide tout

mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Const ForReading = 1
Dim fso,f,WS,ProgramFiles,FichierINI,ReadTextFileTest,Pos,Entree,MajorVersion
Set WS = CreateObject("WScript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
on error resume next
Set Sh = WScript.CreateObject("WScript.Shell")
valcle=sh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Adobe\Adobe Reader\11.0\Capabilities\ApplicationName")
if txt="Adobe Reader XI (11.0.06)" then
MsgBox "coucou"
end if
on error goto 0