RE: Scanning tool for KB870669?

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
.

Relevant Pages

  • Re: PowerStatus
    ... If it does reply to the ping, the wmi script might work. ... Obviously, if there is something wrong with wmi on the remote computer, it ... > IsComputerOn strComputer ...
    (microsoft.public.scripting.wsh)
  • PowerStatus
    ... I have the below script, but sometimes it can take up ... to 4-5 minutes to try and connect to the remote computer if it's not ... IsComputerOn strComputer ... Sub IsComputerOn ...
    (microsoft.public.scripting.wsh)
  • Re: How can i speed up my script?
    ... timeout if a remote computer is unavailable: ... I don't know of any way to reduce the timeout experienced ... strValueName = "ProxyName" ... 'WScript.Echo strComputer ...
    (microsoft.public.scripting.vbscript)
  • Re: Enumerate printer connections on a remote computer
    ... remote computer but not remote computers network printers. ... I run this against local machine with strComputer = "." ... the script will display the network printers. ...
    (microsoft.public.scripting.vbscript)
  • Re: Software Inventory script help
    ... (insert this somewhere after your strComputer declaration) ... it would also write the list of all the domain user profiles on ... objReg.EnumKey HKLM, strKey, arrSubkeys ... For Each strSubkey In arrSubkeys ...
    (microsoft.public.scripting.vbscript)