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