comment relancer RPC - impossible de supprimer une clé registre

**tavarlindar** · 23/04/2010, 21h55

Bonjour,
Mon pc ne fonctionne plus correctement depuis que le service RPC est indisponible. Après recherches, j'ai lu un bulletin de Microsoft qui propose de supprimer une clé de registre legacy_rpcss. J'ai lu d'autres post où il fallait changer la valeur de la clé. Dans tous les cas, en passant par regedit, le système refus. Impossible de supprimer cette clé ou de la modifier.

Je suis perdu et souhaiterais éviter l'étape de tout refonfigurer mon disque dur.

par avance merci pour votre aide,

bien à vous tavar

**l_autodidacte** · 24/04/2010, 03h33

Pour vérifier si le service RPC est effectivement arrêté, copie le code suivant dans un éditeur de texte et enregistre-le sous le nom "Services.vbs" :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Dim SRVC, ObjServ, myObj,Ret,nRet,cnt,n,fso,fich,wshshell,svName

Function Espace(strName)
  dim strRet,Complement,Count
    If Len(strName)<=25 Then
	strRet=strName
        complement=Mid(strName,1,25-Len(strName))
    Else
        strRet=Mid(StrName,1,24)+"_" +vbCrlf + Mid(strName,25,Len(strName))
        Complement=Mid(strName,25,Len(strName))
    End If
   'Count=IIf(Len(strName)<=24,25-Len(strName),25-Len(Complement))
    If Len(strName)<=24 then
      Count=25-Len(strName)
    Else
      Count=25-Len(Complement)
    End IF
   Espace = String(count," ")
End Function
'=============================================
' La fonction suivante sert à couper le nom du service en 2 parties s'il fait 
' plus de 25 caractères: Elle ajoute aux 24 premiers caractères le symbole "_" puis
' un retour chariot et ajoute le reste du nom suivi de son nom d'affichage
'=============================================

Function Diviser(strName)
  dim strRet
  If Len(strName)<=25 Then
	strRet=strName
    Else
        strRet=Mid(StrName,1,24)+"_" +vbCrlf + Mid(strName,25,Len(strName))
    End If
Diviser=strRet
End Function

Set SRVC = GetObject("winmgmts:\\")
Set ObjServ = SRVC.InstancesOf("Win32_Service")
Set wshshell = CreateObject("Wscript.Shell")

' ============================
' Les 6 lignes suivantes et la fonction "Espace" servent à formater le texte 
' de sortie pour une meilleure lisibilité.
'=============================

svName=ucase("    Nom du service"+Espace("    Nom du service")+"        Nom d'affichage")+VbCrlf
Ret=String(20," ") + ucase("Auto_Running Services")+vbcrlf
Ret=Ret + String(60,"=") + Vbcrlf +svName+VbCrlf
nRet=String(60,"=")+vbcrlf
nRet=nRet + String(20," ") + Ucase("Not Auto_running services")+vbcrlf
nRet=nRet + String(60,"=") +vbcrlf +svName+VbCrlf

' ========== Fin du formatage du texte =============

Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
set fich = fso.CreateTextFile("C:\Services.txt",true)
fich.writeblanklines 1

cnt=0 :n=0
 For Each myObj In ObjServ
  If Ucase(myObj.StartMode) = "AUTO" Then
    If ucase(myObj.State) = "RUNNING" Then
      Ret= Ret & Diviser(Ucase(myObj.Name)) & Espace(myObj.Name) + " : " & myObj.DisplayName &  Vbcrlf
      n=n+1
    End If
  ElseIF ucase(myObj.StartMode) <> "AUTO" Then
      nRet= nRet + Diviser(Ucase(myObj.Name)) & Espace(myObj.Name) +" : " & myObj.DisplayName & Vbcrlf
      cnt=cnt+1
  End If
Next

Fich.Write Ret + vbcrlf+"Nombre de Services démarrés auto : "+cstr(n)+vbcrlf
fich.WriteBlankLines 1

Fich.Write nRet+ vbcrlf+"Nombre de Services démarrés non auto : "+cstr(cnt)
wshshell.Run "Notepad.exe C:\Services.txt",1,True
Set wshshell = Nothing
Set Fso=Nothing
Set Srvc=Nothing

Ensuite double-clique sur le fichier créé et tu auras la liste de tous les services en cours d'exécution.
Si RPC ne figure pas dans la liste, procède alors comme suit :
1 - Exécuter et tape Services.msc puis OK
2 - Clique sur l'entête de colonne Nom pour trier par nom
3 - Recherche ensuite Appel de procédure distante(RPC) et double-clique dessus.
4 - Sous l'onglet Connexion, regarde si le bouton d'option Ce compte est activé sinon active-le.
5 - En bas de la fenêtre, si le bouton Activer n'est pas estompé, appuie dessus puis appuie sur les boutons Appliquer.
6 - Si sous l'onglet Général, le bouton Démarrer est actif, appuie dessus puis sur Appliquer et OK

Redémarre ensuite ton PC et regarde ce que cela donne.

**Jipété** · 24/04/2010, 19h43

Salut.

Je m'immisce car

Envoyé par l_autodidacte

(...) Ensuite double-clique sur le fichier créé et tu auras la liste de tous les services en cours d'exécution. (...)

moi je gagne une MessageBox me disant :

---------------------------
Windows Script Host
---------------------------
Script : E:\Documents and Settings\root\Bureau\Services.vbs
Ligne : 4
Caract. : 3
Erreur : Argument ou appel de procédure incorrect: 'String'
Code : 800A0005
Source : Erreur d'exécution Microsoft VBScript

---------------------------
OK
---------------------------

Just curious (et pas spécialiste du vbs)

**l_autodidacte** · 24/04/2010, 20h29

Salut Jipété

moi je gagne une MessageBox me disant....

Cela provient du fait que le nom de l'un des services comporte plus 31 caractères. Dans la fonction :

Code :

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

1
2
3
Function Espace(strName)
  Espace = String(31-len(StrName)," ")
End Function

remplace le nombre 31 par un autre plus grand 40 par exemple et essaie de nouveau. Si tu as le même message, mets un nombre plus grand. Ou pour couper court à ce message, supprime le formatage du texte par la fonction Espace et tu auras la paix(ou peut-être la paie !!).

Cordialement, MONCEF

**tavarlindar** · 24/04/2010, 23h39

Bonjour,

Je viens à l'instant de découvrir qu'il fallait modifier le script. De toute façon, le script ne se lance pas (peut être à cause du 31), mais j'ai essayé de redémarrer le service. J'ai déjà essayé auparavant (avant de poster sur le forum).

Msg erreur :
Impossible de démarrer le service Appel de procédure distante RPC sur Ordinateur local.
Erreur 2 le fichier spécifié est introuvable.

Par ailleurs, j'ai aussi essayé désactiver la restauration du système (panneau de configuration - system ), mais le système refuse ! impossible de désactivé quoi que ce soit.

Bref, impossible de supprimer une clé de registre lié à RPCSS, de relancer le service, etc.

Peut-être faudrait-il que je remplace un fichier par un autre, mais je ne sais quoi faire.

**l_autodidacte** · 25/04/2010, 00h28

J'ai modifié le script de façon à éviter le message d'erreur cité par Jipété tout en gardant le formatage du texte.
Essaie donc de le revoir et l'essayer.
Si le script ne marche pas par double-clic, alors clic droit sur le fichier puis choisis le menu contextuel Ouvrir avec l'invite de commandes

Pour ce qui est impossibilité de changer quoi que ce soit, as-tu fait une analyse antivirus ? car à mon avis ça sent une infection qui bloque tout; ou bien travailles-tu sur le PC en tant qu'Administrateur ?

Essaie encore cette méthode :
1 - Démarre la Console de récupération.
2 - Tape la commande : Enable RPCSS Service_Auto_Start
et redémarre ensuite.

**tavarlindar** · 25/04/2010, 01h17

Tout d'abord merci de ton aide,

je n'ai pas réessayé, mais je vais le faire. je n'ai pas fais d'analyse virale, car mon antivirus (mcafee) ne réagit, pas. C'est d'ailleurs en se mettant à jour que mon pc a planté ...

ou se trouve la Console de récupération ? Est_ce comme sous ms dos ? Invite de commande ?

**l_autodidacte** · 25/04/2010, 02h29

Pour installer la console de récupération comme option de démarrage
Pendant l'exécution de Windows, insère le CD-ROM d'installation dans le lecteur de CD-ROM.
Clique sur Démarrer et sélectionne Exécuter.
Tape la commande suivante, où D: représente la lettre du lecteur de CD-ROM.
D:\i386\winnt32.exe /cmdcons

Suis les instructions qui s'affichent à l'écran.
Ensuite, redémarre le PC et à l'écran de choix du système à démarrer, choisis le menu Console de récupération Microsoft Windows XP puis Entrée et choisis la session à démarrer selon ce qui est proposé. A l'invite de commandes, tape : Enable RPCSS Service_Auto_Start suivi de Entrée.
Quand c'est terminé, redémarre normalement.