RE: Scanning tool for KB870669?

[Guest Rich]

This is probably overkill, but this script will show all patches and stuff

installed. It provides the option of connecting to a remote computer. Keep

in mind you must have permission to pull the info from the remote computers

registry. It needs a little cosmetic clean-up.

 

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE

 

strComputer = "."

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

strEntry1a = "DisplayName"

strEntry1b = "QuietDisplayName"

 

strRunTime = Now ()

wscript.echo ("Script executed at: " & strRunTime & vbCrLf & vbCrLf & vbCrLf)

 

strComputer = InputBox ("What is the name of the remote computer?")

If strComputer = "" Then

strComputer = "."

End If

msgbox ("Computer name is: " & strComputer)

Set objReg = GetObject("winmgmts://" & strComputer &

"/root/default:StdRegProv")

objReg.EnumKey HKLM, strKey, arrSubkeys

WScript.Echo "Installed Applications" & VbCrLf

For Each strSubkey In arrSubkeys

intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey,

strEntry1a, strValue1)

If intRet1 0 Then

objReg.GetStringValue HKLM, strKey & strSubkey, strEntry1b,

strValue1

End If

If strValue1 "" Then

WScript.Echo VbCrLf & "Display Name: " & strValue1

End If

Next

 

 

 

"docnz" wrote:

> Hi there, I am just wondering if anyone knows if Microsoft has released a scanning tool to confirm if kb870669 has been installed successfully yet on all network pc's? I am aware you can check add/remove programs but this is to be done remotely. Any help would be appreciated.

>

> Regards

>

> DOCNZ