Zum Inhalt springen

Dave57

Mitglieder
  • Gesamte Inhalte

    27
  • Benutzer seit

  • Letzter Besuch

Beiträge von Dave57

  1. Zum Verständnis habe ich mal ahnungslos die Excel Sachen rausgelöscht, die wahrscheinlich nicht benötigt werden (?). Der Code funktioniert so natürlich nicht... Formatierungsfehler, etc. und die Printfunktion ist dementsprechend auch nicht drin.

    Sub ExtractPrinterAlerts()
        Dim fMails As Folder, mail As MailItem, txtContent As String, arrContent As Variant
       
            While fMails.Items.Count > 0
                
                'aktuelle Mail
                Set mail = fMails.Items(1)
                
                'Body extrahieren
                txtContent = mail.Body
                
                ' Zeilen in ein Array schreiben
                arrLines = Split(txtContent, vbNewLine, -1, vbTextCompare)
                
                ' Zeilen den Variablen zuweisen
                txtAufgabenNummer = arrLines(1)
                txtFaelligAm = arrLines(2)
                txtPlanAufwand = arrLines(3)
                txtAngelegtDurch = arrLines(4)
                txtBearbeiter = arrLines(5)
                txtKurzBeschreibung = arrLines(6)
                txtAufgabenstellung = arrLines(7)
                txtCountTotal = Trim(Split(arrLines(8), ":", 2, vbTextCompare)(1))
                txtCountColor = Trim(Split(arrLines(9), ":", 2, vbTextCompare)(1))
                
                'Hier dann irgendwie ausdrucken?'
                
       
    End Sub

     

  2. Ich habe folgenden Quellcode im Internet gefunden. Hier gibt es um fast das selbe, außer dass hier anschließend noch in Excel kopiert wird. Das brauche ich ja nicht, nur hier sieht man schon mal das bestimmte Zeilen markiert werden. Kann jemand basierend auf dem Quellcode helfen?

    Die txt's von den Arrays habe ich schon mal so umbenannt wie ich sie brauche (siehe oben). Mir fehlt nur leider das Wissen um hier groß modifizieren zu können.

     

    Sub ExtractPrinterAlerts()
        Dim fMails As Folder, mail As MailItem, txtContent As String, arrContent As Variant, objExcel As Object, wb As Object, sheet As Object, rngStart As Object, rngCurrent As Object, fErledigt as Object
        
        'Pfad zur Excel-Datei
        Const EXCELFILE = "c:\PrinterAlerts.xlsx"
        
        'Ordner in Outlook referenzieren
        Set fMails = Application.Session.Stores("user@domain.net").GetRootFolder.Folders("Druckeralerts")
        'Unterordner referenzieren in den die Mails verschoben werden wenn sie bearbeitet wurden
        Set fErledigt = fMails.Folders("erledigt")
        
        
        If fMails.Items.Count > 0 Then
            'Excel Objekt erzeugen
            Set objExcel = CreateObject("Excel.Application")
            objExcel.DisplayAlerts = False
            
            'Excelfile öffnen
            Set wb = objExcel.Workbooks.Open(EXCELFILE)
            
            'Daten kommen in erstes Worksheet
            Set sheet = wb.Worksheets(1)
            
            'Startzelle in Spalte A ermitteln
            Set rngStart = sheet.Cells(sheet.Rows.Count,1).End(-4162).Offset(1, 0)
            Set rngCurrent = rngStart
            
            While fMails.Items.Count > 0
                
                'aktuelle Mail
                Set mail = fMails.Items(1)
                
                'Body extrahieren
                txtContent = mail.Body
                
                ' Zeilen in ein Array schreiben
                arrLines = Split(txtContent, vbNewLine, -1, vbTextCompare)
                
                ' Zeilen den Variablen zuweisen
                txtAufgabenNummer = arrLines(1)
                txtFaelligAm = arrLines(2)
                txtPlanAufwand = arrLines(3)
                txtAngelegtDurch = arrLines(4)
                txtBearbeiter = arrLines(5)
                txtKurzBeschreibung = arrLines(6)
                txtAufgabenstellung = arrLines(7)
                txtCountTotal = Trim(Split(arrLines(8), ":", 2, vbTextCompare)(1))
                txtCountColor = Trim(Split(arrLines(9), ":", 2, vbTextCompare)(1))
                
                'Setze Werte im Sheet
                With rngCurrent
                    .Value = txtStatus
                    .Offset(0, 1).Value = txtMessage
                    .Offset(0, 2).Value = txtTime
                    .Offset(0, 3).Value = txtMachine
                    .Offset(0, 4).Value = txtSN
                    .Offset(0, 5).Value = txtLocation
                    .Offset(0, 6).Value = txtIP
                    .Offset(0, 7).Value = txtCountTotal
                    .Offset(0, 8).Value = txtCountColor
                End With
                'Excel Zeile eins nach unten verschieben
                Set rngCurrent = rngCurrent.Offset(1, 0)
                
                ' Mail in den 'Erledigt' Ordner verschieben
                mail.Move fErledigt
            Wend
            'Workbook speichern
            wb.Save
            'Excel anzeigen
            objExcel.Visible = True
            objExcel.DisplayAlerts = True
        Else
            MsgBox "Keine Mails zum Bearbeiten im Ordner", vbExclamation
        End If
        
        Set objExcel = Nothing
        Set wb = Nothing
        Set sheet = Nothing
        Set mail = Nothing
    End Sub

     

  3. vor 6 Minuten schrieb allesweg:

    Welches Ticketsystem habt ihr? Da könnte man etwas früher abgreifen...

    Ticketsystem - Mailserver - Mailclient - Programmcode - Druckserver

    Hallo und danke für die schnelle Antwort. Wir haben ein selbst geschriebenes Ticketsystem. Zugriff auf den Code, etc. habe ich aber leider nicht. Deshalb fällt diese Option leider weg. 

    Es soll auch nicht automatisch jedes Ticket gedruckt werden. Ein Mitarbeiter soll sich das Ticket bzw. die E-Mail erstmal durchlesen und entscheidet jedes mal, ob es ausgedruckt werden soll oder nicht. 

  4. Momentan schickt unser Ticket System für jedes Ticket eine E-Mail. Diese E-Mail hat immer den gleichen Aufbau und folgenden Inhalt:

    Es wurde eine Aufgabe, in deren Zuständigkeit Sie fallen angelegt. 
    
    Aufgabeninformationen: 
    ------------------------------------ 
    Ticketnummer: CCC934931
    Projekt: Beispiel
    Kontakt: Mustermann
    Starttermin: 15.07.2019 
    Fällig am: 19.07.2019 
    Priorität: 3 
    Auslieferung:
    Level:
    Planaufwand: 8
    Kategorie:
    Limit:
    Angelegt durch:
    Bearbeiter der Aufgabe: Mustermann, Musterfrau
    Kurzbeschreibung: Testbeschreibung
    Aufgabenstellung:

    Nun wird nicht jede Zeile benötigt sondern nur folgende:

    Ticketnummer:
    Fällig am:
    Planaufwand:
    Bearbeiter der Aufgabe:
    Kurzbeschreibung:

    Diese 5 Zeilen sollen nun mit Hilfe eines Outlook Makros an einen Etikettendrucker ausgedruckt werden. Wie genau das Druckformat für das Etikett später angepasst werden muss, ist erstmal egal. Es geht nur um den Code denn ich habe leider wirklich überhaupt keine Ahnung von VBA ? 

     

    Gibt es jemanden, der hierbei Hilfestellung geben könnte? Das Makro wird in Outlook 2010 benutzt.

    Vielen Dank!

  5. Gehe ruhig vertieft in die Technik ein. Habe ich auch gemacht und kam gut an. Ergebnis: 2+ Wichtig ist nur, dass du im Rahmen der 15 Minuten bleibst.

    Das heißt aber nicht, dass du nicht auf deine Projektphasen und deren Begründung, Zeitplan, aufgetretene Probleme, etc. eingehen sollst. Das ist genauso wichtig. 

  6. vor 6 Minuten schrieb Dah:

    Was ist die Nachprüfung  ? Wann ist die ?

    Darf ich die  mündliche  ergänzung machen ?

    Sorry ich bin neue in Deutschland  so ich weiß nicht so viel darüber 

     

    Mit Nachprüfung meint er die Mündliche Ergänzungsprüfung.

    Wenn die Möglichkeit besteht, an einer mündlichen Ergänzungsprüfung teilzunehmen, bekommst du automatisch einen Brief zugeschickt. 

     

    Wenn nicht:

    GA1 und GA2 in einem halben Jahr wiederholen.

  7. Hast du mal hier geschaut? Musst natürlich in deinem Fall einen Rechtsklick -> Eigenschaften auf deinen WLAN Adapter anstatt Ethernet Adapter. Deine Authentifizierungsmethode wird auch abweichen, da du nicht MS CHAP benutzt.

    Kann auch sein das ich die Frage nicht richtig verstanden habe, aber vielleicht konnte ich Dir ja helfen.

    image.thumb.png.5b5ed6f4312e81e4ddcb82851bf2db08.png

  8. Ich habe da noch etwas aus der Berufsschule in Erinnerung:

    Wenn du Kupferkabel nebeneinander legst, spricht man von einem möglichen "Übersprechen". D.h. dass die Magnetischen Signale von den Kupferkabeln sich gegenseitig "überlappen" und einen möglichen Störfaktor darstellen können. 

    Ein LWL Kabel strahlt solch Signale nicht aus (oder ist besser abgeschirmt, bin mir selbst nicht mehr sicher). Deswegen kann man diese ohne Bedenken nebeneinander legen.

  9. Hallo Forum,

    ich befinde mich momentan im 3. Lehrjahr und mein Projekt ist das Aufsetzen eines RADIUS Servers in einer Testumgebung. Da ich den RADIUS Server heute zum Laufen gebracht habe, würde ich gerne ein paar Erfahrungswerte einholen, z.B. was für Fragen denn in einem Fachgespräch dies bzgl. aufkommen könnten. 

    Was würdet ihr als Prüfer fragen? bzw. was wurde euch als Prüfling gefragt?

    Außerdem:

    In wie fern haltet es ihr für notwendig, auf alternativen einzugehen? (z.B. FreeRadius oder TACAS) Wie sind dort die Erfahrungswerte? Wird danach gefragt?

    Da für das Projekt unter anderem auch ein AD + DHCP aufgesetzt wurde, wird dies automatisch Teil des Fachgesprächs? Obwohl diese "nur" Vorbereitungen sind?

    Anbei ein paar Infos:

    Es wurde NPS verwendet (nur LAN kein WLAN. WLAN ist bereits durch MAC Whitelist abgesichert). Authentifizierung läuft über AD (Für das Projekt wurde ein Test AD verwendet).  Das Projekt beinhaltet die Installation auf einer Testumgebung die folgendermaßen aussieht:

    - Windows Server 2016 (DELL Optiplex 780.. ja, lustig, ich weiß. Erfüllt aber seinen Zweck)
    - CISCO Switch SG-200-08
    - DELL Latitude E5520 (fungiert als LAN-Client, Windows 10 Pro 1709)

     

    Vielen Dank im Voraus!

    Gruß

  10. Habe das Problem gefunden und behoben. Jetzt funktioniert es.

    Beim erstellen der NPS Rirchtlinie hatte ich das davor erstelle NPS Zertifikat nicht der Richtlinie hinzugefügt... Außerdem wurde das EAP-MSCHAP v2 Protokoll ausgewählt (damit hat es nicht funktioniert) erst beim auswählen des richtigen Protokolles EAP(PEAP) konnte ich das NPS Zertifikat auswählen und es hat funktioniert.

    Mal eine Frage:

    Im Wireshark Protokoll verstehe ich nur Bahnhof, falls sich jemand mein angehongenes Protokoll mal angeschaut hat, war der oben genannte Fehler im Log ersichtlich? 

  11. vor 10 Minuten schrieb RubberDog:

    Erstmal...
    Du Unterschreibst am Ende dafür, dass du das Projekt ohne Hilfe von außen gemacht hast.

    Daher nur eine Anmerkung:

    Nein. APIPA hat den Adressraum 169.254.XXX.XXX.

    Ich hatte auch niemals gesagt, dass 192.168.1.51 eine APIPA Adresse ist. Der Laptop bekommt ein Access Denied, dementsprechend holt er sich eine APIPA Adresse da er kein Zugriff auf dem DHCP Server hat, das meinte ich. 

    Außerdem erwarte ich nicht, dass du das gesamte Projekt für mich machst. Ich mache lediglich recherche und werde dies natürlich als auch Quellen angaben miteinbeziehen. Verstehe ich nicht.

    Kannst Du mir nicht einen Tipp geben? 

  12. Hallo Forum!

    Ich bin momentan dabei, an meinem Abschlussprojekt zu arbeiten. 

    Mein Projekt ist das Aufsetzen eines RADIUS Servers (nur LAN) innerhalb einer Testumgebung. Als Authentifizierung wird der (Test)AD benutzt. 
    Zum Anfang ein paar Infos:

    - Windows Server 2016 (DELL Optiplex 780.. ja, lustig, ich weiß. Erfüllt aber seinen Zweck)
    - CISCO Switch SG-200-08 (fungiert als Authenticator)
    - DELL Latitude E5520 (fungiert als LAN-Client, Windows 10 Pro 1709)

    Der RADIUS Server wurde anhand folgender Anleitung installiert:
    https://www.andysblog.de/windows-drahtgebundenes-lan-802-1x-und-nps

    D.h. Switch etc. wurde auch entsprechend konfiguriert. Am Client wurde ebenso (siehe Tutorial oben) der Dienst "automatische Konfiguration (verkabelt)" aktiviert. 

    Nun zum eigentlichen:
    Beim anschließen des LAN Kabels an dem Laptop kommt wie erwartet das Anmeldefenster auf (ich habe die Hintergrund-Authentifizierung vor erst mal ausgestellt). Danach gebe ich die Anmeldedaten des Domain-Users ein (dieser ist auch in der RADIUS richtlinie mit drin). Danach kommt sofort die Meldung am LAN Adapter "authentifiziernug fehlgeschlagen" NPS auf dem Server Manager zeigt leider auch wirklich gar keine Logs an.

    Habe anschließend mal Wireshark auf dem Server installiert und geschaut. Es kommt wie erwartet eine Request, Challenge aber leider dann ein Access Denied. 
    Kennt sich jemand aus und möchte mal über das Wireshark-Log schauen? 

    https://www.file-upload.net/download-13529223/RADIUS.pcapng.html
    ... oder Pastebin.....
    https://pastebin.com/1UJ3d754



    Server: 192.168.1.1
    Switch 192.168.1.50
    Client: 192.168.1.51 (dieser bekommt aber dadurch, dass er sich nicht mit dem Server verbinden kann, eine APIPA adresse) 


    Viel Vorwissen habe ich leider nicht dies bzgl. und es ist auch meine erste Einrichtung. Also sind irgendwelche blöden Fehler nicht auszuschließen.

    Ich bedanke mich im voraus!

  13. Am 23.1.2019 um 07:40 schrieb Tearek:

    Schon allein weil die anbindung ans AD einfacher ist und die Konfiguriation recht simpel. im prinziep kannst du das step by step dort abarbeiten und hinterher funzt es. außerdem kannst du NPS ja direkt über die rollen und features installieren. Da wir (in unserer abteilung) Ausschließlich nur Windows Server nutzen/Administrieren und ich selbst noch nicht so tief im thema server war ist es für mich die bessere  lösung gewesen.

    Und? Hattest du die Prüfung? Oder erst nächsten Donnerstag? :)

    Hattest du die FreeRadius Lösung mit in die Doku/Präsi genommen? Quasi eine Entscheidungsvorlage gemacht, wieso du dich für NPS entschieden hast?

  14. vor 4 Stunden schrieb Tearek:

    nun die fragen kommen ja erst nächsten donnerstag :D 
    Die AD ist quasi nur installieren (rollen und featueres) und anschließend nen User angelegt, danach ne gruppe erstellt und dann den user der gruppe zugewiesen. mehr hab ich in der AD garnicht gemacht :D war ja nur nen test. Wenn das life geht wird ja dann die bestehende AD sowie domäne genutzt.

    Also user anlegen + gruppe und zuweisen dauert vlt 5-10 min ? :D

     

    Du hattest NPS verwendet, richtig?

    Gab es dafür einen Grund? Hattest du dir mal FreeRadius angeschaut?

  15. vor 2 Stunden schrieb Tearek:

    IHK Kassel-Marburg.

    Jap 35h haben gepasst. aber wie gesagt das siehst du genau in meiner projekt doku sobald ich sie hochladen darf (ab nächsten freitag also vermutlich den montag danach) annonymisiere ich sie und lade sie hier hoch.

    Meine momentane Sorge ist der Aufbau eines Test-AD's auf dem Testserver. War das echt so "easy" wie du beschrieben hast?

    Ich habe noch nie einen AD aufgebaut ?

    Hattest du erwähnt, dass du den AD selbst aufgebaut hast? Wurden dies bzgl. Fragen gestellt?

  16. vor 13 Minuten schrieb Tearek:

    Dankeschön :D  50% der mündlichen stehen ja durch die doku quasi schon fest von daher sollte das schon iwie werden :D

    falls du noch hilfe brauchst kann ich dir da bestimmt iwie weiterhelfen (so von noob zu noob :D )

    bei welcher iHK bist du denn?

    Ach na klar. Das bekommst du schon hin.

    IHK Koblenz :) Und du?

     

    Kamst du übrigens mit der Stundenanzahl hin? 35, richtig?

  17. vor 17 Stunden schrieb Tearek:

    Soblad ich mein Projekt am nächsten donnerstag vorgestellt habe und (hoffentlich) eine gute note sowohl für die präsentation als auch die dokumentation erhalte werde ich die Doku hier annonymisiert posten. Vlt hilft dir das ja. Ich nehms jedenfalls an weil in der durchführung das ganze quasi schritt für schritt erklärt ist und im anhang mit screenshots :D

    Okay! Danke dir vielmals und ich wünsche dir viel Glück bei der Prüfung :)

  18. Vielen vielen Dank. Echt nett von dir!

    Ich werde mir das mal durchlesen.

    Zitat

    Server - Radius, AD Domänendienst, DNS installiert.

    Hast du einen Testserver/netz benutzt?

    Wenn ja, hattest du dafür extra ein AD eingerichtet? Wie oben beschrieben, hatte ich vor, dafür eine Testumgebung aufzubauen wo lediglich nur ein Server mit DHCP (+Radius) läuft. Leider habe ich RADIUS auch nur mit einer AD Authentifizierung kennengelernt und bin momentan etwas verwirrt, was ich noch als Authentifizierungsmöglichkeiten nehmen kann, da ich ungern extra ein Test AD noch aufsetzen möchte.

    Kamst du auf irgendwelche Probleme?

    Hattest du Vorwisse?

    Wie lange war deine Einarbeitungszeit in das Thema?

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...