Freddi

Hello oneless, thank you for your answer, here my old examples in vbscript to verify the version. Function NT_Hotfixes() On Error Resume Next Const HKEY_LOCAL_MACHINE = &H80000002 Dim lRC, i, sPath, sRes, sKeys(), objRegistry Set objRegistry = GetObject("winmgmts:root\default:StdRegProv") sPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix" lRC = objRegistry.EnumKey(HKEY_LOCAL_MACHINE, sPath, sKeys) If (lRC = 0) And (Err.Number = 0) Then ShellSortS sKeys For i=0 to ubound(sKeys) If sKeys(i) = "KB826939" Then Patch1 = True If sKeys(i) = "KB828028" Then Patch2 = True If sKeys(i) = "KB828035" Then Patch3 = True If sKeys(i) = "KB825119" Then Patch4 = True If sKeys(i) = "KB824105" Then Patch5 = True If sKeys(i) = "KB823182" Then Patch6 = True If sKeys(i) = "KB824141" Then Patch7 = True If sKeys(i) = "Q828026" Then Patch8 = True If sKeys(i) = "KB817787" Then Patch9 = True If sKeys(i) = "Q832894" Then Patch10 = True If sKeys(i) = "Q330994" Then Patch11 = True If sKeys(i) = "KB826939" Then Patch12 = True If sKeys(i) = "KB826939" Then Patch13 = True If sKeys(i) = "KB826939" Then Patch14 = True If sKeys(i) = "KB832483" Then Patch15 = True If sKeys(i) = "Q819696" Then Patch16 = True Next else NT_Hotfixes = vbnullstring End If Set objRegistry = Nothing End Function Function Get_IE_Version() Dim WshShell, Version, Hf On Error Resume Next Set WshShell = CreateObject("WScript.Shell") Version = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version") Hf = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\MinorVersion") IEUpd = Split(hf, ";", -1, 1) If Err.Number = 0 Then For i=0 to ubound(IEUpd) If IEUpd(i) = "Q832894" Then PatchIE1 = True If IEUpd(i) = "Q330994" Then PatchIE2 = True Next Else Get_IE_Version = vbnullstring End If Set WshShell = Nothing End Function Set WSHShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") Text = WSHShell.ExpandEnvironmentStrings("%WinDir%") & "\system32\msjava.dll" MsgBox UCASE(Text) & vbCRLF & "hat die Version: " & fso.GetFileVersion(Text), , WScript.ScriptName MSJAVA_Version DX_Version Sub MSJAVA_Version Dim WshShell, Version On Error Resume Next Set WshShell = CreateObject("WScript.Shell") Version = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{08B0E5C0-4FCB-11CF-AAA5-00401C608500}\Version") Set WshShell = Nothing Select Case Version Case "5,0,3810,0": MsgBox "Patch installiert" Case "5,0,3805,0": MsgBox "Patch nicht installiert" Case Else MsgBox "Die Version konnte nicht ermittelt werden!" End Select End Sub Sub DX_Version Dim WshShell, Version On Error Resume Next Set WshShell = CreateObject("WScript.Shell") Version = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\DirectX\Version") Set WshShell = Nothing Select Case Version Case "4.09.00.0904": MsgBox "DirectX 9.0c" Case "4.09.00.0902": MsgBox "DirectX 9.0b" Case Else MsgBox "Die Version konnte nicht ermittelt werden!" End Select End Sub I'm not a good programmer... I'll test your code for my menu. Freddi

Hello, I'm wish also a grey checkbox for already installed software. The function to verify for installed software can integrated later... I will read the registry for installed updates, IE and DirectX version... Thanks for the great tool Freddi