Zum Inhalt springen

Enno

Mitglieder
  • Gesamte Inhalte

    3.369
  • Benutzer seit

  • Letzter Besuch

  • Tagessiege

    31

Alle Inhalte von Enno

  1. also sowas wie ich oben auch geamcht habe. dann wäre aber der unterschied im Tempo Perl <-> Basic mehr als Extrem. 8,9h <-> 4,9 Jahre. Also ist Perl ca. 4822 mal so schnell wie Basic. Krasse Geschichte.
  2. a solltest du uns mal sagen um welchs auto es sich handelt. für VAG-Fahrzeuge z.B. http://www.vag-com.de/ google mal nach OBD das sit die schnittstelle.
  3. (0.0.0.0 bis 0.32.255.255) * 8 * 255 = Gesamtzahl du hast schon Recht mit dem 256^4 Wobei die IP ja nicht a+b+c+d ist. Das ist eine Rechneoperation. Kann es sein, das du dadurch viel Zeit verlierst. Denn die Zeitunterschiede sind ja schon eklatant. 4,9 Jahre bei dir zu 8,xx Stunden bei mir.
  4. du hast nen Fehler. Du hast höhe und breite mal die Seitenzahl. Du hast aber nur eine Richtung alle Blätter. Allso alle Blätter aneinander geklebt würde eine Strecke von 21cm Breite und 187.932km Länge ergeben.
  5. Apropo Tinte: auf unserem HP LJ 4300 Je Toner 20000Seiten: würden das 3164 Toner sein. Diese würden (aktuell 1 Toner á 78,04€) 246918,56€ kosten. Ein doch etwas kostpieliges Unterfangen. Ach ja das Papier würde (aktuell bei mir 1 Karton á 1,79€) 113262,25€ kosten. (So kaufen wir es gerade ein.) und noch was zum ausdrucken: HP LJ 4300 = 48 Seiten pro minute = 1318210 Minuten = 915 Tage 10 Stunden 10 Minuten. :marine :marine :marine
  6. irgendwas ist bei dir falsch. dieses Perl Script: open (DATEI, ">ip.txt") ||die "error!"; for ($a=0; $a <= 255; $a++) { for ($b=0; $b <= 255; $b++) { for ($c=0; $c <= 255; $c++) { for ($d=0; $d <= 255; $d++) { print DATEI $a, ".", $b, ".", $c, ".", $d, "\n"; } } } } close(DATEI); braucht für den Bereich: 0.0.0.0 bis 0.32.255.255 genau: 0:00:15,23 Stunden. Also 15 Sekunden und 23 hundertstel. die Datei hat dann: 2162688 Zeilen und eine Größe von: 27.763.712 Bytes von 0.0.0.0 bis 255.255.255.255 sind es 8*255 soviele daten. also würde das Script: 8:39:51,04 Stunden Die Datei hätte dann: 4429185024Zeilen und wäre: 56860082176 Bytes gross. Also ca. 53GB gross. Das wären: 63274072 Blätter auf einem Nadeldrucker (á 70 Zeilen) das entspricht 63275 Kartons á 1000 Blatt das sind ca. 790925,9 Kg (1 Karton á 1000 Blatt = 12,5Kg) Also brauchst du zum ausdrucken 790 TONNEN Papier. Also spinnerte Idee. Nur mal so zum Spass.
  7. ok also die zelle dann so: =WENN(UND($B6="x"; $C6="x");"Kein Einsatz";WENN($B6="x";"Erster Einsatz";WENN(UND($B6<>"x"; $C6="x");"FEHLERHAFTE Eingabe!";DATEDIF($B6;$C6;"M")))) Danke Monty das DATEDIF kannt eich jetzt auch noch nicht.
  8. =WENN(UND($B17="x"; $C17="x");"Kein Einsatz";WENN($B17="x";"Erster Einsatz";WENN(UND($B17<>"x"; $C17="x");"FEHLERHAFTE Eingabe!";ABRUNDEN((C17-B17)/30;0)))) Dann sollte die Formel so aussehen. Es gibt bestimmt noch eleganntere Methoden die Monatsunterschied auszurechnen. Ich hab mal einfach die Differenz genommen. Die ist leider in Tagen. Dann durch 30 geteilt. Dabei kommt aber immer ein ergebniss raus, das krumm ist. Also runden. Passt sie dann so?
  9. =WENN(UND($B6="x"; $C6="x");"Kein Einsatz";WENN(UND($B6="x"; $C6<>"x");"Erster Einsatz";WENN(UND($B6<>"x"; $C6="x");"FEHLERHAFTE Eingabe!";"Monate Berechnen!"))) So damit macht er die punkte 2 und 3. Und gibt ne Fehlermeldung aus, wenn B <> x und c = x darf ja nach deiner definition nicht sein. oder? welches fomrat haben die spalten b und c? text? Zahl? oder was. Dann kann man vielelciht auch die monatsberechnung machen. im übrigen die Zeilen 10 und 11 wiedersprechen sich. Spalten a / b / c sind identisch. Aber E ist unterschiedlich.
  10. versuche mal die anderen Umlaute: ÄÖ sind andere Sonderzeichen ok?
  11. wie soll das sein, wenn in beidem ein x ist soll dort stehen Kein Einsatz? dann in Zelle E6 =WENN(UND($B6="x"; $C6="x");"Kein Einsatz";"") einfügen. Du kannst aber auch viel mehr machen. Also schreib mal wann soll dort was stehen.
  12. Hallo, ich habe das Problem das bei uns durch einige Neuanschaffungen an Drucker die alten Druckerverknüpfungen noch als Leichen bei den Usern rumgeistern. Also neue Drucker verbinden per Loginscript geht mit con2prt das Tool kann aber leider nur alle Drucker aufeinmal wegwerfen. Ich bräuchte eine Möglichkeit gezielt bestimmte Drucker wegzuwerfen. Oder nochbesser ein Tool das prüft ob der Freigabename noch existiert und wenn nein, dann den Drucker wegwirft. ode rweis jemand wie ich per batchbefehle oder perl befehl alle aktuell installierten drucker herrausbekomme. den Rest also Prüfung ob Drucker noch vorhanden und diesen dann löschen kann ich mir dann auch selber per Perl-Script absteln. löschen geht ja auch mit: rundll32 printui.dll,PrintUIEntry /dd "Druckername" nur dort gibts keine Möglichkeit herrauszufinden welche eben schon installiert sind. Oder ich bin blind. Versteht ihr was ich meine? Gruß Enno
  13. Enno

    EDV-Richtlinien

    @schwarzl ja, das hilft mir wesentlich weiter. hab schon beim überfliegen dinge gefunden an die ich nie gedacht hätte. z.B. Aufbewahrung von mobilen PC.
  14. danach hab ich bei selfhtml - perl ewig gesucht. Danke
  15. Enno

    EDV-Richtlinien

    ich mein so EDV-Richtlinien wie sie fast jede Firma erlassen aht also z.B. du darfst keine eigene software installieren, du darfst nicht hier oder da surfen irgendwie steh ich da voll aufm schlauch
  16. hi brauche mal wieder ne hilfe bei perl. ich habe nen hash @ausschluss dann lese ich alle unterverzeichniss in einem Verzeichniss ein. foreach $verz (readdir(DIR)) ich komm nicht drauf wie ich nun prüfe ob $verz in dem Hash enthalten ist. Wenn ja soll er nichts tun, wenn nein soll er eben was tun. z.b. was ausgeben. also z.B. foreach $verz (readdir(DIR)) { if $verz in HASH { tue a }else{ tue b } } hat mir einer nen heissen Tip? Danke schonmal.
  17. Enno

    EDV-Richtlinien

    Hi, a weis ich nicht ob das der richtige bereich ist. wenn nein einfach mal verschieben-. b ich weis komische frage. c ich suche eine Vorlage für die allgemeinen EDV-Richtlinien in einem Betrieb. Kein EDV-Betrieb. EDV wir dhier nur als Mittel zum Zweck eingesetzt und genutzt. Hat mir einer soeine Vorlage, PDF oder wie auch immer. Anpassen an die gegebenheiten kann ich es dann ja schon selber. Nur ich will auch nichts vergessen. Und ausserdem hab ich keinen Plan wie man einige Dinge formuliert. Danke Gruß Enno
  18. Enno

    HTML Mails

    schreib doch einfach Plain-ASCII Textmails. Die kann jeder lesen. Und Information kann man damit auch übertragen. Dazu braucht es keine Bilder oder blinkende bunte Animationen. Man kann ja unten nen link auf weiterführende Infos mit Bilder einfügen. Hat den weiteren Vorteil das solche Mails klein sind, und auch unterwegs gelesen werden können da sie mit langsamen Verbindungen sich auch schnell übertragen lassen. Gruß Enno *der die Unsitte der HTML-Mails eh nicht versteht*
  19. also etwas in dieser art: Sub HP4300() ' ' HPLJ4300 Makro Dim exemplare$ Dim abbruch Dim schachtauswahl1$ Dim schachtauswahl2$ Dim schachtauswahl3$ Dim exemplar1 Dim exemplar2 Dim exemplar3 Dim anzseite Dim Fach1 Dim Fach2 Dim Fach3 Rem ####################### Zuweisen der Variablen den Druckerinternen Fach-Ids ######### Fach1 = 264 Fach2 = 263 Fach3 = 262 Rem ###################### Tasteneingabe für Dialogfenster generieren ################### exemplare$ = "1" + "{Tab}" + "1" + "{Tab}" + "1" WordBasic.SendKeys exemplare$, -1 WordBasic.BeginDialog 583, 203, "Papierschachtauswahl HP LJ 4300" WordBasic.Text 204, 32, 84, 13, "Exemplare:" WordBasic.TextBox 215, 52, 50, 18, "Original" WordBasic.Text 204, 132, 84, 13, "Exemplare:" WordBasic.TextBox 215, 152, 50, 18, "VTDurchschlag" WordBasic.Text 488, 32, 84, 13, "Exemplare:" WordBasic.TextBox 488, 52, 50, 18, "Ablage" WordBasic.GroupBox 10, 6, 180, 85, "Original" WordBasic.OptionGroup "OptionGroup1" WordBasic.OptionButton 20, 40, 150, 16, "Fach 2" WordBasic.OptionButton 20, 20, 150, 16, "Fach 1" WordBasic.OptionButton 20, 63, 150, 16, "Fach 3" WordBasic.GroupBox 10, 112, 180, 85, "Ablage" WordBasic.OptionGroup "OptionGroup2" WordBasic.OptionButton 20, 168, 150, 16, "Fach 3" WordBasic.OptionButton 20, 145, 150, 16, "Fach 2" WordBasic.OptionButton 20, 125, 150, 16, "Fach 1" WordBasic.GroupBox 290, 6, 180, 85, "VTDurchschlag" WordBasic.OptionGroup "OptionGroup3" WordBasic.OptionButton 300, 20, 150, 16, "Fach 1" WordBasic.OptionButton 300, 40, 150, 16, "Fach 2" WordBasic.OptionButton 300, 63, 150, 16, "Fach 3" WordBasic.OKButton 335, 174, 180, 21 WordBasic.CancelButton 371, 133, 99, 21 WordBasic.EndDialog Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog Rem ############################# Wenn Abbruch dann Ende Makro ###################### abbruch = WordBasic.Dialog.UserDialog(dlg) If abbruch = 0 Then GoTo bye End If Rem ############################ Auslesen der Schachtauswahl Original 1.Seite ############## Select Case dlg.OptionGroup1 Case 0 schachtauswahl1$ = Fach2 Case 1 schachtauswahl1$ = Fach1 Case 2 schachtauswahl1$ = Fach3 End Select Rem ############################ Auslesen der Schachtauswahl Durchschlag ############## Select Case dlg.OptionGroup2 Case 0 schachtauswahl2$ = Fach3 Case 1 schachtauswahl2$ = Fach2 Case 2 schachtauswahl2$ = Fach1 End Select Rem ############################ Auslesen der Schachtauswahl Original 2.Seite ############## Select Case dlg.OptionGroup3 Case 0 schachtauswahl3$ = Fach1 Case 1 schachtauswahl3$ = Fach2 Case 2 schachtauswahl3$ = Fach3 End Select Rem ############################ Umwandlung der Exemplaranzahl in Zahlen ############## exemplar1 = WordBasic.Val(dlg.Original) exemplar2 = WordBasic.Val(dlg.VTDurchschlag) exemplar3 = WordBasic.Val(dlg.Ablage) Rem ############################ Auslesen Seitenanzahl des Dokuments ############## Dim stat As Object: Set stat = WordBasic.DialogRecord.DocumentStatistics(False) WordBasic.CurValues.DocumentStatistics stat anzseite = WordBasic.Val(stat.Pages) Rem ############################ Wenn die Exemplaranzahl der Originale größer 0 ############## If exemplar1 > 0 Then ActivePrinter = "\\STU01\HP LaserJet 4300 PCL 5e" ActiveDocument.PageSetup.FirstPageTray = schachtauswahl1$ ActiveDocument.PageSetup.OtherPagesTray = schachtauswahl1$ ActiveDocument.PrintOut Copies:=exemplar1 End If Rem ############################ Wenn die Exemplaranzahl der Durchschläge > 0 ############## If exemplar2 > 0 Then ActivePrinter = "\\STU01\HP LaserJet 4300 PCL 5e" ActiveDocument.PageSetup.FirstPageTray = schachtauswahl2$ ActiveDocument.PageSetup.OtherPagesTray = schachtauswahl2$ ActiveDocument.PrintOut Copies:=exemplar2 End If Rem ############################ Wenn die Exemplaranzahl der Durchschläge > 0 ############## If exemplar3 > 0 Then ActivePrinter = "\\STU01\HP LaserJet 4300 PCL 5e" ActiveDocument.PageSetup.FirstPageTray = schachtauswahl3$ ActiveDocument.PageSetup.OtherPagesTray = schachtauswahl3$ ActiveDocument.PrintOut Copies:=exemplar3 End If Rem ############################ Sprungmarke für Abbruch ############################### bye: End Sub dieses Macro mit einem Button verknüpft macht ein Menü, in dem man auswählen kann wie die 3 Kopienen gedruckt werden. Also 1. Kopie 1. Schacht 2. Kopie 2ter Schacht 3. Kopie 3ter Schacht. Bastel damit mal etwas und veränder es.
  20. bei mir funzt das genau so. ne bootfloppy erstellen, die nen CD-ROM Treiber mit einbindet. diese also Vorlage für die Boot-DVD benutzen. und auf die CD in den 2ten Track die ganzen Daten mit reinhauen. Die Floppyemulation bindet dann ja das CD-Laufwerk unter einem anderen Buchstaben mit ein. und auf dem finden sich dann die ganze Datenimage
  21. deshalb habe ich hier 2 workstations stehen. eine als Domainen Admin und eine zum normalen arbeiten.
  22. Verwaltungstools ausführen als? reicht es nicht wenn ich Domainen Admin bin? Muss ich erst God-Father werden? Danke für die Links.
  23. @toppy, hab hier grade mitgelesen und suche eigentlich auch was vernünftiges mit dem mein Vater Adob Premiere Projekte auf DVD brennen kann. Exportieren und dann die mpeg brennen geht. Aber die nakte mpeg draufbrennen und dann die mpeg anzeigen lassen können nicht alle DVD-Player. Es sollte schon immer eine Standard DVD sein. Bisher sind seine Projekte so klein das man mit dem normalen Nero aus den MPEGs noch SVCDs machen kan. Aber das ist ja auch nicht der Weisheit letzter Schluss.
  24. und warum funktioniert es dann sofort wenn es auf einem der beiden DCs gemacht wird. das ist es ja was ich nicht versteh. das ich es von hand noch replizieren muss is klar. aber wenn ich es auf einem der DCs mache brauche ich es eben nicht replizieren. das wäre nett wenn du mir das mal raussuchen kannst. Danke schon mal für die Arbeit.
  25. das ist alles merkwürdig. ich habe mal aus "spass" die gpo direkt aufm Server geändert. Und siehe da sie funktioniert. Solange ich sie hier aufm Client geändert habe. Also Remote mit der AD-Verwaltung funzt sie nicht. Erkläre mir doch mal einer dieses Verhalten. Wozu gibts denn die RemoteVerwaltung wenn sie eh nicht funktioniert? Denn den Exchange kann ich damit ja auch nicht verwalten. Das geht auch nur auf dem Exchange-Server direkt.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...