Re: How do I run the latest MS security updates were installed?



Lavetta

I believe the following shows that the value is not being set.
Notice that the documentation does state that the InstallDate does not
need to be set in order for the QFE object to indicate it was installed.

--
Roger Abell
Microsoft MVP (Windows Server : Security)
MCDBA, MCSE W2k3+W2k+Nt4

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")

Set objDateTime = CreateObject("WbemScripting.SWbemDateTime")

For Each objQuickFix in colQuickFixes
Wscript.Echo "Computer: " & objQuickFix.CSName
Wscript.Echo "Description: " & objQuickFix.Description
Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
' Wscript.Echo "Installation Date: " & objQuickFix.InstallDate
If Not (IsNull(objQuickFix.InstallDate) Or _
IsEmpty(objQuickFix.InstallDate)) Then
objDateTime.Value = objQuickFix.InstallDate
' Wscript.Echo "Installation Date: " & objDateTime.GetVarTime
Wscript.Echo "Installation Date: " & objDateTime.GetFileTime
Else
WScript.Echo "Install Date Type: " &
TypeName(objQuickFix.InstallDate)
End If
Wscript.Echo "Installed By: " & objQuickFix.InstalledBy
Next


"Lavetta" <Lavetta@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:32C3DF38-6892-472F-8C0A-9C8F5676C32F@xxxxxxxxxxxxxxxx
I am using the below script but I am unable to get the installed date
worked
(it is empty.)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")

For Each objQuickFix in colQuickFixes
Wscript.Echo "Computer: " & objQuickFix.CSName
Wscript.Echo "Description: " & objQuickFix.Description
Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
Wscript.Echo "Installation Date: " & objQuickFix.InstallDate
Wscript.Echo "Installed By: " & objQuickFix.InstalledBy
Next


"Lavetta" wrote:

pleases reply ASAP.Thanks,


.



Relevant Pages

  • Enumerate hotfix in XP
    ... Set colQuickFixes = objWMIService.ExecQuery _ ... For Each objQuickFix in colQuickFixes ... NextDon't enumerate the hotfixes installed on my XP machine, ...
    (microsoft.public.scripting.wsh)
  • Hotfixe list on XP
    ... Set colQuickFixes = objWMIService.ExecQuery _ ... For Each objQuickFix in colQuickFixes ... Don't enumerate the hotfixes installed on my XP machine, ...
    (microsoft.public.windows.server.scripting)
  • Determining a Hot Fixs Installation Date
    ... Set objWMIService = GetObject("winmgmts:" _ ... Set colQuickFixes = objWMIService.ExecQuery _ ... For Each objQuickFix in colQuickFixes ...
    (microsoft.public.windowsxp.general)
  • Re: Hotfixe list on XP
    ... retrieve the information from the registry. ... joseph wrote: ... Set colQuickFixes = objWMIService.ExecQuery _ ...
    (microsoft.public.windows.server.scripting)
  • Re: Enumerate hotfix in XP
    ... rephrase it? ... Set colQuickFixes = objWMIService.ExecQuery _ ...
    (microsoft.public.scripting.wsh)

Quantcast