Nedenstående Wscript kode ønskes konverteret til VB.NET

Mit bedste bud:

Imports System
Imports System.IO
Imports System.Management

Imports Microsoft.Win32

Namespace E
    Public Class Program
        Public Shared Sub Main(args As String())
            Dim profiles As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Microsoft").OpenSubKey("Windows NT").OpenSubKey("CurrentVersion").OpenSubKey("ProfileList")
            For Each sid As String In profiles.GetSubKeyNames()
                If Directory.Exists(DirectCast(profiles.OpenSubKey(sid).GetValue("ProfileImagePath"), String)) Then
                    Dim acct As New ManagementObject(New ManagementScope("\\.\ROOT\cimv2"), New ManagementPath("Win32_SID.SID='" & sid & "'"), New ObjectGetOptions())
                    Console.WriteLine(Convert.ToString(acct("ReferencedDomainName")) & "\" & Convert.ToString(acct("AccountName")))
                End If
            Next
            Console.ReadKey()
        End Sub
    End Class
End Namespace

Hej Arne

SUPER fedt! Jeg tester det mandag!
Men det ser helt rigtigt ud :-)

Jeg har spurgt på nogen rigtige nørd fora og de kloger derudaf med ting jeg burde læse eller mange foreslår at jeg bare skal bruge "win32_useraccount".

Problemet er at hvis man sidder på en Domæne maskine, med Domæne Administrator adgang, så bliver den ved med at indlæse alle domænebrugerne (vi har 20.000).

MVH
Thomas

Og du tog selv point fordi?

Hej Arne

Så er point på plads via det andet svar og koden spiller bare:
        Dim profiles As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Microsoft").OpenSubKey("Windows NT").OpenSubKey("CurrentVersion").OpenSubKey("ProfileList")
        For Each sid As String In profiles.GetSubKeyNames()
            If Directory.Exists(DirectCast(profiles.OpenSubKey(sid).GetValue("ProfileImagePath"), String)) Then
                Dim acct As New ManagementObject(New ManagementScope("\\.\ROOT\cimv2"), New ManagementPath("Win32_SID.SID='" & sid & "'"), New ObjectGetOptions())
                CheckedListBox1.Items.Add(Convert.ToString(acct("ReferencedDomainName")) & "\" & Convert.ToString(acct("AccountName")))
            End If
        Next