supprimer openoffice.org si installé

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 de

Code:

---

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

---

Mais pour le moment cela ne marche pas, lorsque depuis ma console dos je lance le script, j'ai un message d'erreur WSH :
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.

en VBSCript l'on ne déclare pas le type de variables:

Code:

---

1 2 3

Dim MonChemin Dim MonRepertoire MonChemin = "C:\Program Files"

---

;)

Code:

---

1 2 3 4 5 6 7 8

Set fso = CreateObject("Scripting.FileSystemObject") '.... If fso.FolderExists("C:\Test")=False Then '.... End If If fso.FileExists("C:\Test.txt")=False Then '.... End If

---

Le mieux pour desinstaller serait, selon moi, de lancer le fichier désinstallation du programme même (uninstal.exe ou autre).
Comme ça tu ne te casses pas la nénette.
Exemple:

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run OpenOfficePath & "\uninstal.exe", 1, True

---