VB Populate combo with Local Machine users

Question

VB Populate combo with Local Machine users

Michael 1

I'm new to programming. I've tried using some older code a co-worker of mine made but his program has too many variables for my program to use it.

I'm trying to populate a combobox with all of the local machine users using the registry. Below is currently what I have.

Sub GetUserList(sKeyName As String)
Dim I, Idx As Integer
Dim SubKeyName As String

LUcombo.Items.Clear()  

Dim RegKey2 As RegistryKey = Registry.LocalMachine.OpenSubKey("software\microsoft\windows NT\CurrentVersion\ProfileList")  
Dim SubKeys() = RegKey2.GetSubKeyNames  

I = SubKeys.Length  
For Idx = 0 To I - 1  
    SubKeyName = SubKeys(Idx).ToString  
    If SubKeyName.Substring(0, 8) = "S-1-5-21" Then  
        LUcombo.Items.AddRange(SubKeys)  
    End If  
Next  

LUcombo.Text = "-Select User-"

End Sub

Private Sub LUcombo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LUcombo.SelectedIndexChanged  
    GetUserList()  
End Sub

1 answer

Your answer

Answer 1

Castorix31 91,506

Use rather WMI (Win32_UserAccount)
(+ WMI Code Creator to generate VB code)

Michael 1 Reputation point

2022-08-23T12:45:06.377+00:00

So, this will generate a vb script or does this kind of like visual studios?

This is for our workstations on our plant floor.

*Edit
So, this is an application that is used for Domain Controllers to manage the computers in the Domain?
Castorix31 91,506 Reputation points

2022-08-23T13:00:57.403+00:00

You choose the language, then you modify the generated code (by adding the variable in a Combo Box and removing Console.WriteLine for your case)
Michael 1 Reputation point

2022-08-23T15:54:21.253+00:00
So, I've tried doing a couple of different things, but ManagementObjectSearcher is saying not defined even with the proper imports.

Edit: I found that my System,Management wasn't using the proper (DLL) and have the path refenced now. However, the queryObj has too many arguments. Should I make this into a string?

Private Sub LUcombo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LUcombo.SelectedIndexChanged

Try Dim searcher As New ManagementObjectSearcher( "root\CIMV2", "SELECT * FROM Win32_Registry") For Each queryObj As ManagementObject In searcher.Get() LUcombo.Items.Add("Win32_Registry instance") LUcombo.Items.Add("Name: {0}", queryObj("Name")) Next Catch err As ManagementException MessageBox.Show("An error occurred while querying for WMI data: " & err.Message) End Try End Sub
Castorix31 91,506 Reputation points

2022-08-23T16:58:06.84+00:00

Have you added a Reference to System.Management ?
Michael 1 Reputation point

2022-08-23T17:14:09.793+00:00

Yes, I added the System.Management DLL by file path. Then I'm importing it. I'm just getting too many argument statement on line 10 with queryObj
Castorix31 91,506 Reputation points

2022-08-23T17:33:41.657+00:00
Why do you add "Win32_Registry instance" in the loop ?

Just add the name :

LUcombo.Items.Add(queryObj("Name"))
Michael 1 Reputation point

2022-08-23T17:48:08.66+00:00

I thought I needed the Win32_Registry instance.

I removed it and changed it just to only be LUcombo.Items.Add(queryObj("Name")) however, still didn't populate the combo box.
Castorix31 91,506 Reputation points

2022-08-23T18:20:51.773+00:00

And why did you put the code inside LUcombo_SelectedIndexChanged ?

If I do a simple test on a Button click it, populates the comboBox...

Share via

VB Populate combo with Local Machine users

1 answer

Your answer