Steellion

8. März 2010

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

10. Februar 2010

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

10. Februar 2010

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

Kurze Projektbeschreibung (Anzahl der Endgeräte, verwendete Software, Plattform(en):
Die Pädagogische Hochschule Ludwigsburg (PHLB) teilt ihre Nutzer, unter anderem aus Sicherheitsgrün-den, in verschiedene Gruppen ein. Zu diesen gehören unter anderem: Studierende, wissenschaftliches Personal, Gäste, RZ-Mitarbeiter, Administratoren, WLAN. Jeder Nutzer erhält durch seine Mitgliedschaft in einer Gruppe bestimmte Rechte zusätzlich zu seinen individuellen Rechten.
Im Netzwerk der Hochschule gibt es ca. 720 studentische und wissenschaftliche Arbeitsplatzrechner und 170 Notebooks, sowie 3 verschiedene Serverklassen. Bisher ist jeder dieser Rechner über â€žseineâ€œ Netz-werkdose fest einem VLAN zugeteilt. Jedes VLAN hat dabei seine eigenen Sicherheitsrichtlinien. Hierdurch kann es durchaus sein, dass die Rechte eines Nutzers teilweise mit den Sicherheitsrichtlinien kollidieren. In diesem Fall muss entweder der Nutzer einen Rechner suchen der an das VLAN angeschlossen ist, das ihm den Zugang zu den Servern mit den geforderten Diensten gewährt oder ein RZ-Mitarbeiter muss das VLAN an der Netzwerkdose umschalten.
Das Rechenzentrum möchte diese Problematik mit der Einführung von nutzerbasierenden VLANs beseiti-gen. Zukünftig soll anhand der Nutzergruppe das korrekte VLAN automatisch von einem Radius-Server gewählt und geschalten werden.
An dem Verfahren sind ein Radius-Server, sämtliche Switche und Router des Hochschulnetzes sowie alle Clients mit den Betriebssystemen Windows XP, Windows Vista und Windows 7 sowie Mac OS X beteiligt. Da das RZ schon länger plant, eine solche Technik einzusetzen, achtet man seit ca. 2 Jahren bei der Be-schaffung neuer Hardware (Switche, Router) auf die notwendige Kompatibilität.
Das Projekt dient dazu, das Verfahren in einer isolierten Umgebung zu implementieren, zu testen und zur Übernahme in den Realbetrieb vorzubereiten. Es muss analysiert werden ob alle vorhandenen Komponen-ten tatsächlich den Anforderungen genügen. Gegebenenfalls ist zu ermitteln, welche Anpassungen notwen-dig sind. Im Anschluss wird der Versuchsaufbau mit den 3 Hauptkomponenten (Client, Switch, Radius-Server) aufgebaut und getestet. Hierbei soll auch ermittelt werden, wie sicher das Verfahren ist.

Projektphasen mit Zeitplanung in Stunden:
â€¢ Analyse 5
â€¢ Ermittlung der technischen Anforderungen der beteiligten Komponenten
â€¢ Feststellung der notwendigen Anpassungen

â€¢ Beschaffung 2
â€¢ Falls notwendig Beschaffung geeigneter Hard- und Software

â€¢ Realisierung 16
â€¢ Konfiguration der Software
â€¢ Testaufbau der Komponenten
â€¢ Testen des Versuchsaufbaus

â€¢ Projektdokumentation 12
â€¢ Installations- und Konfigurationsanleitung für Administratoren

8. Februar 2010

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 ^^

Projektbezeichnung / Projektziel (Auftrag/Teilauftrag):
Einführung von nutzerbasierenden Virtual Local Area Networks (VLANs)

Kurze Projektbeschreibung (Anzahl der Endgeräte, verwendete Software, Plattform(en):
Die Pädagogische Hochschule Ludwigsburg (PHLB) teilt ihre Nutzer, unter anderem aus Sicherheitsgrün-den, in verschiedene Gruppen wie z.B. Studierende, wissenschaftliches Personal, Gäste, RZ-Mitarbeiter, Administratoren, WLAN usw. ein. Diesen werden hierbei jeweils ein VLAN zugewiesen. Im Netzwerk der Hochschule gibt es ca. 720 studentische und wissenschaftliche Arbeitsplatzrechner und 170 Notebooks, sowie 3 verschiedene Serverklassen. Jedes VLAN hat dabei seine eigenen Sicherheitsrichtlinien, so dass die Mitglieder oben genannter Gruppen nur Zugriff auf die ihnen zustehenden Dienste erhalten.

Bisher ist jeder PC über die Netzwerkdose statisch einem VLAN zugeteilt, somit kann an einem PC nur eine bestimmte Gruppe arbeiten. Hierdurch entsteht ein hoher Administrationsaufwand, da jede Änderung per Hand von einem autorisierten Rechenzentrumsmitarbeiter durchgeführt und dokumentiert werden muss.

Das Rechenzentrum möchte diese Problematik mit der Einführung von nutzerbasierenden VLANs beseiti-gen. Zukünftig soll das Schalten der VLANs von dem bestehenden Radius-Server übernommen werden, welcher automatisch anhand der Nutzergruppe das korrekte VLAN wählt.

An dem Verfahren beteiligt sind, ein Radius-Server, diverse Switches und Clients mit den Betriebssyste-men, Windows XP, Windows Vista und Windows 7 sowie Mac OS X. Da das RZ schon geplant hat, eine solche Technik in Zukunft einzusetzen, hat man bei der Beschaffung neuer Hardware auf Kompatibilität geachtet, sodass kaum neue Geräte nötig sein werden.

Das Projekt umfasst einen Versuchsaufbau sowie diverse Tests. Im Vorfeld muss analysiert werden ob die vorhandenen Komponenten den Anforderungen genügen. Sobald dies abgeschlossen ist, wird der Ver-suchsaufbau mit den 3 Hauptkomponenten (Client, Switch und Server) aufgebaut und getestet. Hierbei soll auch ermittelt werden, wie sicher das Konzept ist. Dieses Projekt dient zudem als Vorschaltprojekt um die neue Technik vor der Übernahme in den Realbetrieb testen zu können.

Projektphasen mit Zeitplanung in Stunden:
â€¢ Analyse 5
â€¢ Ermittlung der technischen Anforderungen der beteiligten Komponenten
â€¢ Feststellung der notwendigen Anpassungen

â€¢ Beschaffung 2
â€¢ Falls notwendig Beschaffung geeigneter Hard- und Software

â€¢ Realisierung 16
â€¢ Konfiguration der Software
â€¢ Testaufbau der Komponenten
â€¢ Testen des Versuchsaufbaus

â€¢ Projektdokumentation 12
â€¢ Installations- und Konfigurationsanleitung für Administratoren

2. Februar 2010

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

25. Januar 2010

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?

25. Januar 2010

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...

25. Januar 2010

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...

25. Januar 2010

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?

19. Januar 2010

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.

19. Januar 2010

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...

19. Januar 2010

Welcher Fehler kommt? in welcher Codezeile?

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!

18. Januar 2010

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!

27. Juli 2009

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?

23. Juli 2009

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.

23. Juli 2009

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?

17. Juli 2009

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

17. Juli 2009

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

17. Juli 2009

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?

17. Juli 2009

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)

17. Juli 2009

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)

17. Juli 2009

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 ^^

17. Juli 2009

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.

17. Juli 2009

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

13. November 2008

Ouh, das is gut zu wissen ^^

Dankeschön.

Seltsam sind dann 2 Dinge:

1. Im ATI-Tool wird bei Default Einstellungen 575/690 angezeigt, also ein Profil mit den Standart Einstellungen.

Bei dem Schieberegler (ich weiß jetzt nich ob ihr das ATI-Tool kennt) stehen aber 1377Mhz, deswegen war ich verwirrt.

(Wobei es mich auchnoch wundert, weshalb mein Bildschirm schwarz wird sobald ich versuche hoch oder runter zu takten)

2. Die Grafikkarte wird extrem Heiß, und ich denke, dass mir deswegen diverse Spiele abstürzen.

Die Spitzentemperatur, die ich angezeigt bekommen hab, war bei ca 100Â°C wobei ich es nicht für unwahrscheinlich halte, dass sie beim spielen noch höhere temperaturen erreicht (werde ich, wenn ich zu Hause bin, im Log nachschauen)

Aufjedenfall bin ich euch beiden mal sehr dankbar ^^

Auf den Unterschied von Logischer und Physikalischer Taktrate wäre ich nie gekommen und auch die Tipps waren nicht blöd

Anmelden

Profile

Forum

Downloads

Kalender

Blogs

Shop

Beiträge von Steellion

Fachinformatiker.de, 2024 by SE Internet Services

Links

Fachinformatiker.de App

Kontakt

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte