Steellion

Hey Ho, ich bin auch auf der Suche nach Abschlussprüfungen für Fachinformatiker Fachrichtung Systemintegration denke mal ab 2006 dürfte passen ^^. Wäre echt nett, wenn mir jemand welche schicken könnte. Alex.schrott@arcor.de Vielen Dank

Danke nett von dir, aber ich habs schon gedruckt und von Cheffe unterschreiben lassen. Kamst leider zu spät Wegen Zeit, kein Problem ^^ IHK is 3 Minuten von der PH entfernt, ich fahr kurz rüber und schmeißes direkt in den Briefkasten xD PS: Arthur hat vorhin erst ANGEFANGEN seinen Antrag zu schreiben ;D

Falls möglicherweise jemand lLust zum meckern hat, hier die vermutlich finale Version:

Hmmm, schade das keiner Antwortet... Dennoch werd ich mal eine überarbeitete VErsion online stellen, falls es doch jemanden interessiert Kritik würde mich sehr freuen, da ich das Teil endlich fertig haben will ^^

Hallo liebe Fachinformatiker Gemeinde, ich hätte von euch gerne konstruktive Kritik an meinem Projektantrag, damit ich ihn verbessern kann. Vielen Dank schonmal im Voraus Kurze Projektbeschreibung (Anzahl der Endgeräte, verwendete Software, Plattform(en): Die Pädagogische Hochschule Ludwigsburg (PHLB) teilt ihre Mitglieder in verschiedene Gruppen z.B. Stu-dierende, wissenschaftliches Personal, Gäste, usw. ein. Diese werden im internen Netz durch Virtual Local Area Networks (VLANs) realisiert und voneinander getrennt. Im Netzwerk gibt es ca. 720 studentische und wissenschaftliche Arbeitsplatzrechner, 170 Notebooks sowie 55 Netzwerkdrucker. Jedes VLAN hat dabei auch seine eigenen Sicherheitsrichtlinien, sodass z.B. Studierende nicht auf alle Server der PHLB zugreifen können, wohingegen Rechenzentrumsmitarbeiter keine Einschränkungen haben. Möchte sich ein Mitglied der Hochschule am Netzwerk anmelden, kann er dies nur über das seiner Gruppe zugewiesene VLAN. Sollte sich also z.B. ein Mitarbeiter mit seinem Notebook in einem Raum befinden, in dem es kein Notebook-Vlan gibt, so müsste dieses erst von einem zuständigen Mitarbeiter des Rechenzent-rums geschaltet werden. Wenn zudem die Netzwerkdose über welche sich der Nutzer anmelden wollte nicht mit einem Switch verbunden ist, so muss der Mitarbeiter als erstes eine Verbindung zwischen Switch und Dose herstellen und kann dann erst das korrekte Vlan auf die Netzwerkdose schalten. Das Rechenzentrum möchte diese Problematik mit der Einführung der 802.1x-Authentifizierung beseitigen. Zukünftig soll das schalten der VLANs von einem Radius-Server übernommen werden, sodass es egal ist, welcher Gruppe ein Mitglied angehört, da sich das Vlan automatisch anpasst. Das Projekt umfasst die Auswahl, einen Versuchsaufbau und Tests der dafür benötigten Hardware. Im Vor-feld muss analysiert werden ob die vorhandenen Komponenten den Anforderungen der 802.1x-Authentifizierung genügen. Sobald dies abgeschlossen ist, wird der Versuchsaufbau mit den 3 Hauptkom-ponenten(Client, Switch, Server) aufgebaut und getestet. Hierbei soll auch ermittelt werden, wie sicher die-ses Konzept ist. Projektphasen mit Zeitplanung in Stunden: • Analyse 5Std. • Ermittlung der technischen Anforderungen • Ermittlung der notwendigen Konfigurationen • Beschaffung 2Std • Falls notwendig Beschaffung geeigneter Hardware • Realisierung 16Std • Konfiguration der Hardware • Testaufbau der Komponenten • Testen des Versuchsaufbaus • Projektdokumentation 12Std • Installations- und Konfigurationsanleitung für Administratoren

also, anscheinend wird es nur Daten in dem Schema: XX#XX#XXXX X= Zahl 0-9 #= . oder / geben...deswegen wollte er wahrscheinlich, dass ich mit dem ASC arbeite, weil ich damit genau abfragen kann um was für ein Zeichen es sich handelt. Wie könnte ich denn, an einen String immer eine Stelle hunzufügen? Sprich, ich teste ob das Zeichen eine Zahl ist, wenn ja wird sie auf einen String geschrieben, wenn die nächste auch eine Zahl ist, wird sie dem String hinten angefügt, sodass ich das Datum nach und nach aneinandereihe. Wenn das nicht geht, könnte ich auch ein Array machen, welches ich fülle, sobald aber ein Zeichen kommt, das nicht ins Schema passt, wird das Array wieder gelöscht... Würde das funktionieren?

Das mit der Suche nach dem ; hatte ich so eigentlich auch schon in meinem Script, Problem hierbei ist, dass mein Ausbilder fast sämtliche Fehler die in der Liste gemacht werden können, vom Programm ausgemerzt werden sollen... Es sollen also auch Extrembeispiele wie: a1468asd1a8 20.01.2010 s20.32ldsf;ase / 21.01.2010 aaabbbcccddd 01/19/2010** erkannt werden... und deshalb, soll ich die Zeile Zeichen für Zeichen durchsuchen und nach dem genannten Schema scannen...aber ich find einfach keinen einfachen Weg...

Sorry, habe mich vielleicht etwas blöd ausgedrückt: Ich habe eine Liste, in diesem Schema: Test123Acc;08.04.2009 Fi4Si;20.01.2010 Az56u23bilb;10.04.2009 jdfh Nun brauche ich eine Funtkion, welche eine Zeile liest, und überprüft ob in der Zeile das Schema: XX#XX#XXXX X= 0-9 # = . oder / vorkommt. Eine Liste zu erstellen, scheint mir hier Sinnlos, da ich dann jedes Datum ab heute bis in ein paar Jahren eintragen müsste... InStr klingt zwar gut, aber wie kann ich damit das oben genannte Schema prüfen? Mein Ausbilder meinte, ich solle es mit diesen Funtkionen probieren: For i=1 to ende z=Mid(a,i,1) ' um jedes Zeichen einzeln zu prüfen If (Asc(z)>=48 and Asc(z)<=57) ' mit Asc bekkommt man den ASCII Code einers Zeichens, also kann man genau schauen, um was für ein Zeichen es sich handelt Leider komme ich damit auch nicht weiter, meine letze Idee, war einen String nach und nach zu füllen, sprich: Wenn Zahl String = Zahl Wenn nächstes Zeichen Zahl String = String +Zahl Wenn nächstes Zeichen Punkt oder Schrägstrich String = String + Punkt oder Schrägstrich ... aber ich weiß nich, ob es: 1. Funtkioniert 2. Nicht einfacher geht 3. Wie ich dabei die Startposition des Datums rausziehen soll...

Okay, die anfänglichen Probleme sind gelöst: Private Function Einlesen(Pfad,Ergebnis) 'Pfad ....... Pfad der Datei welche eingelesen werden soll 'Ergebnis ... Array mit dem kompletten Inhalt der eingelesenen Datei Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(Pfad) Set fso = CreateObject("Scripting.FileSystemObject") Dim i:i=0 Do Until objFile.AtEndOfStream redim preserve Dateiinhalt(i) Dateiinhalt(i) = objFile.ReadLine i = i+1 Loop End Function Private Function Zerteilen(Dateiinhalt) For j = LBound(Dateiinhalt) to UBound(Dateiinhalt) strData = "" strSearchString = Dateiinhalt(j) intStart = InStr(strSearchString, ";") If intStart <> 0 Then intStart = intStart + 1 strText = Mid(strSearchString, intStart, 50) For i = 1 to Len(strText) If Mid(strText, i, 1) = ";" Then Exit For Else strData = strData & Mid(strText, i, 1) End If Next Name = "" Pos = InStr(strSearchString, ";") Name = Name + Left(strSearchString, Pos - 1) redim preserve arrName(j) arrName(j) = Name Zeitpunkt = "" Pos = InStr(strSearchString, ";") Zeitpunkt = Zeitpunkt + Right(strSearchString, 10) redim preserve arrDatum(j) arrDatum(j) = Zeitpunkt End If Next End Function Private Function Vergleichen(arrDatum) Dim i:i=0 For j = LBound(arrDatum) to UBound(arrDatum) If StrComp(arrDatum(j), datum, vbTextCompare) = 0 Then redim preserve arrZeilen(i) arrZeilen(i) = j i=i+1 Else wscript.echo "Leider nicht das korrekte Datum" End If Next End Function Nun habe ich aber ein neues Problem... Die Liste in der die Einträge stehen, soll genaustens geprüft werden, das heißt, als erstes eine Funtkion welche eine Zeile überprüft und schaut, ob ein Datum in ihr vorkommt, wenn ja, wo es anfängt und das Datum an sich zurückgeben. Leider habe ich keine Ahnung wie ich das ganze Elegant lösen könnte... Ich habe mir schon überlegt mit einer Menge an If-Abfragen zu arbeiten, aber das wäre total unübersichtlich. Und ansonsten fällt mir nichts akzeptables ein. Hat einer von euch ne schöne Idee?

Alles klar, mach ich doch glatt: Call Datei_einlesen("C:\Scripts\Liste.txt",Dateiinhalt) Private Function Datei_einlesen(Pfad,Ergebnis) 'Pfad ....... Pfad der Datei welche eingelesen werden soll 'Ergebnis ... Array mit dem kompletten Inhalt der eingelesenen Datei Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(Pfad) Set fso = CreateObject("Scripting.FileSystemObject") Dim i:i=0 Do Until objFile.AtEndOfStream strSearchString = objFile.ReadLine redim preserve Dateiinhalt() Dateiinhalt(i) = strSearchString i = i+1 Loop End Function So sieht bis jetzt die erste Funktion aus, muss ich jetzt testen und dann den Rest irgendwie in Funktionen packen.

Ja ich weiß... wie gesagt, ich blick in VBS irgendwie nicht durch, weil mir der Syntax nicht verständlich ist. Zudem hab ich das Teil aus verschiedenen Beispielen und Programmteilen zusammengeschnipselt, wollte nur das es irgendwie funktioniert, da ichs einfach nicht verstehe Hab jetzt grad mit meinem Ausbilder eine Funtkion rausgefiltert. Hoffentllich schaff ich das beim Rest auch irgendwie...

Test.vbs<51, 6> Microsoft VBScript runtime error: Object variable not set Das wäre diese Zeile: oZDatei.Write Dn @Eratum: Also kann ich 2 von den 3 Zeilen löschen? Alles klar, die Seite schau ich mir mal an. Vielen Dank schonmal euch beiden!

Hallo liebe Fachinformatiker Kollegen. Ich hab ein für mich riesiges Problem: Ich habe vor längerer Zeit mal ein VB Script Programm erstellen sollen, welches aus einer Liste nach dem Schema: Name;18.01.2010 Name2;19.01.2010 Name3;30.01.2010 Den Namen und das Datum heraussuchen sollte um dann zu schauen, ob das Datum in der Zeile, mit dem aktuellen Datum übereinstimmt. sollte dies der Fall sein, soll der Name in eine zweite Liste geschrieben werden. Das Programm hab ich mir dann mehr oder weniger funktionierend (der erste Eintrag wird in die Log-Datei geschrieben, die anderen nicht) aus verschiedenen Quellen zusammengestückelt, da VBS für mich eine vollkommen unverständliche Sprache ist. In C oder PHP wäre das Problem schon viel kleiner, aber ich versteh VBS einfach keinen Meter... Nun habe ich das Problem, dass ich das Programm in einzelne Funktionen zerlegen soll, ich aber nicht weiß, wo irgendwas anfängt und irgendwas aufhört, geschweige denn, wie ich Funktionen überhaupt mache/aufrufe/mit Attributen füttere... Const ForReading = 1 Dim arrDn() Dim arrAkt() x = 1 datum = date Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Scripts\Liste.txt") Set fso = CreateObject("Scripting.FileSystemObject") sZDatei = "C:\Scripts\Log.txt" Set oZDatei = fso.OpenTextFile(sZDatei, 2, True) Set objFileSystem = CreateObject("Scripting.FileSystemObject") Do Until objFile.AtEndOfStream strData = "" strSearchString = objFile.ReadLine intStart = InStr(strSearchString, ";") If intStart <> 0 Then intStart = intStart + 1 strText = Mid(strSearchString, intStart, 50) For i = 1 to Len(strText) If Mid(strText, i, 1) = ";" Then Exit For Else strData = strData & Mid(strText, i, 1) End If Next Dn = "" Pos = InStr(strSearchString, ";") Dn = Dn + Left(strSearchString, Pos - 1) Akt = "" Pos = InStr(strSearchString, ";") Akt = Akt + Right(strSearchString, 3) End If If StrComp(strData, datum, vbTextCompare) = 0 Then redim preserve arrDn(x) arrDn(x) = Dn redim preserve arrAkt(x) arrAkt(x) = Akt wscript.echo arrDn(x) wscript.echo arrAkt(x) oZDatei.Write Dn oZDatei.Write ";" oZDatei.Write Akt oZDatei.Close Else wscript.echo "Leider nicht das korrekte Datum" End If Loop Ich hätte allso 2 Bitten: 1. Kann jemand irgendwas mit meinem Quellcode anfangen und ihn vllt zerstückeln oder wenigstens ohne Fehlermeldungen zum Laufen bekommen? 2. Gibts ne gute Quelle wo man das ganze VB Zeug leicht verständlich erklärt bekommt? Hab schonmal gesucht, aber irgendwie nie etwas, wo ich mich dann Schritt für Schritt von anfang an durchhangen konnte. Wäre echt nett von euch, Danke schonmal im Voraus!