Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1501 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide VBS

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide VBS

n°2209284
icdk76800
On apprend tous de nos erreurs
Posté le 05-11-2013 à 11:56:54  profilanswer
 

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]

mood
Publicité
Posté le 05-11-2013 à 11:56:54  profilanswer
 

n°2209362
olivthill
Posté le 06-11-2013 à 00:29:36  profilanswer
 

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
n°2209367
icdk76800
On apprend tous de nos erreurs
Posté le 06-11-2013 à 08:51:49  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide VBS

 

Sujets relatifs
Besoin d'aide pour petits scripts VBS[VBS] Script Language problème aide svp
[VB/VBA/VBS]Trouver une référence dans plusieurs centaines de wordaide sur VBS Ajout pilote imprimante
VBS : petite aide de programmation pour débutant svp[VBS] Aide sur expression régulière
[RESOLU] VBS : demande d'aide suppression de fichier selon leur datebesoin d'aide (rapide) VBS (newbie)
Besoin d'aide pour modifier un .vbs svpBesoin d'aide en VBS... URGENT
Plus de sujets relatifs à : aide VBS


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR