Mở Notepad và chép đọan mã sau :
Set oFS =CreateObject("Scripting.FileSystemObject")
Set oFileCnameoutput= oFS.CreateTextFile("c:\phuoc.txt", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
' Wscript.Echo "Description: " & objQuickFix.Description
' Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
oFileCnameoutput.WriteLine "Description: " & objQuickFix.Description
oFileCnameoutput.WriteLine "Hot Fix ID: " & objQuickFix.HotFixID
Next
Lưu tập tin này lại và đặt tên là testhotfix.vbs . Vào C: mở tập tin mang tên là phuoc.text để xem kết quả