Larzarus
-
Gesamte Inhalte
9 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von Larzarus
-
-
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
ADS und VB Programmierung
in Windows Forum — Allgemein
Geschrieben
: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: