Top-Themen

Aktuelle Themen (A bis Z)

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?

Mitglied: Peacer

Peacer (Level 1) - Jetzt verbinden

11.03.2011 um 14:22 Uhr, 5573 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 ..
Ähnliche Inhalte
VB for Applications

VB.NET - Variable aus Textbox in Progressbar ausgeben

gelöst Frage von TermimanVB for Applications2 Kommentare

Hallo liebe Programmier, mich plagt seit gestern ein kleines Problem : Ich habe mir eine kleine Prozedur geschrieben mit ...

Batch & Shell

In Batchdatei WLAN-Passwörter ausgeben lassen

Frage von AnonLukeBatch & Shell8 Kommentare

Hi, dies ist mein erster Beitrag, also entschuldigt falls ich im falschen Thema bin. ich wollte mal wieder ne ...

Batch & Shell

Batch: Zeit ermitteln und ausgeben lassen während ein Bat.File durchläuft

gelöst Frage von BatchAnfaenger91Batch & Shell2 Kommentare

Hallo Liebe Leute ;) meine nächste Frage die ich mir erstelle ist: Ist es möglich in CMD die Zeit ...

Sonstige Systeme

AD Share NTFS Berechtigungen ausgeben lassen

gelöst Frage von kilrathiSonstige Systeme16 Kommentare

Hallo Leute, ich würde mir gerne für eine große Anzahl von Shares die NTFS Berechtigungen ausgeben lassen. Dabei ist ...

Neue Wissensbeiträge
iOS
IOS 11.2.6 verfügbar
Information von sabines vor 40 MinuteniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 14 StundenSicherheit

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 1 TagErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server37 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1028 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Webbrowser
Welcher Browser ist der Beste?
Frage von justtinWebbrowser15 Kommentare

Hallo Leute Ich habe eine interessante Frage. Mich wurde mal interessieren welcher Browser ist eure meinung nach der beste? ...