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()
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()