Solved

Management.ManagementObjectSearcher is not defined in VB 2005

Posted on 2009-03-31
5
975 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
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

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

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

Welcome my friends to the second instalment and follow-up to our Minify and Concatenate Your Scripts and Stylesheets (http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/A_4334-Minify-and-Concatenate-Your-Scripts-and-Stylesheets.html)…
This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

803 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