Lokale Gruppen auflisten vb .net

[ravenmaster]

Servus zusammen,

sitze hier gerade im Praktikum und wurde gebeten in vb .net 'n tool zu basteln das mir die lokalen Gruppen des aktuell angemeldeten users in einem listview ausgibt. Nur leider habe ich von .net soviel ahnung wie ne kuh vom eier legen.

Wäre jemand so nett und könnte mir helfen?

Hier was ich bisher so habe:



PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim usr AsString = Environment.UserName
Dim dom AsString = Environment.UserDomainName
Dim de AsNew DirectoryServices.DirectoryEntry("LDAP://")



ForEach m AsStringIn de.Properties("memberof")
Me.ListView1.Items.Add(m)
Next


EndSub
EndClass

[ir0n]

For Each Name As String In IO.Directory.GetFiles("LDAP://", <DirectorySearch.TopOnly>)
ListBox1.Items.Add(Name)
Next

<DirectorySearch.TopOnly> heißt so oder ähnlich, musst einfach mal was mit Directory eingeben, dann kommt ja das Auswahlfenster ;)

Lg, Chris

[ravenmaster]

habs jezz mit hilfe von nem kollegen hier hinbekommen...
hier das ganze prüllding



Imports System.DirectoryServices

PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim usr AsString = Environment.UserName
Dim dom AsString = Environment.UserDomainName
Dim deUser As DirectoryServices.DirectoryEntry = getUser(usr, True)

ForEach m AsStringIn deUser.Properties("memberof").Value
Dim deGroup AsNew DirectoryEntry("LDAP://" & m)
Me.ListView1.Items.Add(deGroup.Name)
Next
EndSub

PublicFunction getUser(ByVal pstrUsername$, OptionalByVal bFromSAM AsBoolean = False) As DirectoryServices.DirectoryEntry

getUser = Nothing

IfNot bFromSAM Then
Try
Dim objADSystemInfo As ActiveDs.ADSystemInfo
objADSystemInfo = CreateObject("ADSystemInfo")
getUser = New DirectoryServices.DirectoryEntry("LDAP://" & objADSystemInfo.DomainDNSName)
Dim sUser AsNew DirectoryServices.DirectorySearcher(getUser, _
"(&(objectclass=user)(anr=" & pstrUsername & "))", _
Nothing, DirectoryServices.SearchScope.Subtree)
getUser = sUser.FindOne.GetDirectoryEntry
Catch ex As Exception
EndTry
Else
Try
Dim objADSystemInfo As ActiveDs.ADSystemInfo
objADSystemInfo = CreateObject("ADSystemInfo")
getUser = New DirectoryServices.DirectoryEntry("LDAP://" & objADSystemInfo.DomainDNSName)
Dim sUser AsNew DirectoryServices.DirectorySearcher(getUser)
sUser.Filter = "(&(objectclass=user)(SAMAccountName=" & pstrUsername & "))"
sUser.PropertiesToLoad.Clear()
sUser.PropertiesToLoad.Add("SAMAccountName")
sUser.SearchScope = SearchScope.Subtree
getUser = sUser.FindOne.GetDirectoryEntry
Catch ex As Exception
ReturnNothing
EndTry
EndIf
EndFunction
EndClass