Bonjour,
Je cherche à mettre en place un script qui mettra à jour tous les poste de mon réseau.
Je cherche à exécuter un script VBS via un script batch.
Mais je ne connais pas dutout la procédure.
Le but du script VBS est simple :
Il teste si dans Program Files, le dossier "OpenOffice.org exsite et le désinstalle.
Sur mon réseau j'ai des postes avec openoffice 2.0 / 2.2 / 2.3 / 2.4 / 3.0 / 3.1
et je veux tout mettre à jour en 3.2
Je veux donc précéder de la manière suivante :
Si OpenOffice.org 2.0 existe
Instructions...
Si OpenOffice.org 2.2 existe
Instructions...
Si OpenOffice.org 2.3 existe
Instructions...
Si OpenOffice.org 2.4 existe
Instructions...
Voici un morceau deMais pour le moment cela ne marche pas, lorsque depuis ma console dos je lance le script, j'ai un message d'erreur WSH :
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 Sub Verif() Dim MonChemin As String Dim MonRepertoire As String MonChemin = "C:\Program Files" If (MonRepertoire = Dir(MonChemin, vbDirectory)) = vbEmpty Then MsgBox " Le répertoire " & Chr(34) _ & MonChemin & Chr(34) & " existe bien !", _ vbInformation Else MsgBox " Le répertoire " & Chr(34) _ & MonChemin & Chr(34) & " n'existe pas !", _ vbExclamation End If End Sub
Ligne 4 / erreur : Fin d'instruction atendue
Pour le moment, je ne veux faire que de l'affichage pour le test.
Par la suite, je rajouterai les instructions pour supprimer le programme.
Partager