|
論壇說明 | 標記討論區已讀 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
2003-11-04, 09:45 PM | #1 |
榮譽會員
|
檢視你打了多少Hotfix? V2.0
檢視你打了多少Hotfix? V2.0
第一版連結: http://www.slime2.com.tw/forums/show...threadid=79629 利用大家上次貼出來的修正檔信息,去微軟網站搜尋了相對應的描述。 然後做了一下昇級,去掉了不重要的字段,增加了一個「修正檔描述」,並在ID上增加了修正檔的技術信息的超連結。 修正檔描述的內容並不完全,大家有興趣的可以自己增加。 一般問題解答: Q. 這個指令碼的適用環境? A. 2k\xp\2003 的所有版本 Q. 為什麼我不能執行? A. 這是因為你禁止了WSH或者缺少WSH。如果被禁止,只要恢復即可。如果在system32目錄裡找不到wscript.exe文件,請到微軟網站下載Windows Script。 Q. 我如何編輯這個指令碼? A. 對著指令碼文件按下右鍵,然後選項「編輯」。如果你有VB的基礎,將會很容易看懂這個指令碼。 Q. 我的病毒防火牆發出了警告,這個指令碼是否真的有病毒? A. 請放心,這個指令碼絕沒有病毒。因為本指令碼使用了VBS中新增文件的函數,所以會被誤報為病毒。 '========================================================================== ' ' NAME: HotfixList2 ' ' AUTHOR: SY , 1914 ' DATE : 2003-11-4 ' ' COMMENT: 列出在本機安裝的 Hotfix 清單 ' ' 一般問題解答: ' ' Q. 這個指令碼的適用環境? ' A. 2k\xp\2003 的所有版本 ' ' Q. 為什麼我不能執行? ' A. 這是因為你禁止了WSH或者缺少WSH。如果被禁止,只要恢復即可。如果在system32目錄裡找不到wscript.exe文件,請到微軟網站下載Windows Script。 ' ' Q. 我如何編輯這個指令碼? ' A. 對著指令碼文件按下右鍵,然後選項「編輯」。如果你有VB的基礎,將會很容易看懂這個指令碼。 ' ' Q. 我的病毒防火牆發出了警告,這個指令碼是否真的有病毒? ' A. 請放心,這個指令碼絕沒有病毒。因為本指令碼使用了VBS中新增文件的函數,所以會被誤報為病毒。 Q: 我在XP下執行出現這樣: 腳本警訊回應出錯 .... 腳本:f:\hostlistfix2\hostlistfix2.vbs 行:72 字串:2 錯誤:automation 操作中文檔名或類名別 未找到 ' Rexexp' 代碼:8000A01B0 來源:microsoft Vbsript 執行錯誤! 這樣的畫面........................... A: RegExp是正則陳述式的對象,你怎麼會沒有呢?我的操作環境也是XP,而且沒升過級。就算微軟打修正檔,也不會把這個東西遮閉掉。看來你的XP有些不健康 ! 可能是WSH有部分損壞吧。建議你由下地方,重新安裝一遍試試。 http://download.pchome.net/system/patch/11065.html Q: 一執行害得我的機器差點死掉了,不停的吃記憶體(已經最小化過一次,本來是200M多+400M,圖中還在繼續增加中),我只好把那個服務重啟了。我的系統是:Win2000SRV+SP2 IE6+SP1 A: 會是你的修正檔打得太多了吧?我指令碼裡面用到的函數和指令都是2k支持的,應該不會有什麼問題的。 下面為: hostlistfix2.vbs 文件 '========================================================================== i=0 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery ("SELECT * FROM Win32_QuickFixEngineering") Set FSO = CreateObject("Scripting.FileSystemObject") Set HTMFile = FSO.CreateTextFile("HotfixList.htm", True) HTMFile.WriteLine "<html>" & vbcrlf & "<head>" & vbcrlf & _ "<meta http-equiv=""Content-Language"" content=""zh-cn"">" & vbcrlf & _ "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbcrlf & _ "<title>Hotfix清單</title>" & vbcrlf & _ "<base target=""_blank"">" & vbcrlf & _ "</head>" & vbcrlf & "<body text=""#FFFFFF"">" & vbcrlf & _ "<table border=""1"" width=""100%"" cellpadding=""4"" bgcolor=""#0099CC"" bordercolor=""#FFFFFF"" cellspacing=""0"" style=""border-collapse: collapse"">" & vbcrlf & _ " <tr>" & vbcrlf & _ " <td width=""20%"" height=""16"" align=""center""><b>ID</b></td>" & vbcrlf & _ " <td width=""80%"" height=""16"" align=""center""><b>修正檔描述</b></td>" & vbcrlf & _ " </tr>" & vbcrlf For Each objQuickFix in colQuickFixes i=i+1 ID=getnum(objQuickFix.HotFixID) '得到純數字 HTMFile.WriteLine "<tr>" & vbcrlf & _ " <td align=""center"">" & _ "<a href=""http://support.microsoft.com?kbid=" & ID & """><font color=""#FFFFFF"">" & _ objQuickFix.HotFixID & "</font></a></td>" & vbcrlf & _ " <td>" & desc(ID) & "</td>" & vbcrlf & _ " </tr>" & vbcrlf Next HTMFile.WriteLine "<tr><td colspan=""2"" height=""30"">" & vbcrlf & _ "<p align=""Right"">直到 <b>" & getdata() & "</b> 一共安裝了 <b>" & i & "</b> 個Hotfix</td>" & vbcrlf & _ "</tr>" & vbcrlf HTMFile.WriteLine "</table>" & vbcrlf & "</body>" & vbcrlf & "</html>" HTMFile.Close msg=MsgBox("Hotfix清單產生完畢,請檢視 HotfixList.htm 文件。",64) Function getnum(strng) Dim WshShell, regEx, Match ' 建立變數。 Set WshShell = WScript.CreateObject("WScript.Shell") Set regEx = New RegExp ' 建立正則陳述式。 regEx.Pattern = "\d+" ' 設定模式。 Set Matche = regEx.Execute(strng) ' 執行搜尋。 getnum = Matche(0) End Function Function getdata() today=date y1=Year(today) m1=Month(today) d1=Day(today) getdata = y1 & "-" & m1 & "-" & d1 End Function Function desc (num) Select Case num Case "322011" desc = "無法在傳真控制台中預覽傳真" Case "323255" desc = "Windows 說明 工具中未經檢查的緩衝區可能允許攻擊者執行程式碼" Case "327979" desc = "播放介紹性視瀕剪輯時遊戲意外地停止回應(掛起)或退出" Case "328310" desc = "處理 Windows WM_TIMER 消息程序中存在的缺陷可能會提升權限" Case "328979" desc = "附加語言支持選項更改了程序背景顏色" Case "329048" desc = "Unchecked Buffer in File Decompression Functions May Allow Attacker to Run Code" Case "329115" desc = "證書驗證缺陷可能允許進行身份欺騙" Case "329170" desc = "SMB 簽名中的缺陷可能允許修改群組原則" Case "329390" desc = "Unchecked Buffer in Windows Shell Might Permit System Compromise" Case "329441" desc = "還原 Windows XP 後無法新增網路連接" Case "329581" desc = "在插接的便攜式電腦上啟動「安全移除硬體」實用程序時發生錯誤 0xFE" Case "329834" desc = "Unchecked Buffer in PPTP Implementation May Permit Denial-of-Service Attacks" Case "331953" desc = "RPC 終結點映射器中的缺陷可導致拒絕服務攻擊" Case "810090" desc = "在啟動或恢復電腦時間歇性地檢測不到通用串行總線設備" Case "810565" desc = "Hyperlinks Open in Internet Explorer Instead of in Default Browser or Help and Support Center" Case "810577" desc = "Windows Redirector 中未檢查的緩衝區可能會允許特權提升" Case "810833" desc = "定位器服務中未檢查的緩衝區可能允許程式碼執行" Case "811493" desc = "Windows 內核消息處理中的緩衝區溢出可導致特權昇級" Case "811630" desc = "使用 window.showHelp( ) 方法使用 HTML 說明 時限制其功能的 HTML 說明 更新" Case "814033" desc = "無法從 Windows Update Web 站點安裝驅動程式更新" Case "814995" desc = "在安裝 328310 更新程序後某些程序相容性修補程式停止執行" Case "815021" desc = "Windows 元件中未檢查的緩衝區可能危及 Web 伺服器的安全" Case "815485" desc = "Windows XP 中的 WPA 無線安全更新概述" Case "817287" desc = "Windows Update 643 錯誤和分類資料庫" Case "817606" desc = "Windows 緩衝區溢出可導致資料損壞" Case "828026" desc = "Update for Windows Media Player URL Script Command Behavior" Case "823718" desc = "Microsoft 資料訪問元件安全更新" Case "819696" desc = "DirectX 中未檢查的緩衝區可能危及系統安全" Case "823980" desc = "RPC 接頭中的緩衝區溢出可能提供程式碼執行機會" Case "821253" desc = "Windows 錯誤報告更新" Case "82155" desc = "VB Graph Control: ThisPoint, ThisSet Reset to 1 at Run Time" Case "82318" desc = "Stack Overflow Can Cause Windows to Hang" Case "82398" desc = "SHIFT+Double-Click Starting AmiPro 2.0 can Cause Error" Case "82410" desc = "Write Files on Left Side of Screen with HP 500C Printer" Case "82414" desc = "CA Compete Dialog Text Is Not Correctly Truncated" Case "817778" desc = "Advanced Networking Pack for Windows XP 概述" Case "820291" desc = "Windows XP 中有了新的「設定程序訪問和預設」開始選單圖示和說明 內容" Case "821253" desc = "Windows 錯誤報告更新" Case "821557" desc = "Windows 外殼程序中未經檢查的緩衝區可能會危及系統的安全" Case "822603" desc = "Windows XP SP1 USB 1.1 和 2.0 更新的可用性" Case "823182" desc = "Vulnerability in Authenticode Verification Could Allow Remote Code Execution" Case "823559" desc = "HTML 轉換器中的緩衝區溢出可能允許程式碼執行" Case "824105" desc = "NetBIOS 中的缺陷可能會導致信息被公開" Case "824141" desc = "Buffer Overrun in the ListBox and in the ComboBox Control Could Allow Code Execution" Case "824146" desc = "RPCSS 中的緩衝區溢出使攻擊者可以執行惡意程序" Case "825119" desc = "Buffer Overrun in Windows Help and Support Center Could Lead to System Compromise" Case "826939" desc = "Update Rollup 1 for Windows XP Is Available" Case "828035" desc = "Buffer Overrun in Messenger Service Could Allow Code Execution" Case "817787" desc = "Windows Media Player 外觀下載方式缺陷可允許程式碼執行" Case "819639" desc = "Windows Media Player 中的一個缺陷可能會導致「媒體庫」受到非法訪問" Case Else desc ="" End Select End Function |
送花文章: 3,
|