Keo

So, hier ist nochmal die v2, passt so oder? :beagolisc Antrag neutral.pdf

Ich habe soeben noch von tollen Umständen erfahren und zwar war angedacht ServerView von FSC mit HP OpenView vergleichen (einfach aus dem Grund, das beides bereits verfügbar ist ). Da es ServerView als Beigabe zu den FSC-Maschinen gibt, ist es schonmal ein grosser + Punkt. Nur ist es damit nicht wie bei OV möglich, Dienste zu überwachen. Nun kam der Vorschlag von einem Kollegen, das man eine dritte Software (die auch schon teilweise im Einsatz haben), zur Überwachung der Dienste nimmt. Diese Software hat eben mehr den Schwerpunkt auf der Dienstüberwachung, kann also auch nicht gegen OV "allein" stehen. Im Endeffekt bin ich mir nicht sicher wie ich das anstelle, ob ich nun beim Vergleich ansich bleibe und dann die 3. Software in Bezug auf die Dienste hinzuziehe oder ob ich gleich ServerView + Andere Software vs. OpenView mache :confused: Und die Frage aller Fragen, ob ich meinen Antrag diesbezüglich auch noch anpassen sollte, ich persönlich denke ja nicht, denn zu den Feststellungen komme ich ja theoretisch erst während des Projekts :floet:

Mhm richtig :cool: Dann wäre es eventuell noch sinnvoll, in der Zeitplanung noch 1-2 Stunden für die Übergabe einzurechnen?

Mhm, ja es sollen schon alle überwacht werden, aber bei 120 Servern an verschiedenen Standorten, würde es einfach den Rahmen des Projekts an sich sprengen.

Moin, ich weiss, es ist wahrscheinlich der Achthunderttausendste Antrag für eine Monitoringlösung, aber ich bin wirklich für jede Kritik dankbar In der Beschreibung gehe ich ja ein wenig auf die Firma ein, 120 Server usw...in dem Projekt sollen dann aber lediglich ein paar Geräte zur Überwachung herangezogen werden, passt das so oder sollte ich es allgemeiner schreiben bzw. ist es zu allgemein, will heissen, sollte ich sagen, das nicht alle Server überwacht werden? Oder ist das völlig belanglos? :confused: Antrag.pdf

Da es sich um Kleinigkeiten handelt, möchte ich mal nicht so sein Du solltest dir aber auf jeden Fall mal ein wenig VBS anschauen... '1. Abschnitt Set objApp = WScript.CreateObject("Scripting.filesystemobject") Dim EingabeAnzahl Dim AnzahlOK do EingabeAnzahl = InputBox("Geben Sie die Anzahl der gewünschten Dateien ein. Maximal 255") if IsNumeric(EingabeAnzahl) then if EingabeAnzahl<256 and EingabeAnzahl>0 then AnzahlOK=true end if if AnzahlOK<>true then MsgBox ("Ihre Eingabe ist falsch: " & EingabeAnzahl) loop until AnzahlOK or EingabeAnzahl = "" if EingabeAnzahl = "" then msgbox "Abbruch.":wscript.quit MsgBox ("Ihre Eingabe: " & EingabeAnzahl) EingabeAnzahl = CByte(EingabeAnzahl) '2.Abschnitt Dim EingabeVerzeichnis Dim VerzeichnisExistenzpruefung Set VerzeichnisExistenzpruefung = CreateObject("Scripting.FileSystemObject") do EingabeVerzeichnis = InputBox("Geben Sie das gewünschte Verzeichnis ein."&vbcrlf&" Beispiel: C:\Testreihe\Test1") MsgBox ("Ihre Eingabe: " & EingabeVerzeichnis) VerzeichnisOK=VerzeichnisExistenzpruefung.folderexists(""&EingabeVerzeichnis&"") if VerzeichnisOK<>true then MSGBOX ("Verzeichnis ist nicht vorhanden!") loop until VerzeichnisOK=true or EingabeVerzeichnis = "" if EingabeVerzeichnis = "" then msgbox "Keinen Pfad angegeben. Abbruch":wscript.quit MSGBOX("Verzeichnis existiert") '3.Abschnitt Dim Zaehler Set SpeicherUeberpruefung = objApp.getdrive(mid(EingabeVerzeichnis,1,2)) Set DateiExistenzpruefung = CreateObject("Scripting.FileSystemObject") 'eine Datei ist ca. 22 Bytes gross if (22 * EingabeAnzahl) > SpeicherUeberpruefung.freespace then msgbox "Nicht genügend Speicher! Abbruch.":wscript.quit for Zaehler = 1 to EingabeAnzahl If DateiExistenzpruefung.fileExists(EingabeVerzeichnis&"\test" &Zaehler&".txt") then DateiUeberschreiben = MSGBOX (("File test"&Zaehler&".txt existiert schon! File wird überschrieben! Klicken Sie auf Abbrechen, um den Vorgang abzubrechen"), vbOKCancel) If DateiUeberschreiben = vbCancel Then MsgBox("Der Vorgang wird abgebrochen."):WScript.Quit End If Set logbuch =objApp.opentextfile(EingabeVerzeichnis&"\test" &Zaehler&".txt", 2, true,0) logbuch.writeline Now logbuch.close next '4.Abschnitt MsgBox("Es wurden erfolgreich "&EingabeAnzahl&" Dateien im Verzeichnis "&EingabeVerzeichnis&" erstellt.") Ich habe zwar grundlegende Sachen angepasst, allerdings kann man noch einiges optimieren.

if IsNumeric(EingabeAnzahl) then if EingabeAnzahl<256 and EingabeAnzahl>0 then AnzahlOK=true end if Einfach die If ein bisschen ausbauen. :floet:

Genau das, macht doch der Anfangsteil bis zum Abschnitt 2? Hab nur die Kommentare von Abschnitt 1 entfernt.

Hallo, ich hoffe mal du meinst es so: Dim EingabeAnzahl Dim AnzahlOK do EingabeAnzahl = InputBox("Geben Sie die Anzahl der gewünschten Dateien ein. Maximal 255") if IsNumeric(EingabeAnzahl) and EingabeAnzahl<256 and EingabeAnzahl>0 then AnzahlOK=true if AnzahlOK<>true then MsgBox ("Ihre Eingabe ist falsch: " & EingabeAnzahl) loop until AnzahlOK MsgBox ("Ihre Eingabe: " & EingabeAnzahl) EingabeAnzahl = CByte(EingabeAnzahl) '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ' '2.Abschnitt 'Eingabe des gewünschten Verzeichnis, wo die Dateien erstellt werden sollen: 'Hier wird die Eingabe von der InputBox verwendet, um zu überprüfen ob das Verzeichnis überhaupt exisitiert. 'Wenn nicht wird der Vorgang wiederholt, d.h 'die InputBox wird wieder aufgerufen und es wird eine Fehlermeldung ausgegeben. 'Exisitert das Verzeichnis geht es weiter zum 3. Abschnitt. '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ' Dim EingabeVerzeichnis Dim VerzeichnisExistenzpruefung Set VerzeichnisExistenzpruefung = CreateObject("Scripting.FileSystemObject") do EingabeVerzeichnis = InputBox("Geben Sie das gewünschte Verzeichnis ein."&vbcrlf&" Beispiel: C:\Testreihe\Test1") MsgBox ("Ihre Eingabe: " & EingabeVerzeichnis) VerzeichnisOK=VerzeichnisExistenzpruefung.folderexists(""&EingabeVerzeichnis&"") if VerzeichnisOK<>true then MSGBOX ("Verzeichnis ist nicht vorhanden!") loop until VerzeichnisOK=true or EingabeVerzeichnis = "" if EingabeVerzeichnis = "" then msgbox "Keinen Pfad angegeben. Abbruch.":wscript.quit MSGBOX("Verzeichnis existiert") Habe es noch ein wenig (sinnvoll) erweitert

Hio, ist zwar ein bisschen spät, aber vielleicht hilft es ja noch. 'ä' oder 'Ä' entspricht ConsoleKey.Oem7. D.h. wenn man abfragen möchte, ob 'Ä' gedrückt wurde, kann das so aussehen (wenn 'ä' reicht, kann man sich den Teil hinter '&&' sparen): ConsoleKeyInfo Taste; ... ... if ((Taste.Key == ConsoleKey.Oem7) && (Taste.Modifiers & ConsoleModifiers.Shift) != 0) ...

ich moechte von 0 anfangen, weil hier, so macht es fuer mich zumindest den eindruck, hab ich nicht wirklich was nuetzliches gelernt, alles so firmenspezifisch (mache hotline für eine von uns programmierte software). also lieber ein bissel laenger aber dafuer ohne probleme danke fuer den hinweis, aber es steht eine frist von einem monat drin. sollte also alles glatt gehn

Morgen, hab mal eine frage zum berichtsheft. und zwar habe ich im september 2004 ne ausbildung als informatikkaufmann angefangn, zwangsweise, da ich für fisi nix bekommn hab :/. naja, dieses jahr hat es endlich geklappt und ich hab schon nen ausbildungsvertrag fuer ne fisi ausbildung unterschriebn. deshalb werde ich auch zum 31.7. kuendigen. soweit zur vorgeschichte. meine eigentliche frage bezieht sich auf das berichtsheft, das ich jetzt seit einiger zeit (verstaendlicherweise ? ) vernachlaessigt habe. muss ich das irgendwie aus der abgebrochenen ausbildung in die fisi-ausbildung uebernehmn oder fang ich da ein neues an. ich nehme eher 2. an, weil die ausbildung ja auch von 0 beginnt und ich nix ueberspringe, sondern die vollen 3 jahre mache. danke im voraus

Also die Remotes liegen alle in ...\Dokumente und Einstellungen\All Users\Anwendungsdaten\Symantec\pcAnywhere\ oder irgendwo da in der Nähe. So kann man aufjedenfall ohne großen Aufwand die Remotes kopieren und verteilen.

ich glaub du brauchst es eher so das mit dem code oben wuerde keinen sinn ergeben for i=2 to rs.fields.count-1 If rs.fields(i) = "wahr" then dropdown2.rowsource = dropdown2.rowsource & rs.fields(i).name & ";" next

2 arten um in die richtige zeile zu kommen mit dem bereich: einmal kompliziert rs.movefirst do rs.movenext loop until (rs.eof) or (rs("Bereichsname") = dropdown1.value) und einmal einfach über select Set rs = db.OpenRecordset("SELECT * FROM Suche WHERE (Suche.Bereich)="+dropdown1.value+", dbOpenForwardOnly) so dann waeren wir in der richtigen zeile anschließend noch ne kleine for-schleife for i=1 to Maximale Anzahl der Kriterien if rs("Kriterium"+i)="Wahr" then dropdown.rowsource = dropdown.rowsource & ... next aber irgendwie ergibt das keinen sinn, weil du hättest dann entweder die kriterium nummer oder einfach nur wahr etc. in dem dropdown2 oder hast du die ueberschriften (wo du im beispiel kriterium1 ... hast) schon nach einem richtigem kriterium benannt,also zb männlein / alt usw. ?

ich dachte du stehst auf kompliziert ? nunja, den bereich waehlst du ja beim 1. dropdown-feld aus,also muesstest du dessen wert in die suche uebergeben oder du liest solange die zeilen ein, bis rs("Bereich") dem text aus dem dropdown-feld 1 entspricht und dann gehst du ueber ne schleife alle kriterien durch, kann dir dazu gern schoen komplizierten code schreibn wenn du ihn brauchst

klar ein bissel code: Const adOpenStatic = 3 Const adLockOptimistic = 3 Const strDBPfad = "pfad zur mdb" <--- mdb pfad einfuegen Dim connSSDB, rs, strSQL Set connSSDB = CreateObject("ADODB.connection") Set rs = CreateObject("ADODB.Recordset") connSSDB.Provider = "Microsoft.Jet.OLEDB.4.0" connSSDB.ConnectionString = strDBPfad connSSDB.Open strSQL = "SELECT * " + _ "FROM tabelle;" <---- richtige tabelle einfuegen Set rs = connSSDB.Execute(strSQL) rs.MoveFirst joa das waer der code zum verbinden zur datenbank der naechste schritt waer das auslesen, kommt eben drauf an ob die kriterien zeilen- oder spaltenweise stehen, wenn du mir das verraten wuerdest könnte ich dir da weiterhelfen :cool: bin zur zeit an der arbeit, kann also etwas dauern mit der antwort um den code zu testen kannst du ja einfach mal nen "msgbox rs("spaltenname")" machen, beim spaltenname musst du natuerlich den namen einer spalte schreibn, die die tabelle enthaelt

also ich wuerde es ueber ne sql abfrage machen und dann per schleife die kritierien abfragen und halt eintragen

SELECT dsl_data.auftragsnummer, First(dsl_data.nachname) AS ErsterWertvonnachname, First(dsl_data.vorname) AS ErsterWertvonvorname, First(dsl_data.emailnummer) AS ErsterWertvonemailnummer, First(dsl_data.errorcode) AS ErsterWertvonerrorcode, First(dsl_errorcodes.description) AS ErsterWertvondescription, Last(dsl_treatment.aktion) AS LetzterWertvonaktion, Last(dsl_treatment.datum) AS LetzterWertvondatum FROM (dsl_data INNER JOIN dsl_treatment ON dsl_data.auftragsnummer = dsl_treatment.auftragsnummer) INNER JOIN dsl_errorcodes ON dsl_data.errorcode = dsl_errorcodes.errorcode GROUP BY dsl_data.auftragsnummer HAVING (((dsl_data.auftragsnummer)="gewuenschte auftragsnummer hier einfuegen :)")) ORDER BY Last(dsl_treatment.datum) DESC , Max(dsl_data.emailnummer) DESC; jetzt aber wirklich, musst es halt noch ein bisschen huebscher machen

manchmal sieht man echt die einfachsten sachen nicht :cool: wie waers mit: SELECT dsl_data.auftragsnummer, dsl_data.nachname, dsl_data.vorname, dsl_data.emailnummer, dsl_data.errorcode, dsl_errorcodes.description, dsl_treatment.aktion, dsl_treatment.datum FROM (dsl_data INNER JOIN dsl_treatment ON dsl_data.auftragsnummer = dsl_treatment.auftragsnummer) INNER JOIN dsl_errorcodes ON dsl_data.errorcode = dsl_errorcodes.errorcode ORDER BY dsl_data.emailnummer DESC , dsl_treatment.datum DESC; also so stimmt das schonmal mit der sortierung, jetzt fehlt noch das mit der letzten aktionsnummer, na mal schaun ps.: noch wegen spam oder so, ich haette das gern noch in den vorherigen post reingeschrieben, aber irgendwie konnte ich den nicht mehr aendern, najo

hm, bis jetzt nix neues :/ das problem besteht ja darin das du es 2mal sortieren willst, einmal nach der mailnummer und einmal nach datum, aber ich bleib dran, bin selbst net so der sqler

kein problem, bin eh gerad an der arbeit und hab ab und zu nix zu tun also ich nur ne loesung ueber die max funktion beim order by, was hast fuern sql server, oder ist das access? ich probier mal weiter wenn ich zu hause bin,so gegen 17uhr

SELECT dsl_data.auftragsnummer, dsl_data.nachname, dsl_data.vorname, dsl_data.errorcode, dsl_errorcodes.description, Max(dsl_data.emailnummer) AS [mailnummer], dsl_treatment.action, Max(dsl_treatment.date) AS [sortdate] FROM (dsl_data INNER JOIN dsl_errorcodes ON dsl_data.errorcode = dsl_errorcodes.code) INNER JOIN dsl_treatment ON dsl_data.auftragsnummer = dsl_treatment.auftragsnummer GROUP BY dsl_data.auftragsnummer, dsl_data.nachname, dsl_data.vorname, dsl_data.errorcode, dsl_errorcodes.description, dsl_treatment.action ORDER BY Max(dsl_treatment.date) DESC; und so ?

aber es gibt doch zwischen der treatment und der data nur ne verknüpfung über die auftragsnummer, woher soll er dann wissen welche email welcher aktion zugeordnet ist? wenn man die abfrage so macht, dann gibt er einfach alles raus, weil ja die mailnummer zu jeder aktion gehoeren kann