Working With WMI Services

Question

5.00/5 (1 vote)

See more:

Hello I'v done a few example codes in my Project using WMI to retrive certain information from variables such as (Win32_ComputerSystem) and so forth. Some area though have a variety of list. For example this would give me the name of the computer.

VB

Dim strComputer = "."
Dim objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    On Error Resume Next
        Dim objItem
Dim SystemProductInfo = objWMIService.ExecQuery("Select * from _ Win32_ComputerSystemProduct")
         

For Each objItem In SystemProductInfo
            SystemInfo.LabelComputerModel.Text = objItem.Version
            SystemInfo.TBManufacturer.Text = objItem.Vendor
            SystemInfo.TBModel.Text = objItem.Name
        Next

But if I play with other variables such as "select * from Win32_PhysicalMemory"
and try to link to that to get Name or Size of the Ram listed in there. Because I have two sticks of ram in the computer, there is two collection of info that will share the same variables like objItem.Name and objItem.Size. Is there a way to make the For Each statement loop both categories and get the information from both information of name and size of the Rams Installed. Because when I tried it so far, I just get the information of the First Ram Stick, but not the next.

Bigger Pictures: I'm using this code to hopefully develop a little app that tells what ram is installed, the max your motherboard can take, how many slots are left, and how many slots are used. If WMI is the wrong way to do any of this, any help to the right direction would be nice.

Thanks

Posted 9-Jun-12 23:15pm

Jefferson Daniel

Add a Solution

Comments

Sandeep Mewara 10-Jun-12 5:34am

Well presented, good question. 5!

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Jefferson Daniel · Answer 1 · 2012-06-10T21:27:00

Hey Me. Here the solution if anybody else wanted to know. A little bit of time, and as always I figure it out on my own lol

VB

Sub GetRamInfo()
        Dim StrComputer = "."
        Dim objWMIService = GetObject("winmgmts:" & " _ {impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
        
        Dim colQuickFixes = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")

        For Each objQuickFix In colQuickFixes
            MsgBox("BankLabel: " & objQuickFix.BankLabel)
            MsgBox("PartNumber: " & objQuickFix.PartNumber)
        Next
    End Sub