Listbox vraag in VB.NET

[Dragonlord]

Beste mensen,

ik heb een programma gemaakt welke waar in je windows account kan aanmaken of verwijderen.

Dat werkt allemaal,

ik heb steeds gebruik gemaak van het commando shell("net user ")
maar ik wil het volgende:
als ik naar CMD ga en net user intype:
krijg ik alle account te zien wat er is op de computer.

dus wil ik dat informatie ook in mijn VB.programma in een listbox wordt weergeven of een listview..
weet jullie misschien hoe ik dat voor elkaar krijg.:thumb:


Alvast bedankt

 

[Jabber]

Probeer deze links eens:
http://www.codeproject.com/KB/cs/groupandmembers.aspx
http://www.csharphelp.com/archives2/archive439.html

 

[Dragonlord]

Bedankt voor die links, maar deze zijn C# en daarvan heb ik geen patat van
gegeten
nog andere tips of hulp

 

[Jabber]

Even snel vertaald van....
http://www.csharphelp.com/archives2/archive439.html

<StructLayout(LayoutKind.Sequential, CharSet := CharSet.Unicode)> _
Public Structure USER_INFO_0
    Public Username As String
End Structur

<DllImport("Netapi32.dll")> _
Private Shared Function NetUserEnum(<MarshalAs(UnmanagedType.LPWStr)> servername As String, level As Integer, filter As Integer, ByRef bufptr As IntPtr, prefmaxlen As Integer, ByRef entriesread As Integer, _
	ByRef totalentries As Integer, ByRef resume_handle As Integer) As Integer
End Function

<DllImport("Netapi32.dll")> _
Private Shared Function NetApiBufferFree(Buffer As IntPtr) As Integer
End Function


Dim EntriesRead As Integer
Dim TotalEntries As Integer
Dim [Resume] As Integer
Dim bufPtr As IntPtr

NetUserEnum(Nothing, 0, 2, bufPtr, -1, EntriesRead, _
	TotalEntries, [Resume])

If EntriesRead > 0 Then
    Dim Users As USER_INFO_0() = New USER_INFO_0(EntriesRead - 1) {}
    Dim iter As IntPtr = bufPtr
    For i As Integer = 0 To EntriesRead - 1
        Users(i) = DirectCast(Marshal.PtrToStructure(iter, GetType(USER_INFO_0)), USER_INFO_0)
        iter = DirectCast((CInt(iter) + Marshal.SizeOf(GetType(USER_INFO_0))), IntPtr)
        MessageBox.Show(Users(i).Username)
    Next
    NetworkAPI.NetApiBufferFree(bufPtr)
End If

 

[Dragonlord]

he bedankt voor vertaling van C# naar VB.
maar dat had ook in het begin gedaan, maar dan klopt de code niet meer en ik krijg meer dan 25 erors ik heb geprobeerd die erors op te lossen maar ik kan alleen 5 en de rest blijft zo.
Dus heeft me niet echt geholpen

Verder nog andere iedeën ik ben intussen ook bezig,:thumb:

 

[Ginanity]

Lijkt me anders wel de oplossing. Misschien toch maar eens de c# syntax bekijken?