jquintino Posted July 10, 2005 Share Posted July 10, 2005 right Link to comment Share on other sites More sharing options...
Nepali Posted July 10, 2005 Share Posted July 10, 2005 http://www.nirsoft.net/utils/wul.html Link to comment Share on other sites More sharing options...
oneless Posted July 10, 2005 Share Posted July 10, 2005 for example , KB834707 is an out of date hotfix .can someone tell me what kind of information can dothe 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 computerimportant are the hotfixes up to datewho arent installed in that computer .am i wrong please ?! Link to comment Share on other sites More sharing options...
Nazgul Posted July 10, 2005 Share Posted July 10, 2005 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. Link to comment Share on other sites More sharing options...
oneless Posted July 10, 2005 Share Posted July 10, 2005 self answer :suppose that windows update v4..v6 get me the installed hotfixesnot the unistalled ..LOL , what idea , i hope billG is not an active member of MSFN !anyway , in my windowx XP pro SP2when 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 Updatesexcept windows installer 3.1 v2 who is separately showed , GDI+ malicious v.1.x Link to comment Share on other sites More sharing options...
gunsmokingman Posted July 10, 2005 Share Posted July 10, 2005 (edited) Here is a VBS script that list the updates installed on the computerIt Is a Modified Version of this Hey, Scripting Guy! script.Save As A YOURNAME.vbs Dim Description, Font1, GbB1, InTA, Table1, Table2, TDSet objSession = CreateObject("Microsoft.Update.Session")Set objSearcher = objSession.CreateUpdateSearcherintHistoryCount = objSearcher.GetTotalHistoryCountTable1 = "<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- 1Set colHistory = objSearcher.QueryHistory(1, intHistoryCount) For Each objEntry in colHistoryInTA = 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 5500NextGrB1.Document.Body.InnerHTML ="<center>" & Table2 & Font1 & "Color=""#c1c1c1""> Completed The List Updates " WScript.Sleep 5500GrB1.quitThis Searches For The Names In The ArrayBlue Text Is The ArraySave As A YOURNAME.vbs Const ForReading = 1, ForWriting = 2, ForAppending = 8Dim Act,Fso,INTA,SD,strComputer,strKB,TheFile,V,ReportSet 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-1If 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 & KbnameSet 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 & TheFileWF.WriteLine "'<-- The End Of The Search Time Of The Script " & Now & " -->" & VWf.Close Next NextAct.Run(Report),1,TrueGsm = 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 IfIf Gsm = 7 Then Fso.DeleteFile(Report)Act.Popup "Deleted The Report", 3, "Delete The Report", 0 + 32End IfIf Gsm = -1 Then Fso.DeleteFile(Report)Act.Popup "Deleted The Report", 3, "Delete The Report", 0 + 32End IfI Fixed The Error Sorry It Was Just A Extra & In The Script Edited July 11, 2005 by gunsmokingman Link to comment Share on other sites More sharing options...
mouvda Posted July 10, 2005 Share Posted July 10, 2005 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 Link to comment Share on other sites More sharing options...
Takeshi Posted July 11, 2005 Share Posted July 11, 2005 The 2nd vbs returns a syntax error when I try it:Line: 37Char: 56Code: 800A03EAAs discussed in a previous thread, it's also possible to query the registry for the hotfixes installed. Link to comment Share on other sites More sharing options...
Third3ye Posted July 23, 2005 Share Posted July 23, 2005 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now