impossible d'installer certain programe

[pear]

Bonjour,

 

1)Windows Management Instrumentation (WMI) est corrompu

 

Traduction partielle de la fiche technique Microsoft N°319101:

 

Symptômes:

 

En cours de session, des messages signalent que

 

1. Windows ne peut pas voir les propriétés de connexion ou du réseau.

 

2. Windows ne peut pas voir les informations systèmes (MSinfo32).

 

3. Impossibilité de connexion à un ordinateur local.

 

Note: pour exécuter WMI, ouvrir la console par Démarrer/Exécuter (ou Windows+r) et saisir wmimgmt.msc, puis dans le menu Action, sélectionner Propriétés.

 

Cause:

 

Le fichier dans le dossier %SystemRoot%\System32\Wbem\Repository est corrompu. Ce message d'erreur se répète car winmgmt.exe démarre le fichier toutes les 30 à 60 secondes

 

Résolution:

 

* Par Démarrer/Exécuter... (ou Windows+r), saisir services.msc

 

* Dans le volet droit de la console des Services, double-cliquer sur l'entrée Infrastructure de gestion Windows et cliquer sur le bouton Arrêter. Quitter la console.

 

* Dans l'explorateur effacer les fichiers contenus dans le dossier %SystemRoot%\system32\Wbem\repository\

 

* Redémarrer l'ordinateur et les fichiers seront recréés et le service WMI se relance automatiquement

 

 

 

2)Pour Wmi essayez ceci à copier oller dans le bloc notes avec extension .vbs

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' Script VBS pour les problèmes WMI

' http://support.microsoft.com/?kbid=319101

' script de ~Jean-Marc~ © 2004 http://perso.wanadoo.fr/doc.jm

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

On Error Resume Next

 

Dim shell, fso, WinSysDir, RepoPath, RepoPath2

 

Set shell = WScript.CreateObject("WScript.Shell")

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

 

 

' Arrêt du service Infrastructure de gestion windows

set scriptState = shell.Exec("%comspec% /c echo o|net stop winmgmt")

 

While (scriptState.Status = 0)

WScript.Sleep(100)

Wend

 

 

'Lire le répertoire windows

WinSysDir = Shell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\SystemRoot")

 

 

' Créer le chemin d'effacement des fichiers du repository

RepoPath = WinSysDir & "\System32\Wbem\Repository\*.*"

RepoPath2 = WinSysDir & "\System32\Wbem\Repository\FS\*.*"

 

'Effacement du contenu du répertoire repository

fso.DeleteFile RepoPath, true

fso.DeleteFile RepoPath2, true

fso.DeleteFolder RepoPath, true

 

 

'Configuration de Infrastructure de gestion windows en automatique (config d'origine XP)

shell.Exec("sc config winmgmt start= auto")

 

 

'fin

wscript.echo "Fin de la réparation." & vbcrlf & "Redémarrer le PC."

 

Set fso = Nothing

Set scriptState = Nothing

Set shell = Nothing

 

Wscript.quit

[meuh75]

alors voila j'ai essayé vos solution ca ne marche pas mais entre temps j'ai trouvé ca sur zebulon sait exactement le meme probleme que moi mais la solution donné ne marche pas non plus enfin il y a une diference quand meme sait que moi je n'ai meme pas de message d'erreur http://forum.zebulon.fr/index.php?showtopic=54350 si quelqun a une autre solution a me proposer je suis preneur car j'ai vraiment pas envie de reinstaller windows merci de votre aide je serait vraiment perdu sans vous lol

Modifié le 13 novembre 2007 par meuh75