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!

Hmmm, okay ich geb zu das hat mir ein wenig geholfen, aber leider bloß ein wenig ^^ Ich hab mir jetzt mal eine Funktion gebastelt, die eigentlich folgendes können sollte: - Zeilenweises einlesen eines Strings - Pfad wird an Funktion übergeben - Trennkriterium in dem String wird übergeben - Zeilenweises schreiben in Array Ich bekomm den Rest grad nich zusammen, aber eigentlich soll es eine gaz normale Funktion werden, die einfach nur einen String einiest und ihn nach Kriterien trennt welche man selbst wählen kann. Mein Ausbilder hat auch wa sgemeint von wegen, dass man das suchen der Teilstrings (Datum, Aktion, Dn) mit (seoweit ich mich erinner) left Funktion machen soll. Er hat mir was erklärt vonwegen, dass man hinter jedem Teilstring ein Trennzeichen macht, sodass der erste Teilstring links neben dem ersten Trennzeichen ist. Irgendwie so: Blabla;BlubbBlubb;MuhMuh; Wenn man das jetzt in die Funktion geben würde und man der Funktion sagt, Trennkriterium = ";" und Suchkriterium ist 2 dann sollte die Funktion BlubbBlubb in das Array schreiben. Hab zwar nich ganz gerafft wieso, aber er meinte, dass ich es halt so "offen" wie möglich schreiben soll, sodass ich die Funktion auch in anderen Programmen wieder verwenden kann. Hier mal meine Funktion: Public Function ReadData(path, search, kriterium, array) Const ForReading = 1 Const ForWriting = 2 ListPath = path Set fso = CreateObject("Scripting.FileSystemObject") Do until Liste.AtEndOfStream x = 0 x = x + 1 Zeile = Liste.Readline date_list = mid(Zeile,instr(zeile,kriterium)+1,10) if instr(date_list,date)<>0 then DN = left(Zeile,instr(zeile,";")-1) Aktion = right(Zeile,3) array(x) = DN & ";" & Aktion Ich denke mal, dass es aufjedenfall einfacher und intelligenter geht, aber ich bekomms nich besser hin -.- hat jemand VErbesserungsvorschläge?

Und genau dieses Verständnis fehlt mir noch ein wenig, da ich mit Programmiersprachen nicht so gut klarkomme... Naja, meine eigentliche Frage bezog sich auf den Programmcode einer Funktion und den Aufruf. Ich kenne Funktionen bisher nur aus C(++) und ich denke mal, dass die in VBScript ein wenig anderst gehandhabt werden. Ich würde halt gerne wissen, wie ich die Übergabeparameter in der Funktion und im Funktionsaufruf angebe.

Okay, das mit den Arrays is auf der verlinkten Seite echt gut erklärt ^^ Das andere is, dass mein Ausbilder will, dass zum Beispiel das einlesen von der Datei in nem eigenen Modul/Funtkion ist. Dann ne Funtkion die schaut, ob es das richtige Datum ist. Danach soll ich die Liste/ das Array, mit den Einträgen die das richtige Datum haben, in 2 Arrays teilen, 1x Never Expires und 1x Expires Damit können wir dann danach arbeiten um das in die AD zu füttern ^^ Gibts dazu irgendwelche netten Tipps?

Alles in Ordnung soweit ^^ *erleichterung* Aber nun soll ich das ganze in Module zerlegen, also eins zum einlesen, eins zum log schreiben und ich alle bei denen das Datum stimmt in ein Array schreiben und später das Array in 2 Teilen (Exp und Nev) Das wird lustig ;D Hat jemand Infos wie ich das anstellen könnte ^^ Möchte hier nicht kompletten Code schnorren, hab bloß keine ahnung wie VBScript sowas handhabt, also wäre son kleiner Anfang ganz nett ^^ PS:Sorry für Doppelpost

Ahhh, okay, Dankeschön ^^ Ich gllaub so kann ichs erstmal lassen. Ich zeigs mal meinem Ausbilder und schau, was er dazu zu sagen hat ^^ Wenn ich wieder hilfe brauche, weiß ich an wen ich mich wenden muss. Vielen Herzlichen Dank Eratum :uli

Okay, jetzt klappts, darauf hätt ich ja eigentlich auch kommen können -.- Wenn wir schonmal so schön bei der Sache sind.. ;P könntest du mir auch gleich verraten wie ich es nun hinbekomme, dass er nach dem ersten: oZDatei.Write Dn oZDatei.Write ";" oZDatei.Write Akt den nächsten Eintrag in eine neue Zeile schreibt? also muss ja irgendwie oZDatei.Write XXX sein oder?

Nein, definitiv, keine Leerzeile am Ende. Das lustige daran ist auch, dass er mir immer die Log.txt erstellt, aber nur mit dem ersten in der Liste.txt der das Datum richtig hat, danach bricht er anscheinend ab... (Wie ich Programmieren hasse)

Hmm, also, ganz sicher bin ich grade auch nichtmehr, wofür ich die Arrays gebraucht habe. Hab hier noch ne Skizze von dem Programm abluaf, wo ich verzeichnet habe, dass ich eigentlich 3 Arrays erstellen wollte, wo dann jeweils ein Teil drin steht, (1. Array Dn, 2. Array Datum, 3. Array Aktion) und da ich alles in einem Zug mache, wäre dann die erste Zeile der Liste.txt, gesplittet in der ersten Zeile der 3 Arrays. Damit könnte ich dann halt im einen Array nachschaun, bei wem ich ne Aktion durchführen will und im anderen Array dann welche (Datum wird ja als erstes geprüft) Hab jetzt auch mal die Zeilen mit "arrDn/Akt" rausgenommen, bekomme aber immernoch den gleichen Fehler an der gleichen Stelle... (bei oZDatei.Write Dn)

Okay, Sorry, die hatte ich vergessen ^^ Liste.txt: TestAcc;08.04.2009;EXP FiSi;23.04.2009;EXP Azubilb;18.07.2009;NEV fdsgidf;17.07.2009;EXP Das erste stellt den DN dar, hab halt irgendwelche verschiedenen Sachen hingeschrieben, das zweite is das Datum, an dem das Skript die Aktion ausführen soll, (also wenn das Skript läuft und das aktuelle Datum mit dem Datum in der Liste übereinstimmt) und das letzte is die Aktion die ausgeführt werden soll (Passwort setzten auf EXP= Expires(läuft ab) oder NEV= Never (läuft nie ab)) Das seltsame ist auch, trotz Fehermeldung, schreibt er mir was in die Log.Txt: fdsgidf;EXP Hoffe jetzt ist es verständlicher ^^

Könntest du das irgendwie näher erläutern? ^^ Ich bin nich so gut in VBScript, bin schon froh, dass ich HTML und C++ halbwegs auf die Reihe bekomme Das dumme ist halt, das eigentlich schonmal alles getan hat, dann wollte ich noch hinzufügen, dass er mir den Dn und die Aktion in eine neue TXT schreibt, sodass man die dann mit nem anderen Sript verwenden kann um die Aktion auszuführen. Als das nich so ganz geklappt hat, wollte ich diesen Teil wieder rausschmeißen, wusste aber nich, was ich vorher ringeschrieben hatte... Hast du vielleicht irgendwelche Tipps oder so, damits wieder läuft? oder sogar verbesserungsvorschläge? ;P Natürlich dürfen auch andere mir gerne Helfen ^^ Vielen Dank schonmal im Voraus.

Hallo liebe Fachinformatiker Gemeinde, ich bin seit ca. 1-2 Monaten in einer neuen Abteilung, in der ich viel mit Nutzerverwaltung zu tun habe. Nun soll ich in VBScript ein Programm schreiben, das aus einer Liste den DN, das Datum und die zugehörige Aktion ausliest, und dann weiter damit verfährt. Es sollte so sein, dass bei dem Account (Dn) der in der Liste steht, und bei dem das aktuelle Datum steht, die Aktion ausgeführt wird, welche dahinter steht (entweder Passwort auch Never Expires setzten oder auf Expires setzten, brauchen wir, wegen abllaufenden Passwörter, habs noch nich ganz gerafft) Mein Problem ist nun, dass ich zwar schon ein gutes Stück geschaftt habe, aber ich häng grad ein wenig und ich dachte vieleicht könnt ihr mir helfen. Problem zur Zeit ist, dass ich den folgenden Fehler beim ausführen bekomme: C:\Scripts\mid.vbs(51, 6) Microsoft VBScript runtime Error: Object Variable not set Kann damit jemand was anfangen? Wäre echt nett ^^ PS: Ich weiß auch, dass der Programm Code noch sehr unordentlich und vermutlich nicht korrekt ist, da ich ihn aus verschiedenen Quellen zusammengestückelt habe... Progg-Code: 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