Larzarus

:cool: Option Explicit Private Sub cmdAlleBenutzerauflisten_Click() Dim c As IADsContainer Dim u As IADsUser Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") c.Filter = Array("User") For Each u In c lstallebenutzer.AddItem u.Get("samaccountname") Next End Sub Private Sub cmdallegruppenauflisten_Click() Dim z As IADsContainer Dim x As IADsGroup Set z = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") z.Filter = Array("Group") For Each x In z lstallegruppen.AddItem x.Get("samaccountname") Next End Sub Private Sub cmdbeenden_Click() End End Sub Private Sub cmdbenutzer_Click() Dim g As IADsGroup Dim benutzer As String Dim gruppe As String benutzer = txtBenutzer.Text gruppe = txtgruppe.Text Set g = GetObject("LDAP://cn=" & gruppe & ",ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") g.Add "LDAP://cn=" & benutzer & ", ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local" MsgBox "Benutzer zur Gruppe hinzugefügt!" End Sub 'Private Sub cmdBenutzerauflisten_Click() 'Dim gruppe As String 'gruppe = Ai3a02JOE 'Dim obj As ActiveDs.IADs 'Const LDAP = "LDAP://cn=" & gruppe & ",ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local" 'Set oGroup = GetObject(LDAP) 'For Each obj In oGroup.Members 'MsgBox obj.Name Private Sub cmdeinfuegen_Click() 'Anlegen einer neuen Gruppe Dim g As IADsGroup Dim c 'As IADsContainer 'Dim g As IADsContainer Dim gruppe As String gruppe = txteingabe.Text 'Bindung an Container Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") 'Erzeugung einer neuen Gruppe Set g = c.Create("group", "cn=AI3A02-" & gruppe) 'Attribute setzen g.Put "samAccountName", CStr("ai3a02-" & gruppe) g.SetInfo MsgBox "Gruppe wurde angelegt" 'Set ADSIADS_createGroup = g lstallegruppen.Clear cmdallegruppenauflisten_Click End Sub Private Sub cmdeinfuegen2_Click() 'Anlegen eines neuen Benutzers im Active Directory Dim c As IADsContainer Dim u As IADsUser Dim benutzer As String benutzer = txteingabe2.Text 'Bindung an Container Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") 'Erzeugung neuer Benutzers Set u = c.Create("User", "cn=AI3A02-" & benutzer) u.Put "samAccountName", CStr("ai3a02-" & benutzer) 'Konto aktivieren u.SetInfo u.AccountDisabled = False u.SetInfo MsgBox "Benutzer wurde angelegt" lstallebenutzer.Clear cmdAlleBenutzerauflisten_Click End Sub Ich müsste das hier alles genau erklärt haben mit kommentaren wäre super ich habs zwar programmiert verstehe auch ein wenig davon aber will es halt ganz genau wissen THX schon mal Larz :shock:

Option Explicit Private Sub cmdAlleBenutzerauflisten_Click() Dim c As IADsContainer Dim u As IADsUser Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") c.Filter = Array("User") For Each u In c lstallebenutzer.AddItem u.Get("samaccountname") Next End Sub Private Sub cmdallegruppenauflisten_Click() Dim z As IADsContainer Dim x As IADsGroup Set z = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") z.Filter = Array("Group") For Each x In z lstallegruppen.AddItem x.Get("samaccountname") Next End Sub Private Sub cmdbeenden_Click() End End Sub Private Sub cmdbenutzer_Click() Dim g As IADsGroup Dim benutzer As String Dim gruppe As String benutzer = txtBenutzer.Text gruppe = txtgruppe.Text Set g = GetObject("LDAP://cn=" & gruppe & ",ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") g.Add "LDAP://cn=" & benutzer & ", ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local" MsgBox "Benutzer zur Gruppe hinzugefügt!" End Sub 'Private Sub cmdBenutzerauflisten_Click() 'Dim gruppe As String 'gruppe = Ai3a02JOE 'Dim obj As ActiveDs.IADs 'Const LDAP = "LDAP://cn=" & gruppe & ",ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local" 'Set oGroup = GetObject(LDAP) 'For Each obj In oGroup.Members 'MsgBox obj.Name Private Sub cmdeinfuegen_Click() 'Anlegen einer neuen Gruppe Dim g As IADsGroup Dim c 'As IADsContainer 'Dim g As IADsContainer Dim gruppe As String gruppe = txteingabe.Text 'Bindung an Container Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") 'Erzeugung einer neuen Gruppe Set g = c.Create("group", "cn=AI3A02-" & gruppe) 'Attribute setzen g.Put "samAccountName", CStr("ai3a02-" & gruppe) g.SetInfo MsgBox "Gruppe wurde angelegt" 'Set ADSIADS_createGroup = g lstallegruppen.Clear cmdallegruppenauflisten_Click End Sub Private Sub cmdeinfuegen2_Click() 'Anlegen eines neuen Benutzers im Active Directory Dim c As IADsContainer Dim u As IADsUser Dim benutzer As String benutzer = txteingabe2.Text 'Bindung an Container Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local") 'Erzeugung neuer Benutzers Set u = c.Create("User", "cn=AI3A02-" & benutzer) u.Put "samAccountName", CStr("ai3a02-" & benutzer) 'Konto aktivieren u.SetInfo u.AccountDisabled = False u.SetInfo MsgBox "Benutzer wurde angelegt" lstallebenutzer.Clear cmdAlleBenutzerauflisten_Click End Sub Hiermit kann man benutzer& Gruppen anlegen und benutzer gruppen zuordnen. Ich müsste nur alles mit Kommentaren und erklärt haben wäre wirklich sehr nett vielen Dank schon mal

Vielen dank hat mir alles etwas geholfen hier alle infos die ich gefunden habe und brauchte falls mal einer was ähnliches braucht wenn nicht bisschen schöner spam :D :D :D :D :D THX an alle Konsolenverbindung / Einstellung 9600 Baud 8 Datenbits 1 Stopp Bit keine Parität keine Flusskontrolle IP Hosttabellen für Router Labor statisches Routen ip route 172.16.1.0. 255.255.255.0 So Dynamisch RIP Router(config)#router rip – Aktiviert den RIP-Routing-Vorgang Router(config-router)# Router Rip Network Linke Netzadresse Network rechte netzadresse Password Recovery Während der ersten 20 Sekunden des Bootvorgangs CTRL-Break drücken Bei Fragen immer no Rommon> Confreg 0x2142 Rommon> reset Bei fragen Nein ! Während der ersten 20 Sekunden des Bootvorgangs CTRL-Break drücken durch dass config-register lässt sich einstellen wie der Bootprozess abläuft, ob er seine startup config aus dem flash ladet oder nicht (und noch einiges mehr) 2102 steht für einen normalen Bootvorgang => der Router startet den Rommon, danach schaut er ins NVRAM wegen einer config, sind dort boot-system befehle werden diese ausgeführt, ansonsten versucht er das IOS Image aus dem Flashspeicher zu laden (der router bootet das Betriebssystem), danach wird die Startup-config aus dem NVRAM eingelesen (sequentiell)2142 die config aus dem nvram NICHT geladen => da die Passwörter in dieser config stehen ist ein Vollzugriff auf den router ohne PWeingabe möglich und somit ein PWrecovery mir fehlt nur noch wie ich hosttabellen erstelle befehle oder ähnliches :-)

Ja das war schon ganz gut aber ich brauche leider den Boot prozes doch sehr genau erklärt für eine Arbeit. und auch das mit dem confreg muss ich nochmal genauer wissen. also bleib noch das übrig. und Vielen dank für die schnelle und hilfreiche Antwort. wenn du auch mal hilfe brauchst melde dich. egal was mit informatik zu tun kann ich dir vielleicht helfen. Bist du fertig mit der Lehre oder noch dabei... Password-Recovery Router aus und wieder an machen. STRG + Pause rommon 1> confreg 0x2142 - 0x heißt Hexadezimal Zahlen rommon 2> reset Bei Frage: no! Confreg ( Konfigurationsregister ) x2102 verstellen auf x2142 und was diese zahlen bedeuten..... was steht hier x2102 und was steht hier x2142 die bedeutung desweiteren müsste ich halt alles über den boot prozess eines cisco router wissen allgemein,kein bestimmtes modell oder so. als letztes würde ich gerne wissen wie man IP- Host Tabellen erstellt. befehle usw. was sind IP- Host Tabellen wofür braucht man IP- Host Tabellen

Es geht hier um Routerkonfigurtion Routerkonfiguration • Konsolenverbindung / Einstellung • Recovery • Confreg (Konfigurationregister) • Router – Bootprozeß • IP Hosttabelle für Routerlabor • Routing für Routerlabor statisch / dynamisch Hi es wäre sehr nett wenn mir jemand siviel infos wie möglich über diese Themen geben könnte . Ich müsste wissen wie Password recovery abläuft. was im Router dabei passiert . welches register er auschaltet und aus welchem er dann liest. Password-Recovery Router aus und wieder an machen. STRG + Pause rommon 1> confreg 0x2142 - 0x heißt Hexadezimal Zahlen rommon 2> reset Bei Frage: no! Confreg ( Konfigurationsregister ) x2102 verstellen auf x2142 und was diese zahlen bedeuten..... was steht hier x2102 und was steht hier x2142 die bedeutung desweiteren müsste ich halt alles über den boot prozess eines cisco router wissen allgemein,kein bestimmtes modell oder so. als letztes würde ich gerne wissen wie man IP- Host Tabellen erstellt. befehle usw. was sind IP- Host Tabellen wofür braucht man IP- Host Tabellen und zu guter letzt. Routing-Protokolle: statisches / dynamisches Routing: -die befehle und wie auch die funktion, die befehle sind aber wichtiger. Einmal glaube ich RIP und halt noch was anderes. auch wäre cooll zu erfsahren wo der unterschied zwischen RIP und statischem routing liegt. Vorteile nachteil. sehr wichtig die befehle. wäre wirklich sehr dankbar.... auch wenn das alles ein bisschen viel erscheint. Greetz Larzarus....

- Hostname - Fast Ethernet - Serial - Com - AUX - vty - Banner - Description - ip-host-table und wie sieht es mit befehlen dafür aus ??? und was sind genau die stellen im conf reg was bedeutet jede einzelne zahl eine davon bedeutet z.B. das es hex zahlen sind glaube ich und der rest kein plan need help please...!!!!!!!!

Ich bräuchte aber die genau erklärung was das register sagt was genau das ist halt bitte bitte

Hi ja ich brauche die in der schule ... Die confreg 0x2142 habe ich wegen der Password recovery benurtzt und jetzt soll ich erklären was das genau ist ... die anderen Sachen sind halt so grundkonfigurationene die ich machen muss bei dem cisco router 2620 und dafür brauch ich halt befehle wie ich das mache so ein ablauf z.B Enable Config t usw. Nochmals Thx für deine schnelle hilfe ich hoffe das ihr mir helfen könnt....... bin sonst echt am ***** hab gar kein plan

Hi wäre nett wenn Ihr mir beantworten könntet was confreg 0x2142 im einzelnen bedeutet also z.B 0x steht ja für Hexadezimal und der rest .... und es wäre auch wunderbar wenn ich eine befehlsliste bekommen könnte über die Grundkonfiguration. - Hostname - Fast Ethernet - Serial - Com - AUX - vty - Banner - Description - ip-host-table THX Larzarus