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