Function HasWMI()
'Returns True is able to get CIMV2
Dim oTest
	Set oTest = Nothing
	On Error Resume Next
	Err.Clear
	Set oTest = GetObject("winmgmts:\\.\root\CIMV2")
	If oTest Is Nothing Then
		If OsVersion() = 4 Then
			If MsgBox ("You don't seem to have WMI (Windows Management Infrastructure). May I take you to a Microsoft web page where you can download WMI?", vbYesNo, "WMI") = vbYes Then
				ws.Run "http://www.microsoft.com/downloads/details.aspx?FamilyID=afe41f46-e213-4cbf-9c5b-fbf236e0e875&DisplayLang=en", 1, False
			End If
		End If
		HasWMI = False
	Else
		Set oTest = Nothing
		HasWMI = True
	End If
End Function