判断PC是否存在.Net

Public Function IsMSFrameworkInstalled()
   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
   MsgBox objItem.Name
   IsMSFrameworkInstalled = True       
  End If   
 Next
End Function
'调用：   
msgbox IsMSFrameworkInstalled()