Cybquest

Stimmt so nicht. Es wird, wie du richtig geschrieben hast, jeweils ein Ping mit inkrementiertem TTL geschickt. Dadurch schickt jeweils der Router, bei dem der TTL abläuft ein Paket zurück. Der letzte Router, der entw. keine Route zum Zielnetz findet oder den Host nicht erreicht, bringt dann den Fehler. D.h. wenn der Host down ist, kann tracert dennoch ein paar Hops bringen.

Hmmm... also von xxx, yyy... les ich im RFC2606 nix. Hab ich da was überlesen? http://tools.ietf.org/rfc/rfc2606.txt

Zunächst: Das Gateway muss schon auch im richtigen Netz sein. D.h. Netz 2 192.168.5.0 sollte Gateway z.B. 192.168.5.1 sein Bei Route add mus ein Gateway angegeben werden, nicht ein kpl. Netz. Also z.B. im Netz 1 (192.168.1.0) so: route add 192.168.5.0 mask 255.255.255.0 192.168.1.1 Entspr. von Netz 2 zu 1: route add 192.168.1.0 mask 255.255.255.0 192.168.5.1

Hallo und Willkommen, nur mal als Anhaltspunkt: ipconfig | find "Adresse" > myIP.txt ...da musst jetzt allerdings den Rest der Zeile noch irgendwie weg bekommen ;)

Wir nutzen PmWiki | PmWiki / PmWiki Kann entw. mit MySQL oder mit Textdateien arbeiten. Läuft wohl auch vom USB-Stick aus.

Ich sag mal: So wird's nicht gehen, da auch bei ausgefülltem Parameter dann die NULLen zurück kommen. Ich wäre eher für nerd's Vorschlag, den WHERE-Teil quasi dynamisch abhängig von der Variablen zu erweitern (also jeweils das "AND verliehen LIKE @verliehen" etc. nur dann hinzufügen, wenn @verliehen befüllt ist) Die Abfrage läuft dann auch nur einmal am Ende, nachdem der Abfragestring fertig ist.

Wenn ich mich recht erinnere, VB-Script VB-Script als Grundlage finde ich persönlich übrigens nicht schlecht, da man ausser allgemeiner Automatisierung und Loginscripten auch gleich eine Basis für Office-Automation (VBA) und ActiveServerPages hat.

Ich würde sagen, ein "AutoIT"-Script. AutoIt Script Home Page Was für eine Umgebung hast Du? Windows-Domäne? Arbeitsgruppe? W2K, W2K3? Clients XP oder Vista? Ich denke, wenn schon einsteigen, dann in aktuelle Scriptingtechnik: Powershell :)

Mit dem /PAE-Schalter kann auch ein 32bit-W2K3-Enterprise mit bis zu 64GB RAM ausgerüstet werden (steht u.a. in dem faq-o-matic-Artikel, den du verlinkt hast).

Vielleicht hilft das hier weiter... Configuring Parameters and Parameter Data Types (ADO.NET) Wann hat es denn funktioniert und mit welchem Parameter kam der Fehler? Mit dem @All? Wenn ich die MSDN-Seite richtig interpretiere, hast Du bei dem ...parameters.Add ggf. einen Fehler drin.

Hi, sammel mal noch deine restlichen Wünsche ;) Nächste Woche kann ich mich darum wieder kümmern :) Grüße, Frank

Hier mit Log und dem von Dirk erwähnten "force": Const ForReading = 1, ForWriting = 2, ForAppending = 8 strRootFolder = "D:\Test" strLogFile = "C:\Killfolderlog.txt" lngDays = 14 Set fso = CreateObject("Scripting.FileSystemObject") Set ofolder = fso.GetFolder(strRootFolder) Set flog = fso.OpenTextFile(strLogFile, ForAppending, True) flog.writeline "---- Alte Ordner in " & strRootFolder & " werden gelöscht! - " & Now() 'Durchlaufe alle Unterverzeichnisse for each folder in ofolder.subfolders KillFolderSub folder next flog.writeline "---- Script beendet - " & Now() Sub KillfolderSub(objFolder) on error resume next 'Durchlaufe alle Unterverzeichnisse for each subfolder in objfolder.subfolders KillFolderSub subfolder next 'Wenn Ordner vor mehr als x Tagen erstellt wurde... if objFolder.datecreated < (Date - lngDays) then 'Alle Dateien im Ordner löschen for each file in objfolder.Files Err.Clear strFile = file.Path fso.DeleteFile strFile, true if Err = 0 then flog.writeline "Datei " & strFile & " gelöscht" else flog.writeline "Datei " & strFile & " konnte nicht gelöscht werden! - Fehler " & Err & " (" & Err.Description & ")" end if next 'Ordner löschen Err.Clear strFolder = objFolder.Path fso.DeleteFolder(strFolder) if Err = 0 then flog.writeline "Ordner " & strFolder & " gelöscht" else flog.writeline "Ordner " & strFolder & " konnte nicht gelöscht werden! - Fehler " & Err & " (" & Err.Description & ")" end if end if on error goto 0 End Sub ...und noch Fehlerroutine mit eingebaut...

Z.B.: SELECT Spalte1, Spalte2, Min(Spalte3) FROM Tabelle1 GROUP BY Spalte1, Spalte2; wobei als Aggregatfunktion statt Min auch Max möglich wäre...

Da Du den geänderten Code hier nicht reingeschreiben hast, kann ich Dir schwer sagen, was DU falsch gemacht hast ;) Wenn der Pfad fest rein kommt, kann auch der "If..."-Teil weg. So sollte es gehen: strRootFolder = "C:\MeinOrdner" Set fso = CreateObject("Scripting.FileSystemObject") Set ofolder = fso.GetFolder(strRootFolder) 'Durchlaufe alle Unterverzeichnisse for each folder in ofolder.subfolders KillFolderSub folder next Sub KillfolderSub(objFolder) 'Durchlaufe alle Unterverzeichnisse for each subfolder in objfolder.subfolders KillFolderSub subfolder next 'Wenn Ordner vor mehr als 14 Tagen erstellt wurde... if objFolder.datecreated < (Date - 14) then 'Alle Dateien im Ordner löschen for each file in objfolder.Files fso.DeleteFile(file.Path) next 'Ordner löschen fso.DeleteFolder(objFolder.Path) end if End Sub

Sorry, mein Fehler. Nu sollte es laufen... strRootFolder = Inputbox("Bitte Startverzeichnis eingeben:") if Trim(strRootFolder) <> "" then Set fso = CreateObject("Scripting.FileSystemObject") Set ofolder = fso.GetFolder(strRootFolder) 'Durchlaufe alle Unterverzeichnisse for each folder in ofolder.subfolders KillFolderSub folder next MsgBox "Fertig" End if Sub KillfolderSub(objFolder) 'Durchlaufe alle Unterverzeichnisse for each subfolder in objfolder.subfolders KillFolderSub subfolder next 'Wenn Ordner vor mehr als 14 Tagen erstellt wurde... if objFolder.datecreated < (Date - 14) then 'Alle Dateien im Ordner löschen for each file in objfolder.Files fso.DeleteFile(file.Path) next 'Ordner löschen fso.DeleteFolder(objFolder.Path) end if End Sub

Sollen die Ordner nach "Datum der Erstellung" oder "Datum der letzen Änderung" aussortiert werden? Sollen die kpl. Ordner, unabhängig davon, wie alt die enthaltenen Dateien sind, gelöscht werden? Hier ein VB-Script, das die Ordner nach "Datum der Erstellung" kpl. löscht: strRootFolder = Inputbox("Bitte Startverzeichnis eingeben:") if Trim(strRootFolder) <> "" then Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(strRootFolder) 'Durchlaufe alle Unterverzeichnisse for each subfolder in folder.subfolders KillFolderSub subfolder next MsgBox "Fertig" End if Sub KillfolderSub(objFolder) 'Durchlaufe alle Unterverzeichnisse for each subfolder in objfolder.subfolders KillFolderSub subfolder next 'Wenn Ordner vor mehr als 14 Tagen erstellt wurde... if objFolder.datecreated < (Date - 14) then 'Alle Dateien im Ordner löschen for each file in objfolder.Files fso.DeleteFile(file.Path) next 'Ordner löschen fso.DeleteFolder(objFolder.Path) end if End Sub ... allerdings eine "Grobfassung". Könnte bei Bedarf etwas verfeinert werden. Übrigens: Es reicht nicht, "datecreated" durch "datelastmodified" zu ersetzen, wenn das Änderungsdatum gewünscht wird, da diese Änderungsdatum sich auf das aktuelle Datum ändert, wenn in Unterordnern Dateien gelöscht werden!

Die Usermappings, die permanent erfolgen liegen in der Registry unter HKCU\Network\<Laufwerksbuchstabe>

Hängt das Laufwerk auch an einem USB 2.0 Port? Testweise schon mal was mit z.B. ntbackup o.ä. darauf gesichert um einen Vergleich zu haben?

Ja weil die Box im gleichen Netzwerk-Segment ist. Ein Ping an die 192.168.42.235 geht über die 1.Netzwerkkarte. Änderst Du die Bindungsreihenfolge der Netzwerkkarten, damit der Ping über die 2.Karte geht, bekommst Du Probleme mit dem Firmennetz. Die Netzwerkkarten sollten in unterschiedlichen Netzen sein, um Probleme zu vermeiden. Nochmal der Tip: Besprech das mit dem Admin.

Hallo und Willkommen, wenn Dein Firmennetz 192.168.x.x hat, bedeutet das, es ist eine 255.255.0.0 Subnetmask? Denn dann kann es so nicht funktionieren, da Deine IP Box im gleichen Segment wäre. Wenn das ein Firmenrechner ist, solltest Du das ggf. mit dem entspr. Admin besprechen!

Hier mal ein Auszug aus einem VB-Programm, bei dem es bei mir zumindest funktioniert: Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Const REG_BINARY = 3 Const HKCU = &H80000001 Const REGWMSS_PATH = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem" lngdummy = RegOpenKey(HKCU, REGWMSS_PATH & "\Profiles\default\9375CFF0413111d3B88A00104B2A6676\00000001", lkey) skey = "New Signature" sdata = "MySig" 'Signaturdateiname ohne Extension Dim b() As Byte Dim i As Integer, lArrSize As Long ReDim b(0 To (Len(sdata) - 1) * 2 + 3) For i = 0 To (Len(sdata) - 1) * 2 Step 2 b(i) = Asc(Mid(sdata, i / 2 + 1, 1)) b(i + 1) = 0 Next i b(i + 1) = 0 lArrSize = UBound(b()) + 1 lngdummy = RegSetValueEx(lkey, skey, 0&, REG_BINARY, b(0), lArrSize) lngdummy = RegCloseKey(HKCU) ...vielleicht kannst ja was damit anfangen. Grüße, Frank

Hallo, was steht denn hinterher in der Registry drin? Hast Du mal den Wert von z.B. 9375CFF0413111d3B88A00104B2A6676\00000001\New Signature verglichen, wenn's einmal per Script und einmal von Hand geändert wurde? Möglicherweise ist die Unicode-Umwandlung inkorrekt... (Hab grad keine Zeit zum testen ;) ) PS: Code bitte in Zukunft mit den Code-Tags (#) einfügen.

Ein Router ist dazu da, zwischen zwei Netzen zu routen! D.h. es reicht ein Router, der an der einen Schnittstelle eine 1er und an der anderen Schnittstelle eine 100er Adresse hat.

In den Eigenschaften des Formulares schauen, was da unter "Datenquelle" steht. In dieser Datenquelle müssen die Felder drin sein. (ich hab selber hier kein Access2007, ebensowenig diese Vorlage, daher kann ich nicht mehr dazu sagen, sorry) Allerdings würde ich vorschlagen, vielleicht erst mal ein Buch zu Access anzuschaffen und ein wenig durchzuarbeiten. Ich weiß nicht, wie weit Du hier mit "Kann mir das mal bitte jemand machen..." kommen wirst ;)

Wenn die NICs auf DHCP umgestellt werden, muss es ja auch entspr. DHCP-Server geben, die Adressen verteilen. Darüber kann man auch ein Standardgateway mitgeben.