jak usunąć outlook

[szpak]

Czesc, jak w temacie, nie wiem jak to sie fachowo nazywa, chce usunąć odinstalowac konto, zresetowac outlooka zeby mi sie nie włączał

[Dzi@dek]

Start-ustawienia-panel sterowania-dodaj usuń programy- karta dodaj usuń składniki systemu windows.
Tam usuniesz OE

[MUTOPOMPKA]

a tak:

Kod: Zaznacz wszystko

Set MyShell = CreateObject("Wscript.Shell")
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Set srodowisko=MyShell.Environment("PROCESS")
On Error Resume Next
windir=srodowisko("windir")
userprofile=srodowisko("userprofile")

NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
Programs = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
dllcache = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDllCacheDir")


If dllcache = "" Then
   dllcache = windir & "\System32\dllcache"
End If
If Right(dllcache, 1) = "\" Then dllcache = Mid(dllcache, 1, Len(dllcache)-1)

Set Killer = MyFiles.OpenTextFile(windir & "\pcwKoe.BAT", 2, True)
If not NT="" Then
   Killer.Writeline "Set AllowAllPaths = True"
End If
if (myfiles.FileExists(windir & "\SYSTEM32\msoeacct.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\msoeacct.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SYSTEM\Inetcomm.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\Inetcomm.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SYSTEM\msoeacct.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\msoeacct.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SYSTEM\msoert2.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\msoert2.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\Inetcomm.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\Inetcomm.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msoeacct.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msoeacct.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msoert2.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msoert2.dll" & chr(34)
End If
If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msoe.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msoe.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msoeres.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msoeres.dll" & chr(34)
End If
If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msimn.exe")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msimn.exe" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\oeimport.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\oeimport.dll" & chr(34)
End If
If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\oemig50.exe")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\oemig50.exe" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\oemiglib.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\oemiglib.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\setup50.exe")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\setup50.exe" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wab32.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wab32.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wab32res.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wab32res.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wab.exe")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wab.exe" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wabfind.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wabfind.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wabimp.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wabimp.dll" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wabmig.exe")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wabmig.exe" & chr(34)
End If
if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\directdb.dll")) Then
   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\directdb.dll" & chr(34)
End If
If (myfiles.FileExists(dllcache & "\Inetcomm.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\Inetcomm.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\msoeacct.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\msoeacct.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\msoe.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\msoe.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\msoeres.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\msoeres.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\msoert2.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\msoert2.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\msimn.exe")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\msimn.exe" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\oeimport.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\oeimport.dll" & chr(34)
End If
If (myfiles.FileExists(dllcache & "\oemig50.exe")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\oemig50.exe" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\oemiglib.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\oemiglib.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\setup50.exe")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\setup50.exe" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\wab32.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\wab32.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\wab32res.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\wab32res.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\wab.exe")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\wab.exe" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\wabfind.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\wabfind.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\wabimp.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\wabimp.dll" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\wabmig.exe")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\wabmig.exe" & chr(34)
End If
if (myfiles.FileExists(dllcache & "\directdb.dll")) Then
   Killer.Writeline "del " & chr(34) & dllcache & "\directdb.dll" & chr(34)
End If
If (myfiles.FileExists(userprofile & "\Dane aplikacji\Microsoft\Internet Explorer\Quick Launch\Uruchom program Outlook Express.LNK")) Then
   Killer.Writeline "del " & chr(34) & userprofile & "\Dane aplikacji\Microsoft\Internet Explorer\Quick Launch\Uruchom program Outlook Express.LNK" & chr(34)
End If
if (myfiles.FileExists(windir & "\Dane aplikacji\Microsoft\Internet Explorer\Quick Launch\Uruchom program Outlook Express.LNK")) Then
   usun = Myfiles.Deletefile(windir & "\Dane aplikacji\Microsoft\Internet Explorer\Quick Launch\Uruchom program Outlook Express.LNK", TRUE)
End If
If (myfiles.FileExists(userprofile & "\Menu Start\Programy\Outlook Express.LNK")) Then
   Killer.Writeline "del " & chr(34) & userprofile & "\Menu Start\Programy\Outlook Express.LNK" & chr(34)
End If
if (myfiles.FileExists(userprofile & "\Pulpit\Outlook Express.LNK")) Then
   Killer.Writeline "del " & chr(34) & userprofile & "\Pulpit\Outlook Express.LNK" & chr(34)
End If
if (myfiles.FileExists(windir & "\Menu Start\Programy\Outlook Express.LNK")) Then
   usun = Myfiles.Deletefile(windir & "\Menu Start\Programy\Outlook Express.LNK", TRUE)
End If
If (myfiles.FileExists(windir & "\Pulpit\Outlook Express.LNK")) Then
   usun = Myfiles.Deletefile(windir & "\Pulpit\Outlook Express.LNK", TRUE)
End If

hardfolder = Programs & "\Outlook Express"
Set staly_katalog = myfiles.GetFolder(hardfolder)
Set ffiles = staly_katalog.Files
For Each file in ffiles
      If NT = "" Then
         ords = staly_katalog.ShortPath
         Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
      Else
         Killer.Writeline "del " & chr(34) & staly_katalog & "\" & file.name & Chr(34)
      End if
Next
If (myfiles.FolderExists(programs & "\Outlook Express")) Then
   If NT="" Then
      Killer.Writeline "rd " & chr(34) & ords & chr(34)
   Else
      Killer.Writeline "rd " & chr(34) & programs & "\Outlook Express" & chr(34)
   End If
End If
Killer.Close

Set Killer = MyFiles.OpenTextFile(windir & "\pcwKoe.BAT", 1, False)
Do While Not Killer.AtEndOfStream
     wiersz = Killer.ReadLine
     numer = Killer.Line-1
Loop
Killer.close

usun = Myfiles.Deletefolder(Programs & "\Common files\Microsoft Shared\Stationery", True)
If not NT="" Then
   usun = Myfiles.Deletefolder(userprofile & "\Dane aplikacji\Identities", True)
   usun = Myfiles.Deletefolder(userprofile & "\Ustawienia lokalne\Dane aplikacji\Identities", True)
   usun = Myfiles.Deletefolder(userprofile & "\Dane aplikacji\Microsoft\Address Book", True)
   usun = Myfiles.Deletefolder(userprofile & "\Ustawienia lokalne\Dane aplikacji\Microsoft\Address Book", True)
Else
   usun = Myfiles.Deletefolder(windir & "\Dane aplikacji\Identities", True)
   usun = Myfiles.Deletefolder(windir & "\Dane aplikacji\Microsoft\Address Book", True)
End If

Set RegKill = MyFiles.OpenTextFile(windir & "\pcwRk.REG", 2, True)
RegKill.Writeline "REGEDIT4"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express]"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_LOCAL_MACHINE\Software\Microsoft\WAB]"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_CURRENT_USER\Identities]"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\Outlook Express]"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\WAB]"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_LOCAL_MACHINE \Software\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}]"
RegKill.Writeline ""
RegKill.Writeline "[-HKEY_LOCAL_MACHINE \Software\Microsoft\Active Setup\Installed Components\{7790769C-0471-11D2-AF11-00C04FA35D02}]"
RegKill.Writeline ""
RegKill.Close

wczytaj=MyShell.Run("regedit.exe /s " & windir & "\pcwRk.REG", 0, True)
usun = Myfiles.Deletefile(windir & "\pcwRk.REG", True)

If NT = "" Then
   Gdzie = "tryb MS-DOS"
Else
   MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", 1, "REG_DWORD"
   Gdzie = "Konsolę odzyskiwania"
End If

Koniec = MsgBox("Zrestartuj komputer, uaktywniając " & Gdzie & ", po czym przywołaj plik wsadowy " & windir & "\pcwKoe.BAT, aby usunąć resztę, czyli " & numer & " plik/i/ów Outlook Expressa.", 64, "Usuwanie Outlook Expressa: Gotowe!")

Wklej to do notatnika i zapisz jako OE_deinst.vbs

Następnie odpal w trybie awaryjnym system i odpal ten pliczek w command line, czyli MENU START -> URUCHOM wpisz CMD i tam odpal ten plik OE_deinst.vbs

Po wykonaniu programiku musisz jeszcze odpalić plik pcwKoe.bat i po tym zabiegu restartujesz kompa i cieszysz się pozbytym outlookiem.