madmorgan Posted March 11, 2010 Share Posted March 11, 2010 Hello All, can you tell me were the windows 7 updates information is keppt in the regsistory please i did use this line of code befor on windows XP but it dont work any more on Win 7. RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\ Windows " & _"XP\SP3\KB921398" any information will help thanks. Link to comment Share on other sites More sharing options...
Developers Jos Posted March 11, 2010 Developers Share Posted March 11, 2010 "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432node\Microsoft\Updates\" ? SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
madmorgan Posted March 11, 2010 Author Share Posted March 11, 2010 ive look for that location in the reg but its not there. any othere ideas? Link to comment Share on other sites More sharing options...
stamandster Posted September 21, 2010 Share Posted September 21, 2010 (edited) I've adapted the script from the below site which should help you out and get you started http://msinfluentials.com/blogs/jesper/archive/2007/12/28/remotely-listing-all-installed-updates.aspx expandcollapse popup$strCompName = @ComputerName $strQuery = "winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strCompName & "\root\cimv2" $objWMIService = ObjGet($strQuery) $colItems = $objWMIService.ExecQuery("Select * from win32_QuickFixEngineering") $oFile = @scriptdir &"\"& $strCompName & ".html" IF IsObj($colItems) Then FileDelete($oFile) Filewriteline($oFile,'<HTML><HEAD><TITLE>Installed Updates</TITLE></HEAD><BODY>') Filewriteline($oFile,'<h1>Found ' & $colItems.Count & ' updates on ' & $strCompName & '</h1>') Filewriteline($oFile,'<table border="1">') Filewriteline($oFile,'<tr style="background-color:#a0a0ff;font:10pt Calibri;font-weight:bold;" align="left"') Filewriteline($oFile,'<td>Caption</td>') Filewriteline($oFile,'<td>Description</td>') Filewriteline($oFile,'<td>Hotfix ID</td>') Filewriteline($oFile,'<td>Installed By</td>') Filewriteline($oFile,'<td>Installed On</td>') Filewriteline($oFile,'<td>Service Pack in Effect</td>') Filewriteline($oFile,'<td>Fix Comments</td>') Filewriteline($oFile,'</tr>') For $QFE in $colItems Filewriteline($oFile,'<tr style="background-color:#e0f0f0;font:10pt Calibri;"') Filewriteline($oFile,'<td>' & $QFE.Caption & '</td>') Filewriteline($oFile,'<td>' & $QFE.Description & '</td>') Filewriteline($oFile,'<td>' & $QFE.HotfixID & '</td>') Filewriteline($oFile,'<td>' & $QFE.InstalledBy & '</td>') Filewriteline($oFile,'<td>' & $QFE.InstalledOn & '</td>') Filewriteline($oFile,'<td>' & $QFE.ServicePackInEffect & '</td>') Filewriteline($oFile,'<td>' & $QFE.FixComments & '</td>') #cs msgbox(0,"FOUND","Caption: " & $QFE.Caption & @CRLF _ &"Description: " & $QFE.Description & @CRLF _ &"Hotfix ID: " & $QFE.HotfixID & @CRLF _ &"Installed By: " & $QFE.InstalledBy & @CRLF _ &"Installed On: " & $QFE.InstalledOn & @CRLF _ &"Service Pack: " & $QFE.ServicePackInEffect & @CRLF _ &"Fix Comments: " & $QFE.FixComments) #ce Next Filewriteline($oFile,'</tr>') Filewriteline($oFile,'</table></body></html>') EndIf if FileExists($oFile) Then ShellExecute($oFile) Edited September 21, 2010 by kickarse Link to comment Share on other sites More sharing options...
wakillon Posted September 21, 2010 Share Posted September 21, 2010 @kickarseNice script ! Tried on xp sp3 and works fine !Thanks. AutoIt 3.3.14.2 X86 - SciTE 3.6.0 - WIN 8.1 X64 - Other Example Scripts 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