Désinstaller composant Windows avec un script Fermé

Question

Bonjour à tous,

Je dois désinstaller les jeux Windows de tout le parc informatique de l'entreprise où je travaille et je sèche un peu.
Avec près de 300 postes réparti sur une 15aine de sites il m'est impossible de le faire à la main.

Je me suis donc penché sur les GPO de Windows mais de ce côté ça n'a rien donné, autant pour la désinstallation que l'interdiction d'accéder aux jeux.
J'ai alors regardé du côté des scripts possibles et j'ai trouvé quelque chose qui peut être interessant sur http://www.hotline-pc.org/composants.htm#0101.
Notamment la commande %SystemRoot%\System32\rundll32.exe setupapi.dll,InstallHinfSection DefaultUninstall 132 %1 où %1 prendrait pour valeur c:\windows\inf\games.inf puis c:\windows\inf\igames.inf (pour les jeux classiques et les jeux internet).

Cependant j'ai essayé ces 2 commandes et rien ne se passe. Les raccourcis des jeux sont toujours là, les jeux s'éxécutent toujours.
Etant donné que la décision de supprimer les jeux a été pris par le DG vous comprendrez mon impatience à trouver une solution ^^.

Je continue de chercher mais si vous avez une idée je suis preneur ;-)

Info? · Answer

salut
je lis a l instant ton poste sur le script de desinstallation, apparemment personne ne t as repondu.
je suis dans la meme recherche que toi, j e ne sais pas si tu as pu resoudre ton probleme, mais cela m interesserai de savoir comment resoudre ce probleme
merci

Info? · Answer

merci sindromx
cela pourrait etre interessant pour moi aussi
aurai tu des liens ou des mots permettant une recherche sur ce sujet?

merci

fab_69_3d · Answer

merci bien, je vais m y interesser
bonne continuation

philippeadmin · Answer

Salut à tous, voici un petit script qui permet de désinstaller n'inmporte quelle application il suffit de rentre le "productcode" de la base de registre ainsi que le chemin " UninstallString" de la base de registre.

Option Explicit 'all variables must be defined

Dim oReg, oShell, oFSO
Dim UninstallString, ProductCode
Dim strComputer, colItems, objWMIService, objItem
Dim strKeyPath, subkey, arrSubKeys
strComputer = "."

'********************************
'Enter Product Code Of The Application Here That You Want To Uninstall within the Bracket
ProductCode = "{901C040C-6000-11D3-8CFE-0150048383C9}"

'********************************

' Get scripting objects needed throughout script.
Set oShell = CreateObject("WScript.Shell")

'**************************
UninstallString = "MsiExec.exe /I{901C040C-6000-11D3-8CFE-0150048383C9}"

Const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "oot\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys

 IF subkey = ProductCode Then
 oShell.Run UninstallString, 1, True
 End If

Next

Set oShell = Nothing
Set oReg = Nothing
'************* End Code ************

SinDromX · Answer

Merci bien philippeadmin, je vais tester cette solution dès que possible!