Discussion :

[tdavillars]

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 :

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
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

[ced600]

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

[tdavillars]

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

[ced600]

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

[tdavillars]

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

[tdavillars]

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

[ced600]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[tdavillars]

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

[ced600]

alors ton problème viens d'ailleur.

[tdavillars]

ok je vais continué a chercher si je trouve

merci encore pour ton aide

[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

[ced600]

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é .

[tdavillars]

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é

[ced600]

bizzare alors