Dim Act :Set Act = CreateObject("Wscript.Shell")
Dim Obj, Rg1, Rst
Dim Reg :Reg = Array( _
"1 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\1.0.3705\Version", _
"1.1 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\1.1.4322\Version", _
"2 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\Version", _
"3 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Version", _
"3.5 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\Version", _
"4 Client Profile - HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\v4\Client\Version", _
"4 Full - HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\v4\Full\Version")
On Error Resume Next
For Each Obj In Reg
Rg1 = Split(Obj," - ")
If IsNull(Act.RegRead(Rg1(1))) Then
Rst = Rst & "Missing Net Frame Work : " & Rg1(0) & vbCrLf
Else
Rst = Rst & "Confirm Net Frame Work : " & Rg1(0) & " - " & Act.RegRead(Rg1(1)) & vbCrLf
End If
Next
MsgBox Rst, 4128,"Net Framework Info"