用 VB6 检查Windows上有没有安装 .NET Framework

'检查函数
'若安装了.NET Framework，返回：True

Public Function IsMSFrameworkInstalled() As Boolean
    On Error Resume Next
    Dim objWMIService
    Dim colItems
    Dim objItem
    Set objWMIService = GetObject("winmgmts://./root/cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Product")
    For Each objItem In colItems
        If InStr(objItem.Name, "Microsoft .NET Framework") > 0 Then
           IsMSFrameworkInstalled = True
        End If
    Next
End Function

'示例

Private Sub Command1_Click()
    MsgBox IsMSFrameworkInstalled()
End Sub