Private Sub Form_Load()

      Dim Name As String
      Dim Value As String

      Set locator = CreateObject("WbemScripting.SWbemLocator")
      Set svc = locator.ConnectServer(".", "root\aspnet")
      Set ob = svc.Get("__ClassModificationEvent")
      Set objset = ob.Instances_
      
      For each obj in objset

        For each prop in objset.Properties_

          Name = prop.Name
          Value = checkmne(prop)

          tempstr = temsptr & Name & " = " & Value & vbcrlf

        Next

      Msgbox(tempstr)
      tempstr = ""

      Exit For
      Next

    End Sub

    Public Function Checkme(ByVal prop As SWbemProperty) As String
        Checkme = ""

        If IsDBNull(prop.Value) = True Then

            Return Checkme

        ElseIf prop.IsArray = True Then

            Checkme = Join(prop.Value, ",")
            Return Checkme

        ElseIf prop.CIMType = WbemCimtypeEnum.wbemCimtypeDatetime Then
            Checkme = prop.Value.ToString().Substring(4, 2) & "/" & _
                      prop.Value.ToString().Substring(6, 2) & "/" & _
                      prop.Value.ToString().Substring(0, 4) & " " & _
                      prop.Value.ToString().Substring(8, 2) & ":" & _
                      prop.Value.ToString().Substring(10, 2) & ":" & _
                      prop.Value.ToString().Substring(12, 2)

            Return Checkme

        Else

            Checkme = prop.Value.ToString()

        End If


    End Function