R
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
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
