Cybquest

"Welche Anweisung" ... ist gut ;) Aber als Anregung hier ein Beispiel: set db = CreateObject("ADODB.Connection") db.Open("Provider=SQLOLEDB.1;Data Source=MeineDB;UID=DBUser;PWD=DBPasswort") sql = "use DieDatenbank;" set rs = db.Execute(sql) 'Daten in Tabelle schreiben sql = "insert into DieTabelle (Feld1, Feld2)" sql = sql & "values ('" & varFeld1 & "','" & varFeld2 & ");" set rs = db.Execute(sql) D.h. erst mal die entspr. Datenbank referenzieren, dann mit einem INSERT die DAten in die entspr. Tabelle schreiben. PS: Die ganzen "Meine..." und "Die..." natürlich durch entsprechende Werte ersetzen.

Für Privat find ich Alle meine Passworte und Alle meine Passworte-Server, Passwort Manager zu sicheren Verwaltung Ihrer Passwörter/Kennwörter lokal und auf USB-Stick ganz gut. Ansonsten: siehe oben! (Papier - Safe)

Hab grad keine konkrete Lösung im Kopf, aber ich denke, das Stichwort wäre hier NAT (Network Address Translation)

Nu ja... sooo geht das nicht! Du schreibts hier... Set f = MyFiles.OpenTextFile(varDatei, ForWriting, True) f.Write varCountNeu ja auch nur noch eine Zahl in deine Originaldatei! Hier ein funktionierendes Script. Bei jedem Aufruf wird die Zahl zwischen <Version> und </Version> erhöht: Set MyFiles = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 varDatei="C:\test.owp" Set f = MyFiles.OpenTextFile(varDatei, ForReading) Text = f.ReadAll varPos1 = Instr(Text,"<Version>")+9 varPos2 = Instr(Text,"</Version>") - varPos1 varCount = Mid(Text, varPos1, varPos2) varCountNeu = varCount + 1 varSearch="<Version>" & varCount & "</Version>" varReplace="<Version>" & varCountNeu & "</Version>" Set f = MyFiles.OpenTextFile(varDatei, ForWriting, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) ...die Variable "varDatei" natürlich wieder entsprechend anpassen ;)

Wie wärs mit einem einfachen Autofilter und einer TEILSUMME, die dann entspr. dem Filter die Summe anzeigt?

Evtl. mal FaJo Timetool anschauen? Home of FaJo.de

- Im ISA müsen die Netzwerke definiert sein, sowie die entspr. Netzwerkregeln - Im Routing & RAS die Routen einrichten - Zugriffsregeln erstellen

Download your free customer support software ...oben gibt's auch ein deutsches Fähnchen, das ne Übersetzung anzeigt. UltraVNC lässt sich auch in deutsch installieren.

Was ist an VNC auszusetzen? Evtl. mal die verschiedenen Versionen aunschauen. UltraVNC finde ich persönlich z.B. gut.

Wenn eine Datei erzeugt wird, ist DateCreated und DateLastmodified identisch. Unterschiedliche Daten bekommst Du erst, wenn die Datei bearbeitet wird! (nicht durch kopieren oder so, sondern durch öffnen und ändern)

Was mir noch eingefallen ist: In dem Beispiel hab ich file.datelastmodified angegeben. Du wolltest aber eigentlich das Erstelldatum! Das wäre dann file.datecreated

Ne Möglichkeit wäre: varFileName= year(file.datelastmodified) & "-" & right("0" & month(file.datelastmodified),2) & "-" & right("0" & day(file.datelastmodified),2) & " " D.h. bei Monat und Tag wir grundsätzlich eine 0 davor gehängt und dann aber nur die hinteren 2 Zeichen genommen.

Wie ich oben bereits geschrieben hab mit Set folder = fso.GetFolder("C:\Scripte\") for each file in folder.Files ... next Die Schleife durchläuft dann alle Files. Den Original-Dateiname bekommst Du mit file.Name Den Original-Dateiname incl. Pfad bekommst Du mit file.Path Die Dateiendung musst Du Dir irgendwie rauspfriemeln. Sollte diese immer 3 Zeichen lang sein z.B. mit Right(file.Name,3)

Nu ja, wie gesagt ein Codeschnippsel ;) Originalzitat von Dir: "...ein paar hilfreiche Brocken Code hinwerfen..." Umbenennen einer Datei z.B. mit file.Rename(varPath & varFileName) ...den varPath musst evtl. noch irgendwo rausholen.

Hier mal'n Codeschnippsel... Set folder = fso.GetFolder("C:\Scripte\") for each file in folder.Files varFileName= year(file.datelastmodified) & "-" & month(file.datelastmodified) & "-" & day(file.datelastmodified) & " " varFileName = varFileName & hour(file.datelastmodified) & ":" & minute(file.datelastmodified) & ":" & Second(file.datelastmodified) ... ... noch'n bissle If Exist... then varFileName=varFileName & "-01" o.ä. etc. ;)

Wenn ich daziwschenfunken darf: Bei dem Vorschlag von phoenixcp ist nach %computername% noch ein Leerzeichen!

Wenns über ein VB-Login-Script geht, z.B. so: Set WshShell = WScript.CreateObject("WScript.Shell") strReg = WshShell.RegRead("HKCU\Software\...") Wenn's remote gehen soll, braucht's etwas mehr...

Mit einem einfachen if "%1" == "" goto weiter goto %1 :weiter Als Parameter einfach den Sprungmarkenname übergeben. Wenn kein Parameter übergeben wird, geht's zu :weiter.

Z.B. so: for /f "delims=; tokens=1,2,3" %%i in (hosts.txt) do @echo netsh dhcp server scope <Bereich> add reservedip %%i %%j %%k >>hostdhcp.bat In der hosts.txt stehen die entsprechenden Laptops im Format ip;mac;name (Bsp.: 10.1.2.3;1a2b3e4f8899;server0815) Den Bereichsname kannst du auf dem DHCP-Server mittels netsh dhcp server show scope ermitteln. Anleitungen zu NETSH sowie FOR findest du an der Befehlszeile (einfach z.B. FOR /? am Commandpromt eingeben)

Du könntest die Reservierungen ja automatisch eintragen per Script: netsh dhcp server scope <bereich> add reservedip <ip> <mac> <name> Die ganzen MAC-Adressen musst halt einmalig zusammensammeln, in ne Liste schreiben und mit FOR... ne entspr. Batch zusammenbasteln.

Hmmm... bei mir funktioniert das Script. Es ändert halt direkt die OWP-Datei ohne den Umweg über txt. Also beim ersten Durchgang muss die Zahl in counter.txt identisch mit der Zahl in test.owp sein! Und in der counter.txt muss sie ohne Leerzeichen, ohne Zeilenumbuch danach o.ä. drin stehen! Sonst gehts nicht...

Wie wärs mit WhatsUp Gold? Koschd allerdings was!

Like this? Set MyFiles = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 varDatei="D:\test.owp" varCntDatei="D:\Counter.txt" Set f = MyFiles.OpenTextFile(varCntDatei, ForReading) varCount = f.ReadAll varCountNeu = varCount +1 Set f = MyFiles.OpenTextFile(varCntDatei, ForWriting, True) f.Write varCountNeu varSearch="<Version>" & varCount & "</Version>" varReplace="<Version>" & varCountNeu & "</Version>" Set f = MyFiles.OpenTextFile(varDatei, ForReading) Text = f.ReadAll Set f = MyFiles.OpenTextFile(varDatei, ForWriting, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) Hab einfach mal ne "counter.txt" angelegt. Dort steht am Anfang nur die erste zu suchende Zahl und wird dann immer um eins erhöht.

Ist in der Regel das HTTP-Protokoll unter "Protokolle" angegeben? Ansonsten wird "HTTP konfigurieren" nämlich ausgeblendet.

Die Uplink-Ports müssen allen switchübergreifenden VLANs angehören. Stichwort hierfür (ebenso für die Frage: "Kann ein Port mehreren VLANs angehören") ist "tagging". Für Switchübergreifende VLANs ist be HP der "Procurve Manager" sehr hilfreich (wenn auch nicht billig)