檢視你打了多少Hotfix？ V2.0

psac · 2003-11-04, 09:45 PM

檢視你打了多少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"">ID</td>" & vbcrlf & _
" <td width=""80%"" height=""16"" align=""center"">修正檔描述</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 & """>" & _
objQuickFix.HotFixID & "</a></td>" & vbcrlf & _
" <td>" & desc(ID) & "</td>" & vbcrlf & _
" </tr>" & vbcrlf
Next

HTMFile.WriteLine "<tr><td colspan=""2"" height=""30"">" & vbcrlf & _
"直到 " & getdata() & " 一共安裝了 " & i & " 個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

2003-11-04, 09:45 PM	#1
psac 榮譽會員榮譽勳章勳章總數19 UID - 3662 在線等級: 註冊日期: 2002-12-07 住址: 木柵市立動物園文章: 17381 精華: 2 現金: 5253 金幣資產: 33853 金幣	檢視你打了多少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, 收花文章: 1631 篇, 收花: 3205 次

主題工具
顯示可列印版本郵寄本頁給好友
顯示模式
平板模式切換到混合模式切換到樹形模式

Google 提供的廣告