แล้วจะ ทำไงๆๆๆๆๆ จะถามใครดีน้อ บังเอิญนึกถึง พี่ Google แกช่วยผมได้อีกแล้ว แหม แกเก่งทุกเรื่องเลย นับถือพี่แกจริงๆ จริงๆจะว่าไปแล้วนะ ทุกเรื่องนี่ ถาม พี่ Google ได้ ไม่ต้องพึ่งใครเลยเนอะ
เอ้า มาลองดูวิธีแก้กันดีกว่า
1. เข้าเวบนี้
http://www.dougknox.com/xp/scripts_desc/xp_sendtodesktop.htm
2. Copy หรือ Download จากเวป
'XP_sendtodesktop.vbs - Repairs the Send To Desktop function
'ฉ Doug Knox - 4/7/2002
'Updated 01/14/04
'Downloaded from www.dougknox.com
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}"
'Thanks to MVP Kelly for this tip
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 "Send To Desktop has been fixed",4096,"Finished!"
3. Double click ไฟล์ .vbs
4. จะได้ Send to กลับคืนมาแล้ว
มันง่ายดีเนอะ เกือบ Format อีกรอบแล้ว -_-
แต่ !
มันยังไม่จบ IIS ก็หาย เฮ้อ รู้งี้ใช้ Windows License ตัวเดิมก็ดีละ
แต่ไม่เป็นไร เดี๋ยวถามพี่ Google อีกรอบ แล้วจะมา update อีกรอบ
