Przywracanie polecenia - Wyślij do pulpit

Jeżeli zdarzy się, że zniknie Wam z menu - Wyślij do pulpit (utwórz skrót) - to zapiszcie poniższe do pliku notatnika i zapiszcie z rozszerzeniem vbs. Po zapisaniu pliku (np na pulpicie) odpalamy go dwuklikiem, potwierdzamy i cieszymy się, że znów mamy w menu w/w pozycje.

Plik zadziała na pewno jeżeli Windows XP jest zainstalowany w domyślnym katalogu na dysku C. Możliwe że trzeba go będzie nieco zmodyfikować przy innej konfiguracji





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

a = "HKEY_CLASSES_ROOT\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\"

WshShell.RegWrite a,""
WshShell.RegWrite a & "NeverShowExt",""

b = "HKEY_CLASSES_ROOT\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\InProcServer32\"
WshShell.RegWrite b ,"C:\Windows\System32\Sendmail.dll"
WshShell.RegWrite b & "ThreadingModel","Apartment"

c = "HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\DefaultIcon\"
WshShell.RegWrite c,"C:WINDOWS\EXPLORER.exe,3"

d = "HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}\shellex\DropHandler\"
WshShell.RegWrite d,"{9E56BE61-C50F-11CF-9A2C-00A0C90A90CE}"


Return = WshShell.Run("REGSVR32 /S SENDMAIL.DLL")
Return = WshShell.Run("REGSVR32 /S OLE32.DLL")
Return = WshShell.Run("REGSVR32 /S /I SHELL32.DLL")

Set WshShell = Nothing

MsgBox "Wyślij do pulpit - przywrócone",4096,"Powodzenia!"