Cybquest

Die Aussage halte ich für nicht ganz korrekt. Auf ein Sytem gehört m.E. immer beides!Im Heimbereich halte ich Zone Alarm für gut. Den Avira (den neuesten) finde ich persönlich nicht sooo schlecht. Also bei div. Tests hat er meines Wissens auch nicht als "schlechtester" abgeschnitten! Den Kaspersky fand ich auch sehr gut, hat bei mir allerdings irgendwann ständig Probleme gemacht! (ob's an der Konfiguration meines Rechners lag, hab ich jedoch nicht ermittelt ;) ) Der Aussage "Finger weg von Norton" würde ich mich anschliessen!

Ist es wichtig, dass das auch wieder in Zeile 13 steht? Oder ginge auch, die alte Zeile zu löschen und dann die neue am Ende anfügen? findstr /V "VariableN" datei2.txt >tempdatei.txt findstr "VariableN" datei1.txt >>tempdatei.txt copy /Y tempdatei.txt datei2.txt Das /V bei findstr bedeutet, er soll alle Zeilen ausgeben, die den Suchstring NICHT enthalten.

Da würde ich sagen, reicht eine CMD-Zeile bzw. ne Minibatch: @echo off findstr "VariableN" datei1.txt >>datei2.txt ...fügt die gefundenen Zeile aus Datei1 ans Ende von Datei2 an.

Um es richtig zu verstehen: Du willst dem Script dann als Parameter z.B. den Variablennamen mitgeben und den entspr. Wert zurückerhalten? Und den dann in einer anderen der entspr. Variable geben? Und wenn es in der 2.Datei die Variable nicht gibt, auch gleich erzeugen?

Wenns nur ein Forum sein soll das nicht unbedingt auf einem eigenen Webspace liegt, wäre z.B. Wir hosten es kostenlos! Dein Kostenloses Forum mit unserer Software! eine kostenlose Möglichkeit. Am Rand hat man da allerdings auch ein bisschen Werbung ;)

@Biber: Wow... bin auch beeindruckt, was man auf der Commandozeile alles machen kann! Hut ab! @m43stro: Nur das Exit Do rausnehmen reicht nicht! Einfach das exit Do durch die Ausgabe ersetzen Unten dann die Ausgabe rausnehmen und den noid-Fall etwas umbiegen: Do While txtInID.AtEndOfStream = False flgfound = false strInID = txtInID.ReadLine Set txtIn = objFSO.OpenTextFile(strFileIn, 1) Do While txtIn.AtEndOfStream = False strIn = txtIn.ReadLine strColumns = split(strIn,";") if strInID = strColumns(3) then strZeile = strInID & ";" & strColumns(2) flgfound = true txtOut.WriteLine strZeile end if Loop txtIn.Close if not(flgfound) then txtOut.WriteLine strInID & ";noid" Loop

Hier mal ein Besipiel. Ohne Fehlerroutinen etc. Die Dateinamen könnte man ggf. auch noch komfortabel als Übergabeparameter gestalten.. Wenns bei langen Listen zu lange läuft, muß man sich noch was anderes überlegen. strFileInID = "C:\IDs.txt" strFileIn = "C:\Liste.txt" strFileOut = "C:\Ausgabe.csv" Set objFSO = CreateObject("Scripting.FileSystemObject") Set txtInID = objFSO.OpenTextFile(strFileInID, 1) Set txtIn = objFSO.OpenTextFile(strFileIn, 1) Set txtOut = objFSO.CreateTextFile(strFileOut) Do While txtInID.AtEndOfStream = False flgfound = false strInID = txtInID.ReadLine Set txtIn = objFSO.OpenTextFile(strFileIn, 1) Do While txtIn.AtEndOfStream = False strIn = txtIn.ReadLine strColumns = split(strIn,";") if strInID = strColumns(3) then strZeile = strInID & ";" & strColumns(2) flgfound = true Exit Do end if Loop txtIn.Close if not(flgfound) then strZeile = strInID & ";noid" txtOut.WriteLine strZeile Loop MsgBox "Fertig"

Wie groß sind denn die Dateien so? Gehts da eher um ein paar, ein paar hundert oder gar um ein paar Tausend Zeilen? Wenns wirklich viele sind, muss man beim scripten schon ein bissle aufpassen, das Ganze optimiert laufen zu lassen, damit's nicht ewig dauert... Ich such mal, was ich im Fundus hab.

Eine Idee: In MS Access die zwei Dateien einbinden oder verknüpfen. Dann ne Abfrage in der eine Verknüpfung zwischen Feld1 aus Datei1 und Feld4 aus Datei2 hergestellt wird mit der Verknüpfungseigenschaft "Alle aus Datei1 und nur die aus Datei2..." Auszugebende Felder dann Feld1 von Datei1 und Feld3 von Datei2 Wenn die Abfrage dann hübsche DAten liefert, über "Extras - Office-Verknüfungen" im passenden Format ausgeben.

Es muss heissen: if "%variable%" == "" goto blabla

Ob das Script wartet oder nicht, kann mit einem Parameter der run-Methode angegeben werden: Set WshShell = WScript.CreateObject("WScript.Shell") Wshshell.run "MeineBatch.bat", 0, true wartet, bis bat fertig ist, Set WshShell = WScript.CreateObject("WScript.Shell") Wshshell.run "MeineBatch.bat", 0, false wartet nicht. Die 0 als zweiter Parameter bedeutet, dass das Fenster nicht angezeigt werden soll. Quelle z.B.: Run Method (Windows Script Host)

Habs grad mal ausprobiert. Bei mir gibtst keine Probleme. Der Dateiname ist ja in dem Script hart codiert. Wenn ich "test.txt" durch "FA_Export.txt" ersetzte, geht's bei mir nach wie vor. Solltest Du noch mehr verschiedene Dateien haben, sollte man das hart codierte durch nen Übergabeparameter ersetzen. Sagts Bescheid, dann bieg ich's mal in ner freien Minute um.

Ausserdem sollten die Software-Lizenzkosten (zusätzliche Arbeitsplätze, neue Server, ggf. Betriebssystemumstellung...) nicht vergessen werden!

Um wieviele Clients handelt es sich denn? Um einfach ein paar PCs (bis 8) im Auge zu behalten könnte ich Dir mein "Checkhosts"-Progrämmchen anbieten, dass sich oben an den Bildschirmrand klinkt. Zu finden unter Rehm-Web.net Downloads Per VB-SCript könnte man folgende Funktion verwenden: Function Ping(HostName) Dim filename, command, result, temp, file, strergebnis On Error Resume Next filename = "ping.txt" command = "%COMSPEC% /C PING.EXE " & HostName & " -n 2 > %TEMP%\" & filename result = wshshell.Run(command,0,true) temp= fso.GetSpecialFolder(2).Path set file=fso.OpenTextFile(temp & "\" & filename) strergebnis=file.readAll file.Close fs.DeleteFile temp & "\" & filename, true ping=instr(strergebnis, "Antwort") End Function Mit einem If Ping("DerPC") > 0 then ... könnte man dannnoch entspr. Code laufen lassen, wenn der PC da ist.

Wenn Du unbedingt scripten willst, wäre z.B. das Windows-Kommandozeilentool "Comp" für den Vergleich möglich. Die Ausgabe in ne Textdatei umleiten und per blat o.ä. versenden.

Die Frage: Muss es ein Script sein? Mit Arcserve o.ä. könnte man das alles komfortabel erledigen.

Ich würde sagen: Eigentlich solltest Du dafür einen eigenen, neuen Thread aufmachen ;) Gibt es einen Grund, dass das per Script gemacht werden soll? Eigentlich wäre das doch eine Aufgabe, die am einfachsten mit einer richtigen Datensicherungssoftware (Arcserve o.ä.) gemacht werden könnte. Verifizieren, Log verschicken... wären dort dann nur einfach anzuklickende Optionen.

Ich habs selber zwar noch nicht ausprobiert, aber unter Jim Harrison's ISA Tools Repository gibts einen Link "Traffic Quota". Vielleicht wäre das was?

OK, dann'n Kompromiss: Eine "testdatum.vbs": Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder("C:\") for each file in folder.Files if file.name = "test.txt" then if file.datelastmodified < Date() then varExitCode = 0 else varExitCode = 1 end if next WScript.Quit varExitCode und eine "testdatum.bat", die aufgerufen wird: @echo off call wscript.exe testdatum.vbs if %ERRORLEVEL%==0 goto NEIN echo JA > test.log goto END :NEIN echo NEIN > test.log :end

Ah ja, stimmt... mein Fehler ;) Bei der Batch-Version hättest du ggf. mit echo. >>C:\...hosts vor der ersten einzufügenden Zeile auch einen Umbruch hinbekommen.

Ansonsten in Deinem Script einfach das strNewText=... ersetzen durch: strNewText = strtext & Chr(13) & "NeueZeile1" & Chr(13) & "NeueZeile2" Chr(13) sind die Zeilenumbrüche...

Wenn Du nur Zeilen anhängen willst ginge es doch auch einfach per Batch: echo Anzuhängende Zeile1 >>C:\...hosts echo Anzuhängende Zeile2 >>C:\...hosts ...oder muss auch überprüft werden, ob die Zeilen schon dran hängen?

Muss es Batch sein? Mit VB-Script ginge es z.B. so: Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder("C:\") for each file in folder.Files if (file.name = "test.txt") and (file.datelastmodified < Date()) then strJaNein ="NEIN" else strJaNein = "JA" end if next '... Ausgabe von strJaNein nach belieben...

Also ich seh da nix auffälliges...

Ich hatte so nen Effekt mal mit ner Sygate Firewall. Die hat sich irgendwie so verabscheidet, dass man bis auf einen Task im Taskmanager nix mehr von ihr gesehen hat, sie aber feste Pings blockiert hat! Und der Task hiess irgendwie unaufällig (spf o.ä.)