Eratum
-
Gesamte Inhalte
780 -
Benutzer seit
-
Letzter Besuch
-
Tagessiege
6
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Alle Inhalte von Eratum
-
Habe da jetzt nochmal mit meinem Ausbilder drüber gesprochen. Wir werden uns die Tage nochmal hinsetzen und das besprechen. Alles in allem denke ich mein Projekt ist, auch wenn es eigentlich ne typische FiSi Aufgabe aus der Arbeitswelt ist, für IHK ein Grenzfall (ich hoffe mal nicht so). MfG dere Eratum
-
Ihr habt doch sicher ein paar Netzwerker bei euch im Unternehmen. Wende dich doch mal an die. Von Praktikern lernt man oft besser als von mit Theorie um sich werfenden Büchern :-)
-
Stoffmäßig dürften doch eigentlich alle eventualitäten abgedeckt sein wenn man sich beim lernen an den Stoffverteilungsplan hält. Oder? MfG eratum P.s.: THX an Alpha-C...is ne gute denkstütze dein Skript....
-
*schubs* Das ganze habe ich jetzt mal in Worte gefasst, die dem projektantrag wohl eher gerecht werden: Nachdem ich jedoch hier ein wenig rumgelesen habe, frage ich mich, ob es vlt. günstiger ist den Passus mit NAGIOS wegzulassen und dann zufällig sagen zu können, dass ja dies die ökonomisch beste Lösung ist weil Nagioos ja schon da und nicht so viel Aufwand und Nagios ja sowieso voll toll ist Blubber bla Blubber Blubb... Was meint ihr ?
-
Hallo Liebe Leute, habe mir mit meinem Ausbilder ein kleines Abschlussprojekt erdacht, wo ich ehrlich gesagt bisher sehr unterschiedliche Meinungen gehört habe. Manche sagen es ist zu wenig, andere behaupten es sei zu AE lastig usw...Nun wären mir noch ein paar weitere Meinungen wichtig. Folgendes soll das Projekt sein: Ich werde eine Implementierung für Nagios entwickeln und Integrieren, welche die Funktionsfähgkeit unserer ISA Zugänge überprüft. Um es ganz kurz zu machen, war es das auch shcon, aber ich denke man kann ja noch ein wenig drumherum erzählen. Ausbauen kann ich das ja im endeffekt immernoch, bin mir wie gesagt nur derzeit nicht ganz sicher ob das nicht zu sehr in Richutng der AE's geht. MfG
-
Formatierte Bildschirmausgabe mit vBScript
Eratum antwortete auf cmdr_paule's Thema in Skript- und Webserverprogrammierung
Instr gibt ja die Position des gesuchten "Teilstrings" im gesamten wieder. Mid gibt einen Teil des Anfangststrings aus. Dazu setzen wir den Cursor an die gewünschte StartStelle. strName = Mid(strMember, [B]4[/B], intPos1) (denk dir einfach das die ersten Vier zeichen weggeschnitten sind) Dadurch ist der "Gesamtstring" ja kürzer, und das eben genau um diese 4 Zeichen, würdest du die -4 nicht hinschreiben, bekämst du 4 Zeichen zu viel raus. Hoffe das war einingermaßen verständlich... MfG dere -
Formatierte Bildschirmausgabe mit vBScript
Eratum antwortete auf cmdr_paule's Thema in Skript- und Webserverprogrammierung
Hey paule... mittels Instr, Mid, Left & Co kannst du dir fröhlich deinen String zurrecht schnibbeln. Mit Mid() kannst du dir Informationen mitten aus einem String holen. Instr sucht nach dem ersten Vorkommen eines von dir angegebenen Wertes. Wenn mcih grad nicht alles täuscht, und ich dich richtig verstanden habe, dann könnte das bei dir folgendermaßen aussehen: mid(deinstring,4,Instr(deinstring,",OU")-4) Für genauere Erklärungen und Beispielsyntax folgender Link: asphelper.de - ASPKurs - Zeichenketten - Funktionen MfG Dere Eratum -
Danke dir ersteinmal... Aber dadurch kommen wir dann zur nächsten Frage: Kann ich zu Beginn, beim Laden einer Seite, prüfen lassen ob eine Session läuft, bzw eine Aktion ausführen lassen? Folgendes Szenario: Ich lasse ein Pop-up aufrufen und möchte bevor/wärend das aufgerufen wird abprüfen ob die Session noch läuft. Für diese Überprüfung der Session habe ich schon eine Funktion, die an anderer Stelle auch wunderbar funktioniert. Das Problem stellt lediglich der Aufruf dar, welcher anscheinend nicht stattfindet. Hier der anscheinend nicht ganz richtige Code Pop_up.asp <!--#include file="./funktionen.asp" //--> <% 'On Error Resume Next If Autorisieren() = 0 then Response.Write ("<script language=""JavaScript"" type=""text/javascript"">" & vbcrlf) Response.Write ("self.close()" & vbcrlf) Response.Write ("</script>" & vbcrlf) Response.End stop end if %> <HTML> ...blubber... </HTML> Hat irgendwer eine Idee, wo der Hase im Pfeffer liegt? danke shconmal dem entsprechnden Helferlein :-) MfG Dere Eratum
-
Hallo Leute! Ich bastel gerade an einer Seite auf ASP (Klassik, nicht .net) Basis herum und bräuchte damal ein wenig unterstützung. Meine Frage wäre folgende: Gibt es eine Möglichkeit, dass bei Ablauf der Session automatisch auf eine andere Seite gesprungen wird? Und wenn ja, hat dann jemand einen kleinen Denkanstoß für mich? Ich weiss der Post strotzt nicht gerade vor Informationen, aber hierfür reicht es, hoffe ich. Mein dank gilt euch mal wieder im vorraus... MfG Eratum
-
Also ich danke dir erstmal...Aber inzwischen haben wir das Problem weitetgehend mit Python gelöst... MfG Dere Nico
-
In der CMD gibts fc das vergleicht zwei Textbasierte Dokumente...
-
Holla alle miteinander! Ich stehe hier vor folgender Aufgabe und möchte euch mal um Rat bitten. Situation: Es besteht ein Netzwerk mit Zugang zum Internet. Wer überhaupt und wer wohin im internet darf wird über eine NTLM Authentifizierung geregelt. Aufgabe: Nun soll ich ein Script schreiben, welches überprüft ob die jeweiligen Einstellungen korrekt sind. Also soll das Script versuchen unter einem bestimmten Zugang auf eine Website zuzugreifen. Der jeweilige Rückgabewert soll ermittelt werden. Um das Ganze nochmal zu verdeutlichen: Mein Problem: in dieser Aufgabe höre ich das erste mal die Bezeichnung NTLM Authentifizierung. Klar habe ich als erstes geschaut, was ddenn das nun überhaupt sein soll. Das wäre geklärt :-) Doch schliesslich stellt sich mir ein ganz anderes Problem welches auch nach intensiveren Webrecherchen nicht vergehen mochte: Ist denn das überhaupt so möglich? Hat jemand soetwas shconmal gemacht und könnte mir evtl. einen kleinen Schubs in die richtige Richtung geben (da mir derzeit beinahe jeglicher Lösungsansatz fehlt)? MfG und Danke für eure Bemühungen...Dere Eratum
-
hrm...also wenn ich das richitg verstanden habe, denn haben die Leute die des Skript brauchen ein Tool womit die so manche Sachen überwachen können, und das eben nicht. Diese Funktion soll dann sozusagen von mir nachgereicht werden...Also nix mit Server installieren und Speicherkap is sowiso immer rar *g* Wie shconma gefragt: Ne ganz allgemeine Skriptlösng gibts da ni, oder? Also ich hab bis jetz keine gefunden und wüsste auch nicht wo Windows die haben sollte...
-
Das ganze soll auch auf NT4.0 laufen (wir ham hier alles vertreten :-) ) ... Das Problem is, das ganze soll ja dauerhaft sien und nicht nur ne Woche, und wenn ich den dauerhaft laufen lasse explodieren mir ja irgendwann die LogDateien, oder? Wie gesagt ich hatte gehofft das es so nen Befehl, Klasse, Funktion oder so wie bei Linux gibbet...
-
Hallo ihr Mit--Informatiker da draussen. Wieder einmal stehe ich vor einem, für meine Begriffe, schwerwiegendem Porblem. Unter Linux Betriebssystemen existiert ein Befehl der die durchschnittliche Prozessorlast ausgibt (der letzten 5, 10 und 15 Minuten oder so ähnlich). Nun wurde ich damit beauftragt eben etwas zu basteln was exakt dies in Windows bewerkstelligt. Da das Tool nicht die ganze Zeit laufen soll, müsste man so zu sagen auf eine Windows interne Klasse, funktion o.ä. zurückgreifen. Meine Frage nun: Gibt es denn soetwas unter Windows? Wenn ja wie greife ich per Skript am besten darauf zu? Ich habe jetzt schon ein wenig das Netz durchforscht allerdings ohne jeglichen Erfolg. Mein Dank geht shconmal raus an die Leute, die sich hier meinetwegen hoffentlich ordentlich das Hirnschmalz durcheinanderwirbeln.... Dere Eratum
-
Also inzwischen hat sich das Problem gelöst. Ich hab jetz Installer2Go verwendet. Danke für die Bemühungen.
-
HalliHallo. oflgendes Problem zermarttert mir gerade das Hirn: Ich such ein gutes (mgl. Freeware, wneigstens Testversion) Tool um eine Installationsdatei für WIndows zu erstellen. Hab shcon übel rumgegooglt aber bis jetzt ohne Erfolg. Das Programm sollte in der Lage sein, selbstständig und ohne Probleme noch ein VBSkript oder eine Batch nach der Install ausführen zu können. Kennt jemand ein gutes Tool was mir bei der bewältigung meiner Aufgabe helfen könnte?
-
Edit2: Hab es inzwischen hinbekommen. Sollte es irgendwen mal interessieren: dim fsx,fs,ordner,name, DateiWrite dim filesystemobject dim strFalsePath strFalsePath="D:\Programme\SCC" '-----------------Scriptordner bestimmen------------- set fsx = CreateObject("Scripting.FilesystemObject") scriptname = Wscript.ScriptFullName scriptpath = fsx.getparentfoldername(scriptname) scriptpathnew = Left(scriptpath,Len(scriptPath)-1-(Len(scriptPath)-InstrRev(scriptpath,"\"))) '---------------------------------------------------- '---------------------------------------------------- set fs = CreateObject("Scripting.FileSystemObject") set ordner = fs.GetFolder(scriptpath) For each datei in ordner.Files Dateiname = datei.name if Dateiname <> "rename.vbs" then Set DateiRead = fs.OpenTextFile(Dateiname) inhalt = DateiRead.ReadAll if instr(inhalt,strFalsePath) <> 0 then DateiRead.close inhalt = Replace(inhalt,strFalsePath,scriptPathnew) fs.DeleteFile(Dateiname) Set DateiWrite = fs.OpenTextFile(Dateiname,8,true) DateiWrite.write inhalt DateiWrite.close end if end if Next set fs=nothing set fsx=nothing set ordner=nothing
-
Phew...also wenn ich ehrlich sein darf hab ich aus deiner Antwort kaum etwas verstanden :confused: Wäre es möglich das ganze etwas Laienhafter auszudrücken, bzw. mit einem kleinen Codebeispiel zu belegen? Die Benamsung wollt ich denn ändern wenn ich fertig bin, jetz hatte ich das zum Testen nur mal fix so hingebastelt.... Dennoch schonmal Danke für die Hilfe... Dere Eratum Edit: Kann ich ein und die selbe Datei gleichzeitig zum lesne und zum Schreiben öffnen?
-
Hallo liebe Leute... Wieder einmal hakt es bei mir mit der VBS Programmierung. Ich habe mir ein kleines Script gebaut, welche Die Dateiinhalte sämtlicher Dateien, des Ordners in dem das Script liegt, manipuliert. Aber irgendwie fehlt mir hier gerade voll der Denkanstoß. Es funktioniert alles wunderbar, nur eben das schreiben der neuen Daten in die Dateien, das bekomm ich nicht hin. Wäre net, wenn mir jemand helfen könnte. Dere Nico dim fsx,fs,ordner,name, Dada dim filesystemobject dim strFalsePath strFalsePath="D:\Daten\SCC" '-----------------Scriptordner bestimmen------------- set fsx = CreateObject("Scripting.FilesystemObject") scriptname = Wscript.ScriptFullName scriptpath = fsx.getparentfoldername(scriptname) '---------------------------------------------------- '---------------------------------------------------- set fs = CreateObject("Scripting.FileSystemObject") set ordner = fs.GetFolder(scriptpath) For each datei in ordner.Files name = datei.name msgbox (name) Set Dada = fs.OpenTextFile(name) inhalt = Dada.ReadAll ' msgbox (inhalt) inhalt = Replace(inhalt,"a","Ulumulu") ' [COLOR="Red"]Ich vermute, dass hier noch ein bisschen Quelltext fehlt[/COLOR] ' msgbox (inhalt) dada.close Next set fs=nothing set fsx=nothing set ordner=nothing
-
Es geht!!!! Wie gesagt hab ich da auch shcon dran gedacht, aber aufgrund einer Fehlinformation den Gedanken nicht weiter verfolgt. Ich danke dir für die gute und vor allem schnelle Hilfe
-
cool, du hast ja wirklich noch weiter geschaut :-) Hrm...also mein Kollege meinte, dass es eigentlich keinen Einfluss haben sollte, deswegen bin ich das einfach übergangen...Hrm...Hast du probiert ob es funktioniert, wenn du den ganzen Mist ins Deutsche protierst?
-
Also ich hab die Stelle jetzt nicht gefunden. Da ich jetz noch ein paar andere Sachen zu tun habe, werde ich es auch erst einmal debei bewenden lassen. Sollte dieses Problem nun allerdings jemandem Schlaflose Nächte bereiten, weil er einfach viel ehrgeiziger ist als ich, dann kann er sich das Programm auch herunterladen und noch weiter tüfteln (positive Ergebnisse, wären dann natürlich schön zu lesen *g*) http://www.openeyet.nl/scc/download.html Die Install for windows ist die, die ich verwende (scc-0_10b.exe). Das problem befindet sich in der Scc2Html.vbs . An dieser Stelle schonmal vielen Lieben Dank für die Mithilfe an dieser Stelle. Sollte ich mich durchricngen können mich noch ein wenig mit dem problem zu befassen, werde ich hier umgehend Meldung geben... Wie gesagt Danke euch erstmal.... Dere nico
-
Es handelt sich um "On Error resume Next" ... Beim durchlauf bekomme ich immernoch keine fehlermeldung ausgespuckt. Ich werd mal sehen ob noch irgendwo andere Verbergen, die rauszunehmen sind... Hrm, stimmt, Division durch 0 wäre logisch gewesen... Von welcher zeile sprichst du genau?
-
Also wenn ich den entsprechenden "On Error..." rausnehme läuft er ohne Probleme durch, hat dann allerdings nicht die beabsichtigte Tabelle dabei. An dieser Stelle hat "total" den "664" was natürlich einiges erklären würde, oder? Der Wert von Total errechnet sich aus der Addition der beiden Summanden Varcount und Fixcount, welche in folgender Schleife (gleiche Sub) berechnet werden: Do Until TextStreamIn.AtEndOfStream inputLine = TextStreamIn.ReadLine inputLevel = Split(inputLine, ":", 4, 1) If (UBound(inputLevel) >= 3) Then 'skip empty lines If (inputLevel(2) = currentSubClass) Then 'count number in subClass subClassCount = subClassCount + 1 Else 'calculate number of entries for each subclass If (currentSubClass <> "###start_sub_class###") Then count = count + 1 ReDim Preserve subClass(count) ReDim Preserve subCounter(count) subClass(count) = currentSubClass subCounter(count) = subClassCount End If currentSubClass = inputLevel(2) subClassCount = 1 End If If (inputLevel(1) = currentSccClass) Then 'increment scc class counter sccClassCount = sccClassCount + 1 Else 'write all subclasses and totals to tempfile If (currentSccClass <> "") Then For i = 1 To count TextStreamTemp.WriteLine (currentSccClass & _ ":" & _ sccClassCount & _ ":" & _ subClass(i) & _ ":" & _ subCounter(i)) Next End If currentSccClass = inputLevel(1) sccClassCount = 1 count = 0 ReDim subClass(count) ReDim subCounter(count) End If If (UCase(inputLevel(0)) = "FIX") Then 'increment fix and var counters fixCount = fixCount + 1 Else varCount = varCount + 1 End If End If Loop
