電腦中毒了Virus.Win32.Tenga.a

今天電腦掃出一堆的毒，執行檔大概都中了吧

1.病毒簡介
Worm@W32.Licum(別名：W32/Tenga.A)

Licum駭蟲透過微軟漏洞進行散播，而目前微軟只提供Windows NT 以上作業系統的修補程式，在此提供解決Windows 98 作業系統不會被感染的方法，以此作為參考。

Licum駭蟲是利用微軟DCOM RPC 介面中的緩衝區滿溢漏洞進行散播，駭蟲執行後，會感染電腦內的執行檔，而目前微軟只針對Windows NT以上的作業系統提供修補程式，而沒有提供Windows 98 作業系統的修補程式，所以使用Windows98的使用者請小心，為了避免使用Windows 98 作業系統的電腦受到感染，解決的方法如下，請修改登錄檔"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ole" 下列的值："EnableDCOM"="N"，如果是"N"即為關閉，此時類似 NetMeeting 相關軟體會無法使用，但此方法可先關閉漏洞，以避免駭蟲入侵。

基本介紹

病毒名稱 Worm@W32.Licum
病毒別名 Backdoor.Win32.Small.gl [Kaspersky Lab], Virus.Win32.Tenga.a [Kaspersky Lab], BackDoor-CTM [McAfee], W32/Gael.worm.a [McAfee], W32/Tenga-A [Sophos], PE_TENGA.A [Trend Micro],W32.Licum[symantec]
病毒型態 Worm
病毒發現日期 2005/07/29
利用漏洞
MS03-026(英文)
MS03-026(中文)
影響平台 Windows 95/98/ME , Windows NT/2000/XP/2003

風險評估

散播程度：低
破壞程度：低

Worm@W32.Licum 行為描述：
駭蟲會下載下列檔案：

[http://]utenti.lycos.it/[REMOVED]/dl.exe

[http://]utenti.lycos.it/[REMOVED]/CBACK.EXE

[http://]utenti.lycos.it/[REMOVED]/GAELICUM.EXE

駭蟲會感染電腦內的執行檔。

駭蟲是利用微軟的漏洞進行散播病毒，而目前微軟只針對Windows NT 以上的作業系統提供修補漏洞程式，所以使用Windows 98 作業系統的用戶請小心。

請到Windows Update網站，或按[開始]→[Windows Update]

來更新你的作業系統，並安裝所有重大安全性更新，會比較好

如果你目前只想解決您現在的問題，請連線至以下網頁

下載安裝此安全性修補程式：

http://www.microsoft.com/taiwan/security/bulletins/MS03-026.asp

2.解毒方法

(1)安裝上述更新修補程式

(2)關閉系統還原

如何關閉或啟用Windows XP「系統還原」
http://service1.symantec.com/SUPPORT/INTER/traditionalchinesekb.nsf/twdocid/20020517102945932
如何關閉或啟用Windows Me「系統還原」
http://service1.symantec.com/SUPPORT/INTER/traditionalchinesekb.nsf/twdocid/20020517101224932
(3)線上更新病毒碼至最新定義

(4)重新開機按住F8進入安全模式掃描

(5)將所有中毒的檔案直接刪除，解毒完畢

以上資訊轉貼自http://www.pczone.com.tw/vbb3/archive/t-118122.html

在Excel VBA 開關存檔

以下是花了很多時間嘗試的VBA 操控EXCEL
'建立Excel物件
Set ExcelObj = Server.CreateObject("Excel.Application") '建立Excel物件
ExcelObj.DisplayAlerts = false '不顯示警告訊息
ExcelObj.Application.Visible = true '顯示應用程式

'開啟Excel文件
Set ExcelApp = ExcelObj.WorkBooks.Open(ExcelTmp) '設定Excel物件開啟ExcelTmp這個檔案
Set ExcelBook = ExcelObj.ActiveWorkBook '指定ExcelBook為作用工作表
ExcelBook.Sheets("table6").Select '選擇作用工作表
Set ExcelSheets = ExcelBook.Worksheets("table6")
ExcelObj.Interactive = false
ExcelObj.Application.DisplayAlerts = false

'儲存檔案
ExcelSheets.Range("B6").Select '選取B6這個儲存格
With ExcelObj.ActiveWindow '對該Excel物件做分割於左方1 格下方5格的位置分割
.SplitColumn = 1
.SplitRow = 5
End With

ExcelObj.ActiveWindow.FreezePanes = True '凍結視窗

ExcelObj.activewindow.Zoom = 75 'Zoom 75%

SaveFileName = "abcde.xls" '設定檔名
ExcelApp.SaveAs Server.MapPath("./" & SaveFileName) '將檔案另存於本機目錄下的abcde.xls
Set Excelsheets = ExcelBook.Sheets(1) '將Excelsheets設為第一工作簿

'關閉程式
ExcelObj.Quit '離開Excel
Set ExcelObj = nothing '釋放Excel物件所使用的記憶體