Message d'erreur windows au demarrage

Bonjour,
j’ai petit souci depuis quelque temps au démarrage de Windows 7 édition intégrale un message d’erreur que sa fiche a chaque démarrage:
(ce qui as marqué)
Script : C:/Windows/run.vbs
Ligne : 39
Caract : 1
Erreur : Le fichier spécifié est introuvable
Code : 80070002
Source (null)
J’ai trouver le fichier run.vbs (caché) mais ci je le supprime Windows dit qu’il est pas activé et le bureau , bar et explorateur Windows démarre pas
Merci de m’aider au plus vite
Config:
Windows 7 édition intégrale
AMD A10 6800K
Carte mère : A88XM-A
SDD : Samsung 250go

Bonjour.

Cliquer sur Démarrer -> Tous les programmes -> Accessoires .
Clic droit sur Invite de Commandes -> Exécuter en tant qu 'administrateur

Puis taper ces deux lignes de commandes :

cd /d %windir%\system32

regsvr32 vbscript.dll
Edité le 05/03/2016 à 17:01

La première commande ne fait rien (Le chemin d’accès spécifié est introuvable)
et la deuxième commande ( DllRegisterServer dans vbscript.dll réussi)
malgré la manipe rien ne change
une autre idée ??? :-(:

Regarder si il existe des points de restauration système, si vous avez Ccleaner, facile, il suffit de l’exécuter, puis

Outils -> Restauration du système, sinon Démarrer -> Panneau de configuration -> Système -> Protection du système .

Une autre solution:
Lancer l’invite de commandes en mode administrateur (comme indiqué plus haut) et taper vssadmin list shadows

ET comment faire la restauration système Ccleanner ???

Voici comment faire :

Cliquer sur Démarrer -> Tous les programmes -> Accessoires .
Clic droit sur Invite de Commandes -> Exécuter en tant qu 'administrateur

Ensuite taper rstrui.exe

je viens la dernière mise a jour date de hier et je l’ai fait toujours le message d’erreur au démarrage quand que ouvre le vbs en bloc note il as marqué ceci

Set wShell = CreateObject (“Wscript.Shell”)

wShell.Run wShell.ExpandEnvironmentStrings("%windir%") & “system32userinit.exe”

Dim prog_files
prog_files = wShell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%")
if(StrComp(prog_files, “%PROGRAMFILES(x86)%”) = 0) then
prog_files = wShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
end if

Function HasInternet
HasInternet = false

Set wShell = CreateObject ("Wscript.Shell")
wShell.Run "cmd /c ping 8.8.8.8 -n 1 > %temp%inet.log", 0, true

Set fso  = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(wShell.ExpandEnvironmentStrings("%temp%") & "inet.log", 1)
text = file.ReadAll
file.Close

et il avait une ligne 39 c’est pas la dedans ???

fso.DeleteFile wShell.ExpandEnvironmentStrings("%temp%") & "inet.log"

if(inStr(text, "=32")) then
	HasInternet = true
end if

End Function

Function WaitInternet
Do Until HasInternet
Loop
End Function

WaitInternet

Dim nw
nw = “”"" & prog_files & “CleanBrowserappbinnw.exe”" “”" & prog_files & “CleanBrowserappapp”""

wShell.Run nw, 0
il a une histoire de ligne 39 c’est pas la dedans ???
Edité le 05/03/2016 à 21:30

La numérotation comprend aussi les lignes vides, voici la 39:
nw = “”"" & prog_files & “CleanBrowserappbinnw.exe”" “”" & prog_files & “CleanBrowserappapp”""

Aprés une recherche nw.exe serait un virus, regarder avec Ccleaner si nw.exe existe, sinon télécharger TDSSKILLER.EXE
de Kaspersky :