how to find ou wich hotfixes are installed?

[jquintino]

right

[Nepali]

http://www.nirsoft.net/utils/wul.html

[oneless]

for example , KB834707 is an out of date hotfix .

can someone tell me what kind of information can do

the fact that this hotfix is installed on a computer or other?

a list of already installed hotfixes can help you!????????????

sorry : i said before , i repete now , for me is not important

what hotfixes are installed on a computer

important are the hotfixes up to date

who arent installed in that computer .

am i wrong please ?!

[Nazgul]

The fact that you hav an 'outdated' patch on your system means nothing. At the time it was installed it wasn't outdated and although other patches have been installed since then that make the former patch outdated, the installation information isn't removed from the machine.

Also, to check which hotfixes are missing from a machine, you can use HFNetChk or MBSA.

If you want to run these tools on machines without Internet access, you just have to download the catalogs (the FAQ tells where you can find those) occasionally and copy it to that machine to have up-to-date scan results.

[oneless]

self answer :

suppose that windows update v4..v6 get me the installed hotfixes

not the unistalled ..

LOL , what idea , i hope billG is not an active member of MSFN !

anyway , in my windowx XP pro SP2

when i go to

control panel -> add or remove programs -> (show updates CHECKED)

i can see a full list of installed updates in the Windows XP-Software Updates

except

    windows installer 3.1 v2 who is separately showed ,

    GDI+

    malicious v.1.x

[gunsmokingman]

Here is a VBS script that list the updates installed on the computer

It Is a Modified Version of this Hey, Scripting Guy! script.

Save As A YOURNAME.vbs

Dim Description, Font1, GbB1, InTA, Table1, Table2, TD

Set objSession = CreateObject("Microsoft.Update.Session")

Set objSearcher = objSession.CreateUpdateSearcher

intHistoryCount = objSearcher.GetTotalHistoryCount

Table1 = "<Table Bgcolor=""#ededed"" width=""525"">"

Table2 = "<Table Bgcolor=""#dddddd"" width=""525"">"

TD = TD = "<TD STYLE=""font:8.75pt Palatino Linotype"" Width=""515"">"

Font1 = "<Font Style=""Arial"" font-weight""Bold-Italic"" "

Set GrB1 = WScript.CreateObject("InternetExplorer.Application")

    GrB1.Navigate "Local:ListUpdates" 

    GrB1.ToolBar = 0

    GrB1.StatusBar = 0

    GrB1.Width=600

    GrB1.Height = 405

    GrB1.Left = 375

    GrB1.Top = 125

    GrB1.Visible = 1

Set Act = CreateObject("Wscript.Shell")

InTA = 1- 1

Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

   

For Each objEntry in colHistory

InTA = InTA + 1

GrB1.Document.Body.InnerHTML = "<center>" & Table2 & Font1 &  "Color=""#c1c1c1""> Gsm List Updates " &_

"<center>" & Table2 & Font1 & "Color=""Green""><center>" &objEntry.Title & "</Table></TD>"&_

"<center>" & Table1 & "<TD STYLE=""font:9.75pt Palatino Linotype"" Width=""440"">" &_

"<TD STYLE=""font:9.75pt Palatino Linotype"" Width=""440"">" & Font1 &  "Color=""#000ff""> This Was Installed On : " & objEntry.Date & "</Table></TD>" &_

"<center>" & Table2 & Font1 &  "Color=""#0000f"">" &  objEntry.Description & "</Table></TD>" &_

  "<center>" & Table1 & Font1 &  "Color=""Red"">How Many Updates Installed : " &  Inta & "</Table></TD>"

  WScript.Sleep 5500

Next

GrB1.Document.Body.InnerHTML ="<center>" & Table2 & Font1 &  "Color=""#c1c1c1""> Completed The List Updates "

WScript.Sleep 5500

GrB1.quit

This Searches For The Names In The Array

Blue Text Is The Array

Save As A YOURNAME.vbs

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim Act,Fso,INTA,SD,strComputer,strKB,TheFile,V,Report

Set Act = CreateObject("Wscript.shell")

Set Fso = CreateObject("Scripting.FileSystemObject")

''''''''''''''''''''''''''''''' Location For The Script ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SD = Act.ExpandEnvironmentStrings("%SystemDrive%")

''''''''''''''''''''''''''''''' Misc Varibles For The Script '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Report = ("ListUpdate.Txt")

V = vbCrLf

strComputer = "."

''''''''''''''''''''''''''''''' Arrays For The Scrpt '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim KbL : KbL = Array (_

"KB835935", "KB887742", "KB885626", "KB873339", "KB885835", "KB834707",_

"KB885836", "KB886185", "KB890175", "KB873333", "KB888113", "KB891781",_

"KB888302", "KB883939", "KB890046", "KB893066", "KB896358", "KB896422",_

"KB896428", "KB890047", "KB890859", "KB890923")

INTA = 1-1

If Fso.FileExists(Report) Then Fso.DeleteFile(Report) End If

  For Each StrKB In KbL

  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

  Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile Where FileName = '" & StrKB & "'")

     INTA = INTA + 1

  If colFiles.Count = 0 Then 

   Act.Popup "Missing", 3, "Missing", 0 + 32

  end If

    For Each objFile in colFiles

   FName = Ucase(objFile.FileName)

   Kbname = Ucase(objFile.FileName & "." & objFile.Extension)

   KbPath = UCase(objFile.Drive & objFile.Path)

   TheFile = KbPath & Kbname

Set WF = fso.OpenTextFile( Report, ForAppending, 2, true) 

WF.WriteLine "'<-- The Start Time Of The Script " & Time & " -->How Many Times The Loop ran = " & Inta

WF.WriteLine "The Name of The Update : " & FName

WF.WriteLine "-----------------------------------------------------------"

Wf.WriteLine "The Download Location : " & V & TheFile

WF.WriteLine "'<-- The End Of The Search Time Of The Script " & Now & " -->" & V

Wf.Close

     Next

   Next

Act.Run(Report),1,True

Gsm = Act.Popup ("Did you want to keep the Report" &_

V & "Yes To Keep The Report" & V & "No To Keep The Report" &_

V &  "There Is A 15 Second Time Out."& V & "Defualt Time Out Action Is" &_

V & "To delete The Reoprt", 15, "Keep Or Delete", 4 + 32)

If Gsm = 6 Then

Act.Popup "Keeping The Report End",3,"Keep The Report", 0 + 32

End If

If Gsm = 7 Then

Fso.DeleteFile(Report)

Act.Popup "Deleted The Report", 3, "Delete The Report", 0 + 32

End If

If Gsm = -1 Then

Fso.DeleteFile(Report)

Act.Popup "Deleted The Report", 3, "Delete The Report", 0 + 32

End If

I Fixed The Error Sorry It Was Just A Extra & In The Script

Edited July 11, 2005 by gunsmokingman

[mouvda]

if you want to grab your hotfixes, you can use wutool (freeware).

it can grab them when you're updating via windowsupdate and it test switches of hotfixes.

http://ovacia.amicom.ru/w_download_eng.htm

[Takeshi]

The 2nd vbs returns a syntax error when I try it:

Line: 37

Char: 56

Code: 800A03EA

As discussed in a previous thread, it's also possible to query the registry for the hotfixes installed.

[Third3ye]

I have a similar problem. But I don't want to compare my computer to the install I've produced with nLite. I want to check the unburned cd (files that is) to see what kind of hotfixes I'm going to be putting on the install CD.