Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB.NET Wie kann ich mir ein Output ausgeben lassen?

Frage Entwicklung Visual Studio

Mitglied: Peacer

Peacer (Level 1) - Jetzt verbinden

11.03.2011 um 14:22 Uhr, 5356 Aufrufe, 3 Kommentare

Ich habe mir aus dem Netz eine Function geholt welche mir per LDAP alle Gruppen eines bestimmten Domainusers auflistet.

Allerdings habe ich hier das Problem das ich nicht begreife wie ich mir das Ergebnis in eine text-/list-/groupbox oder datagrid pipen kann.


Hier die Function:

01.
Imports System.DirectoryServices 
02.
Imports System.DirectoryServices.ActiveDirectory 
03.
 
04.
 
05.
    Public Function GetUserMemberOf(ByVal domain As String, ByVal username As String, ByVal password As String, Optional ByRef exeption As Exception = Nothing) As Collections.Generic.List(Of String) 
06.
        Dim searcher As DirectorySearcher = Nothing 
07.
        Dim colEntry As New Collections.Generic.List(Of String) 
08.
 
09.
        Try 
10.
            searcher = New DirectorySearcher(New DirectoryEntry("LDAP://" & domain, username, password)) 
11.
            searcher.Filter = String.Concat("(&(objectClass=User) (sAMAccountName=", username, "))") 
12.
            searcher.PropertiesToLoad.Add("MemberOf") 
13.
 
14.
            Dim result As SearchResult = searcher.FindOne 
15.
            For i As Integer = 0 To result.Properties("MemberOf").Count - 1 
16.
                Dim sProp As String = result.Properties("MemberOf")(i) 
17.
                colEntry.Add(sProp.Substring(3, sProp.IndexOf(",") - 3)) 
18.
            Next 
19.
 
20.
        Catch ex As Exception 
21.
            exeption = ex 
22.
 
23.
        Finally 
24.
            searcher.Dispose() 
25.
        End Try 
26.
 
27.
        Return colEntry 
28.
 
29.
    End Function
Meinen function rufe ich folgendermaßen auf:

01.
GetUserMemberOf("domain.de", Manfred, 12345)
Danke für Tipps

LG Peacer
Mitglied: mathe172
11.03.2011 um 15:48 Uhr
Hallo Peacer!

Den Rückgabewert einer Funktion kannst du wie eine Variable behandeln. Also etwa:
01.
Dim Rückgabewert as Collections.Generic.List(Of String) =GetUserMemberOf("domain.de", Manfred, 12345)
In eine Datei schreiben müsste dann so gehen:
01.
Dim Rückgabewert as Collections.Generic.List(Of String) =GetUserMemberOf("domain.de", Manfred, 12345) 
02.
Dim sw as new StreamWriter("AusgabeDatei.txt") 
03.
For each Zeile as String in Rückgabewert 
04.
   sw.writeline(Zeile) 
05.
Next
oder in der Kurzform:
01.
Dim sw as new StreamWriter("AusgabeDatei.txt") 
02.
For each Zeile as String in GetUserMemberOf("domain.de", Manfred, 12345) 
03.
   sw.writeline(Zeile) 
04.
Next
Mathe172
Bitte warten ..
Mitglied: Peacer
11.03.2011 um 17:42 Uhr
Hi Mathe172

So richtig will das noch nicht. Ich habe es folgendermaßen ausprobiert.

01.
Dim Rückgabewert As System.Collections.Generic.List(of String) = GetUserMemberOf("domain.de", Manfred, 12345) 
02.
   		textbox2.Text = Rückgabewert.ToString
da bringt er mir das:

System.Collections.Generic.List`1[System.String]



LG Peacer
Bitte warten ..
Mitglied: mathe172
11.03.2011 um 19:23 Uhr
Hallo Peacer,

Die ToString Methode funktioniert für deine Zwecke auch nicht...Die gibt nur den Typ deiner Variable zurück.

Versuch mal:
01.
'Für das erste Element: 
02.
textbox2.text=Rückgabewert(0) 
03.
'Für alle: 
04.
For each Element as String in Rückgabewert 
05.
Textbox2.text &= Element & vbnewline 
06.
Next 
07.
'oder... 
08.
For i as integer=0 to rückgabewert.count - 1 
09.
Textbox2.text &=  rückgabewert(i) & vbnewline 
10.
Next 
11.
'und wenn die leere Zeile wegsoll... 
12.
'For... 
13.
'.... 
14.
'Next 
15.
With Textbox2 
16.
if .text<>"" andalso .text.last=vbnewline then .text=.text.remove(.text.length-1) 
17.
End With
Mathe172
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Visual Studio
gelöst VB.Net - Problem mit Umleitung der Standard-Ausgabe (4)

Frage von emeriks zum Thema Visual Studio ...

Visual Studio
gelöst Vb.net Pfadangabe mit Wildcards wie Stern Regex Pattern (2)

Frage von Pilger83 zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...