Skocz do zawartości

indzia16

Użytkownicy
  • Postów

    5
  • Dołączył

  • Ostatnia wizyta

  1. ******************************************************************************** Lista kont, identyfikatorów SID i ścieżek dostępu. ******************************************************************************** Nazwa użytkownika : Administrator SID : S-1-5-21-220523388-1085031214-1177238915-500 Katalog profilu : Nazwa użytkownika : Gość SID : S-1-5-21-220523388-1085031214-1177238915-501 Katalog profilu : Nazwa użytkownika : Lenovo SID : S-1-5-21-220523388-1085031214-1177238915-1003 Katalog profilu : C:\Documents and Settings\Lenovo Nazwa użytkownika : Pomocnik SID : S-1-5-21-220523388-1085031214-1177238915-1000 Katalog profilu : ********************************************************************************
  2. Set WshShell = CreateObject("Wscript.Shell") Set fso = Wscript.CreateObject("Scripting.FilesystemObject") fName = WshShell.SpecialFolders("Desktop") & "\SID.txt" Set b = fso.CreateTextFile(fName, true) b.writeblanklines 1 b.writeline string(80,"*") b.writeblanklines 1 b.writeline "Lista kont, identyfikatorów SID i ścieżek dostępu." b.writeblanklines 1 b.writeline string(80,"*") b.writeblanklines 1 b.writeblanklines 1 strProfileBranch = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\" strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colAccounts = objWMIService.ExecQuery _ ("Select * From Win32_UserAccount") For Each objAccount in colAccounts If objAccount.Name = "HelpAssistant" or objAccount.Name = "SUPPORT_388945a0" then else b.writeline "Nazwa użytkownika : " & objAccount.Name b.writeline "SID : " & objAccount.SID b.writeline "Katalog profilu : " & GetHomePath(objAccount.SID) b.writeblanklines 1 end if Next Function GetHomePath(strSID) On Error Resume Next GetHomePath = WshShell.ExpandEnvironmentStrings(Trim(WshShell.RegRead (strProfileBranch & strSID & "\ProfileImagePath"))) On Error Goto 0 End Function b.writeline string(80,"*") b.close WshShell.Run "notepad.exe " & fName Set fso = Nothing set Wshshell = Nothing
  3. Wykonałam te instrukcje i już nie wyskakuje sprawdzanie dysków, ale wciąż pojawia się to " System Windows nie może załadować profilu użytkownika, ale zalogował Cię używając domyślnego profilu systemowego SZCZEGóŁ -Baza danych rejestru konfiguracji jest uszkodzona"
  4. Witam, Po pojawiniu się komunikatu o "blokadzie komputera" uruchomiłam go w trybie awaryjnym i odpaliłam ComboFix po czym mogłam już nomalnie korzystać z laptoa. Natomiast przy uruchamianiu systemu najpierw pojawia się komunikat "Jeden z dysków wymaga sprawdzenia spójności danych" i tam później się to sprawdza. Po czym uruchamia się dalej i tuż pzed pojawieniem sie ekranu "Zapraszamy" pojawia się komunikat " System Windows nie może załadować profilu użytkownika, ale zalogował Cię używając domyślnego profilu systemowego SZCZEGóŁ -Baza danych rejestru konfiguracji jest uszkodzona" i po 30 sek. to znika i działa normalnie. I dzieje się tak za każdym razem. Proszę o pomoc. Pozdrawiam OTL.Txt Extras.Txt
×
×
  • Dodaj nową pozycję...