Solved

Management.ManagementObjectSearcher is not defined in VB 2005

Posted on 2009-03-31
5
980 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 83

Expert Comment

by:CodeCruiser
ID: 24037167
Have you added the references properly?
0
 

Author Comment

by:cmdolcet
ID: 24038141
What reference????
0
 
LVL 83

Expert Comment

by:CodeCruiser
ID: 24038180
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
ID: 24038741
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
ID: 24040941
Brilliant!
0

Featured Post

Containers & Docker to Create a Powerful Team

Containers are an incredibly powerful technology that can provide you and/or your engineering team with huge productivity gains. Using containers, you can deploy, back up, replicate, and move apps and their dependencies quickly and easily.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
In this video, viewers will be given step by step instructions on adjusting mouse, pointer and cursor visibility in Microsoft Windows 10. The video seeks to educate those who are struggling with the new Windows 10 Graphical User Interface. Change Cu…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

690 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