aide VBS

aide VBS - VB/VBA/VBS - Programmation

Marsh Posté le 05-11-2013 à 11:56:54    

Bonjour,  
 
On me demande de faire un script en VBS qui ira interroger un logiciel "X" pour verifier sa version et faire une installation si le logicile est <1.1
je pense qu'il faut utiliser GetFileVersion ou GetExtensionName mais je ne suis pas sur, c'est le premier script de ce genre la que je fait et je n'ai pas
une grande experience dans le scripting
 
Merci d'avance
 
Icdk76800
[quote]

Reply

Marsh Posté le 05-11-2013 à 11:56:54   

Reply

Marsh Posté le 06-11-2013 à 00:29:36    

Voici un exemple pour trouver la version du bloc-notes :  

Dim fso, logiciel_name, file_version
 
Set fso = CreateObject("Scripting.FileSystemObject" )
 
logiciel_name = "C:\Windows\System32\notepad.exe"
file_version = fso.GetFileVersion(logiciel_name)
 
WScript.Echo "Version = " & file_version & "."


Il faut copier ces lignes dans un fichier texte qu'on appellera, par exemple GetVer1.vbs.
Ensuite, on double clique dessus pour l'exécuter.
Il affiche "Version = 6.1.7600.16385." chez moi.
Je vais voir le fichier exécutable pour vérifier.
Je clique droit sur notepad.exe. Je choisis l'option "Propriétés", puis l'onglet "Détails", et je vois bien cette valeur pour la version.
 
Ensuite, il faudra extraire le début de la version, le convertir en numérique, et le comparer avec "1.1"
Puis il faudra faire l'installation par :

Set objShell = Wscript.CreateObject("Wscript.Shell" )
objShell.Run "cmd /c prg_instal.exe param1 param2 >" & logfile, 0, True


Message édité par olivthill le 06-11-2013 à 00:35:09
Reply

Marsh Posté le 06-11-2013 à 08:51:49    

Je te remercie olivthill ton message ma bien aidé :) , je peut maintenant continuer mon script .
 
Icdk76800
 
[On apprend tous de nos erreurs]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed