madmorgan Posted March 11, 2010 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.
Developers Jos Posted March 11, 2010 Developers 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.
madmorgan Posted March 11, 2010 Author Posted March 11, 2010 ive look for that location in the reg but its not there. any othere ideas?
stamandster Posted September 21, 2010 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
wakillon Posted September 21, 2010 Posted September 21, 2010 @kickarseNice script ! Tried on xp sp3 and works fine !Thanks. AutoIt 3.3.18.0 X86 - SciTE 5.5.7 - WIN 11 24H2 X64 - Other Examples Scripts
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