Solved

Management.ManagementObjectSearcher is not defined in VB 2005

Posted on 2009-03-31
5
973 Views
Last Modified: 2013-11-26
Each time I reference the code below in VB 2005 I get an error saying that Management.ManagementObjectSearcher is not defined can anyone suggest anything. This code works in Vb 2003
'API Declarations

    Public Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

    Public Structure SECURITY_ATTRIBUTES

        Dim nLength As Long

        Dim lpSecurityDescriptor As Long

        Dim bInheritHandle As Long

    End Structure

    'API constants

    Public Const FILE_SHARE_READ = &H1

    Public Const FILE_SHARE_WRITE = &H2

    Public Const OPEN_EXISTING = 3

    Public Const FILE_ATTRIBUTE_NORMAL = &H80

    'Return TRUE if the COM exists, FALSE if the COM does not exist

    Public Function COMAvailable(ByVal COMNum As Integer) As Boolean

        Dim hCOM As Long

        Dim ret As Long

        Dim sec As SECURITY_ATTRIBUTES
 

        'try to open the COM port

        hCOM = CreateFile("COM" & COMNum & "", 0, FILE_SHARE_READ + FILE_SHARE_WRITE, sec, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)

        If hCOM = -1 Then

            COMAvailable = False

        Else

            COMAvailable = True

            'close the COM port

            ret = CloseHandle(hCOM)

        End If

    End Function

    Public Sub DiscoverIndicatorCOMPort()

        Dim result As MsgBoxResult

        Dim strMessage As String
 

        Try

            Dim myWMIClassSearcher As New Management.ManagementObjectSearcher("root\cimv2", "SELECT * FROM Win32_PnPEntity WHERE Name LIKE '%(COM%'") 'Get all Serial Ports

            Dim myPorts As Management.ManagementObjectCollection = myWMIClassSearcher.Get()

            'Cycle throug all COM ports on local PC

            For Each myPort As Management.ManagementObject In myPorts

                If myPort.GetPropertyValue("Name") = "Communications Port (COM1)" Then

                    Exit For

                End If
 

                IndicatorCOMPort = myPort.GetPropertyValue("Name")

                Dim myStrings()

                myStrings = Strings.Split(IndicatorCOMPort)

                IndicatorCOMPort = myStrings(3).Trim("("c, ")"c, Chr(34))

                IndicatorCOMPort = IndicatorCOMPort.Trim("C", "O", "M")

                ActiveCOM.Add(IndicatorCOMPort)

                'Exit For

            Next

            Me.IndicatorCOM.Text = "Indicator COM Port: " & IndicatorCOMPort

            Me.mnuSetupIndicatorCOM.Enabled = False

        Catch ex As Exception

            Me.IndicatorCOM.Text = "Status: " & "No Active COM Port Discovered"
 

            strMessage = "No COM Ports Discovered:" & vbCrLf & vbCrLf & "Select [ Yes ] rediscover COM Ports:" & vbCrLf & vbCrLf & "Select [ No ] To exit" & vbCrLf

            result = MsgBox(strMessage, MsgBoxStyle.Information + MsgBoxStyle.YesNo, "")

            If result = MsgBoxResult.Yes Then

                DiscoverIndicatorCOMPort()

            ElseIf result = MsgBoxResult.No Then

                Me.Close()

            End If

        End Try

    End Sub

Open in new window

0
Comment
Question by:cmdolcet
  • 3
5 Comments
 
LVL 83

Expert Comment

by:CodeCruiser
Comment Utility
Have you added the references properly?
0
 

Author Comment

by:cmdolcet
Comment Utility
What reference????
0
 
LVL 83

Expert Comment

by:CodeCruiser
Comment Utility
Project menu -> Properties -> References tab. Check to make sure that a valid reference exists for the directoryservices and if not then add it using the add button.
0
 
LVL 96

Accepted Solution

by:
Bob Learned earned 500 total points
Comment Utility
For WMI, you would need a reference to the System.Management.dll, which is not added by default to the project.
0
 
LVL 83

Expert Comment

by:CodeCruiser
Comment Utility
Brilliant!
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now