desintallation d'un logiciel

Bonjour,

j'ai fait un déploiement pour une désinstallation d'un logiciel sur le parc informatique de ma boite, il se trouve que certaine pc se sont fait complètement nettoyé allant de la désinstallation de 1 ou 2 logiciel voir la totalité

voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim path, path1, rep Dim directory   path = "chemin du logiciel a desinstallé \uninst.exe"   path1 = "lieu ou se trouve le répertoire a supprime" rep = "nom du repertoire a supprimé"   'exécution de la désinstallation du logiciel'   Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next WshShell.Run chr(34) & path & chr(34) & "/S" If Err>0Then End If   'suppression du répertoire de ce logiciel' Set Fso = CreateObject("Scripting.FileSystemObject") Set directory = fso.getFolder(path1) For Each oSubFld in Directory.SubFolders If osubfld.names = rep Then osubfld.delete false End If Next

---

merci pour votre aide

C'est très bien tout cela mais quel est le problème ? 8O

le problème est que le script, sur certain pc de façon aléatoire, a désinstallée de 1 a n logiciels installé voir tout les logiciels :?

Ce script ne désinstale que ce qui se trouve dans path et ne supprime que ce qui se trouve dans path1

oui c'est ce que je pensais mais sur un déploiement plusieurs applications ont été désinstallé

je précise il ma désinstallé firefox, thunder, gimp, tout les applications de ma boite , ....... je ne pense pas que ce soit le script le problème mais bon je suis un perdu personnellement :?

Code:

---

WshShell.Run chr(34) & path & chr(34) & "/S"

---

Ceci exécute la commande suivante dans une console dos :

Code:

---

"chemin du logiciel a desinstallé \uninst.exe /S"

---

Code:

---

1 2 3 4 5 6

Set Fso = CreateObject("Scripting.FileSystemObject") Set directory = fso.getFolder(path1) For Each oSubFld in Directory.SubFolders If osubfld.names = rep Then osubfld.delete false End If

---

Ceci récupère le répertoire path1, et supprimes tous les sous répertoire de path1 qui ont pour nom rep.

Donc si tu as bien posté tout le code celui-ci ne peux pas provoquer les faits que tu dis.

Après reste à déterminer quelle valeur tu donnes à :

Code:

---

1 2 3 4

path = "chemin du logiciel a desinstallé \uninst.exe"   path1 = "lieu ou se trouve le répertoire a supprime" rep = "nom du repertoire a supprimé"

---

Conbien de fois appelles tu le script, et est ce que les valeur de ces variables changent ?

je les appelles qu'une seule fois lord de la déco de l'utilisateur et les variables ne change pas je les définies directement dans le script

alors ton problème viens d'ailleur.

ok je vais continué a chercher si je trouve

merci encore pour ton aide

bonjour

j'ai trouvé mon erreur c'est a la condition

If osubfld.names = rep Then
osubfld.delete false
End If

j'ai mis un 's' a name mais ce qui m'amène a me demande comment le script a pu fonctionné avec cet erreur

Citation:

---

Envoyé par tdavillars

bonjour

j'ai trouvé mon erreur c'est a la condition

If osubfld.names = rep Then
osubfld.delete false
End If

j'ai mis un 's' a name mais ce qui m'amène a me demande comment le script a pu fonctionné avec cet erreur

---

Cela m'a semblé bizzare mais je n'ai pas vérifier considérant le nom de la propriétés comme bon car le script ne planté pas selon tes dires.

C'est très bizzare, après recherche, cette propriété n'existe vraiment pas donc :

1. 1. Si tu n'as pas mis de On Error Resume Next, alors cela aurait du planté
2. 2. Comportement étonnant de ton script
3. 3. Si tu as mis On Error Resume Next, le script continue même après l'erreur. Cela peut faire tout et n'importe quoi lorsque l'utilisation du On Error Resume Next n'est pas maitrisé .

Citation:

---

Envoyé par ced600

Cela m'a semblé bizzare mais je n'ai pas vérifier considérant le nom de la propriétés comme bon car le script ne planté pas selon tes dires.

C'est très bizzare, après recherche, cette propriété n'existe vraiment pas donc :

1. 1. Si tu n'as pas mis de On Error Resume Next, alors cela aurait du planté
2. 2. Comportement étonnant de ton script
3. 3. Si tu as mis On Error Resume Next, le script continue même après l'erreur. Cela peut faire tout et n'importe quoi lorsque l'utilisation du On Error Resume Next n'est pas maitrisé .

---

non je n'ai pas mis On Error Resume Next car vu la complexité du script je n'envoyai pas l'utilité :)

bizzare alors :aie: