Fehler bei der Anmeldung mit dem Benutzerprofildienst

Problem – keine Anmeldung an Windows7 – Windows Vista möglich:

die Fehlermeldung lautet:
“Fehler bei der Anmeldung mit dem Benutzerprofildienst. Das Benutzerprofil kann nicht geladen werden.”
“The User Profile Service failed the logon. User profile cannot be loaded.”

hier 2 Lösungswege…

• Ursache:

Zur näheren Erklärung der Ursache dieses Problem rate ich Interessierten zum Studium dieses Artikels!

• Lösung für SchülerInnen mit Notebooks:

Microsoft hat hier ein Tool veröffentlicht, das dieses Problem beheben soll

• Lösung für Systemadministratoren, bei denen dieses Problem bei unterschiedlichen Usern auf Domänencomputern auftritt:

Ich habe folgendes kleine Tool bzw. Script geschrieben, das alle Einträge, die auf ein beschädigtes Profil hinweisen, aus der Registry löscht und das defekte Profil umbenennt!
[Beim nächsten Login des betroffenen Users wird automatisch ein neues Profil am Client erstellt.]

download »Profil_Registry_Reparatur.vbs

'############## Edi Pfisterer -- 3/5/2011 -- regKey löschen / Profil umbenennen ##############

on Error resume next

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

Set objFSO = CreateObject("Scripting.FileSystemObject")

anzahl = 0

Set fs = CreateObject("Scripting.FileSystemObject")

        const HKEY_LOCAL_MACHINE = &H80000002

        strComputer = "."

        Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_

            strComputer & "\root\default:StdRegProv")

        strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"

        objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

        For Each subkey In arrSubKeys

            if instr(right(subkey,3),"bak") >=1 then

            anzahl = anzahl+1

                Profilpfad_ = WshShell.RegRead("HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & subkey & "\" & "ProfileImagePath")

                WshShell.RegDelete "HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & subkey & "\"

                befehl = "rename """ & profilpfad_ & """ """ & replace(right(profilpfad_,10),"\","_") & "_bak"""

                betroffene_profile =  betroffene_profile  & profilpfad_ & vbcrlf

                WshShell.Run "cmd /c " & befehl

            end if

        Next

WScript.Echo "Es wurden " & anzahl & " Profile ""repariert"" " & vbcrlf & betroffene_profile

Verwendung dieses Tools für Administratoren:
a) Lokal von einem Account mit Admin-Rechten durch einfaches Doppelklicken
b) per Script über eine Gruppenrichtlinie in der Computerverwaltung (ACHTUNG: dann letzte Zeile mit wsript.echo … aus dem Script entfernen