charlieone

Hallo Freunde der Nacht, ich habe ein Scriptchen geschrieben in Anlehnung an: Copy a Folder Using WMI Bevor ich mein Script poste, das interessante und der Grund des Beitrags: Als ich das Script schrieb und testete funktionierte es wunderbar auf Win2k Prof und Server. Aber nicht auf Win2k3. Dort werden nämlich nur die Dateien unterhalb des Ordners kopiert und nicht wie bei Win2k, Dateien und Unterverzeichnisse. Hat jemand von euch eine Idee? Was besseres als an den \ bei den Pfadangaben rumzuspielen fiel mir nicht ein und ich habe schon alle möglichen und unmöglichen Kombinationen durch. ' Init 'Option Explicit ' Konst. ForAppending = 8 ' Vars dim objFolder strComputer = "." QuellPfad = "c:\\Scripts" BackupPfad = "D:\Archive\" neuVerz = aktDat() ' ErrorLogfile erstellen errFName = "err" & aktDat() & ".log" Set objFSO = CreateObject("Scripting.FileSystemObject") 'tschuess Remote-Funkt. Set objErrFile = objFSO.CreateTextFile(BackupPfad & errFName) objErrFile.WriteLine("Erstellt: " & now() ) objErrFile.WriteLine("Mögliche Stati:") objErrFile.WriteLine("0 - alles i. O.; 2 - Access was denied.") objErrFile.WriteLine("8 - An unspecified failure occurred.; 9 - The name specified was invalid.") objErrFile.WriteLine("10 - The object specified already exists.; 11 - The file system is not NTFS.") objErrFile.WriteLine("12 - The platform is not Windows*NT or Windows*2000.; 13 - The drive is not the same.") objErrFile.WriteLine("14 - The directory is not empty.; 15 - There has been a sharing violation.") objErrFile.WriteLine("16 - The start file specified was invalid.; 17 - A privilege required for the operation is not held.") objErrFile.WriteLine("21 - A parameter specified is invalid.") objErrFile.WriteLine("----------------------------------------------------------------------------------------------------") objErrFile.Close ' Connecten 'WMI connecten Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2") 'Quelle nach Verz. kopieren Set colFolders = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Directory WHERE Name = '" & QuellPfad & "'") 'Wscript.Echo colFolders.Name For Each objFolder in colFolders errRes = objFolder.Copy(BackupPfad & neuVerz ) 'Wscript.Echo errResults wriLog("autoBackup :: " & objFolder.Name & " kopiert. Status: " & errRes) Next 'Garbage ' connections closen Set colFolders = nothing Set objWMIService = nothing wriLog("Beendet: " & now()) ''''''''''''''''''' '' Hilfs-Funktionen ''''''''''''''''''' 'Funktion: aktuelles Datum in Format ttmmjj generieren function aktDat() monat = DatePart("m", Date) tag = DatePart("d", Date) 'wscript.echo len(monat) if Len(monat) = 1 then monat = 0 & monat '(Datepart("m", Date)) 'else ' monat = (DatePart("m", Date)) end if if Len(tag) = 1 then tag = 0 & tag end if datum = tag & monat & DatePart("yyyy", Date) 'Value aktDat = datum end function 'Funktion: String in Logfile anhaengen function wriLog(str) ' AS String) Set objErrFile = objFSO.OpenTextFile(BackupPfad & errFName, 8) objErrFile.WriteLine(str) '& "Erstellt: " & Date & " " & now()'" String?: " & IsNumeric(datum) objErrFile.Close end function Vielen Dank im voraus für Eure Mithilfe und wachsamen Augen charlieone

Das hört sich spannend an ... Nur, wie erstelle ich so eine Schatten-tabelle? Vermute mal über irgendein Skript (Perl vielleicht) welches die Daten aus den beiden Tables ausliest und dann in die neue schreibt. Den Begriff Schattentabelle höre ich heute zum ersten Mal. Das hört sich zumindest einfacher an, als meine Idee ein Skript zu basteln welches als ODBC-Treiber aufgerufen werden kann und dann einen Select auf die beiden Tables ausführt. Es gefällt mir zwar nicht, dass ich in das DB-Schema eingreife (wg. Updates) aber wenn es nicht anders geht muss ich wohl. Wenn Du vielleicht zufällig einen Link zur Hand hast her damit :rolleyes: aber nur, wenn es Dir keine Umstände macht. Herzlichsten Dank charlieone

ok, das ist ein Ansatz. Ich sehe das richtig, dass Du quasi vorab das Briefpapier ausdruckst wieder in den Drucker einlegst und dann aus Lexware ausdruckst? LG :-) charlieone

Hallo Johannes, ja, odbc und mysql geht wunderbar. Solange es nur eine Tabelle ist. Bei mir sind es aber halt zwei. Eine für die Stammdaten (Adresse, Kundennummer) und eine für die Positionen. Habe es auch mal mit MS Query probiert, da ging es aber glaube ich auch nicht wegen der zwei Tabellen. Mit den SQL-Abfragen habe ich eher weniger Probleme obwohl mich die joins auch in den Wahnsinn treiben könnten. Bin da noch nicht so ganz durchgestiegen. Liebe Grüße charlieone

Hallo nicht-Rechnung-schreiber :-)) Da kann ich Dir voll und ganz zustimmen. Als ich damals angefangen gings einigermaßen. Gut habe die Rechnungen auch per Hand geschrieben. Aber inzwischen fehlt mir dazu die Zeit. Ganz zu schweigen von den Tippfehlern und dieser stupiden, langweiligen Tipperei. Hätte nie gedacht, dass die Sache so komplex ist. Wo es doch im Prinzip nur ein Serienbrief. Ich kann die Sache drehen und wenden wie ich will. Irgendwie lande ich immer beim Programmieren. Das hätte ich auch gerne umgangen, ist aber das kleinere Übel (denke ich) Herzlichst charlieone

Vielen Dank für die Links. Wenn ich das richtig sehe, dann bin ich wohl doch der einzige der versucht die Geschichte mit Word zu lösen. Dadurch relativiert sich das Ganze ein bisschen. Hatte nämlich schon an mir selbst gezweifelt. Ich bin momentan am überlegen wie ich möglichst einfach eine Art Pseudoview erstelle und wenn alles nichts hilft, muss ich mich wohl von Word mitsamt meiner Briefvorlage verabschieden *heul* Bin aber immer noch für eure Ideen zu haben. Liebe Grüße charlieone

Hallo traced82, Lexware kenne ich, zumindest vom Namen her. Den Preis brauchst Du nicht raussuchen. Was mich daran stört ist neben dem Preis, dass man auf die Datenbank keinen Einfluss nehmen kann. Man sich von der Herstellerunabhängigkeit verabschiedet und damit nur schwer im Produktiveinsatz auf ein anderes Produkt umschwenken kann. Was mir halt wichtig war, ist dass ich meine Word-Briefvorlage mit dem Briefkopf übernehmen kann. Sie ist zwar nicht der Hit, aber ich bastel ungern an solchen grafischen Spielereien rum. Danke fürs verschieben, ich ahnte schon das ich nicht ganz richtig bin. Liebe Grüße charlieone

Hallo Allerseits, heute mal eine eher allgemeine Frage. Ich versuche seit Ewigkeiten Rechnungen, Angebote und Lieferscheine zu erstellen. Angefangen habe ich mit Word 2003 und bin damals daran gescheitert, dass man keine zwei Tabellen im Seriendruck einbinden kann. Nach einem kurzen Ausflug über verschieden OpenSource-Derivate (OpenOffice, latex, abiWord) bin ich wieder bei Word gelandet. Zur Zeit doktere ich mit: http://mypage.bluewin.ch/reprobst/WordFAQ/MM1toN.htm rum. Meine Frage an Euch ist: Wie habt Ihr das Thema gelöst? Ich kann nicht glauben und mir nicht vorstellen dass ich der einzige bin der Rechnungen über Word druckt. Das muss doch irgendwie gehen und zwar recht einfach. Habt Ihr Ideen oder Inspirationen für mich? Meine Umgebung sieht ungefähr so aus: Eine Warenwirtschaft (cao-wawi.de) welche auf eine MySQL-DB (vers. 3 oder 4) zugreift. Das mit der DB ist auch doof. Wollte nämlich mal eine View erstellen und die einfach Word-Seriendruck integrieren. Dumm nur: MySQL macht keine Views :eek: (ich weiß, ab 5 inzwischen schon). Vielen Dank im voraus für Eure Antworten und Zeit. Weil das Thema ja eher Off-Topic ist. Herzlichst charlieone

Ich spreche von MS Anitspyware Beta 1 http://www.microsoft.com/downloads/details.aspx?FamilyID=321cd7a2-6a57-4c57-a8bd-dbf62eda9671&DisplayLang=en Aber die ist inzwischen eh deinstalliert und per regclean (hoffentlich) gefixt. Auf dem Client lief nie was dergleichen (und trotzdem ist der Port 20 nicht offen). Wie dem auch sei. Ich danke Dir für Deine Hilfe und wünsche Dir ein schönes We. LG charlieone

Nicht ganz, beim Client war kein FW drauf und trotzdem ist dort kein 20er offen.

Beim Client auch nicht.

Bin nebenbei auf folgendes Dokument gestossen: http://support.microsoft.com/default.aspx?scid=kb;en-us;832017 Der relevante Part ist wohl: Schade nur, dass bei ICMP dass wohl UDP heissen muss. Wenn dem so ist, dann sei angemerkt das weder TCP noch UDP 20 bei mir am Server offen ist.

Das einfache vorneweg. ping auf loopback und eig. Int. geht bei Allen. Habe auf dem server netsh int reset all ausgeführt Was ist Antipoden? (Ich vermute ein Witz) Ja, die Beschreibung bei diesem winsockxp deutet darauf hin das es nicht für 2000 geht. Mit deinem ok probiers ich aber aus. Wie soll ich den Protokollstapel fixen? Habe den Browser beim Client wieder angeschmissen samt Serverdienst.

Nö, habe Regclean noch ein zweites mal durchlaufen lassen. Hatte ein paar Sachen gefunden, reboot, nochmal, jetzt hat er nichts mehr fixen gebraucht. Trotzdem kein Land in Sicht. Was anderes: Ich hatte früher manchmal das Problem, dass wenn ich den Server rebootet habe ein anderer Rechner den Masterbrowser übernommen hat. Das war nervig herauszufinden zu erkennen und zu fixen. Habe jetzt am Client den Serverdienst gestoppt und damit auch den Computerbrowser. Damit die Netzwerkumgebung funkt. muss aber der Computerbrowser laufen, oder?

Also, Antispyware deinst., Regclean durchlaufen lassen, zwischendurch WindowsUpdate ausgeführt und rebootet. @overlord Dir auch schönes WE

Ich grüße Dich lefg, das ist schon ok. Ich bin Dir nicht böse genauso wenig wie es von mir böse gemeint war. Habe derweil beim Client das Häkchen für Gerät ausschalten in der Energieverw. rausgemacht. Weiss der Geier, warum sich das wieder gesetzt hat. FWs sind keine drauf. Wobei ich zu meiner Schande gestehen muss, dass ich diese MS Antispyware Beta installiert habe. Und zwar so ziemlich als drittes. Aber, bevor Du schreist "Det isset" es lief auch ohne Antispyware nicht. Bitte schreibe noch zwei Sätze zu Deinem gestrigen Vorgang. War nur der eine Rechner abgeklemmt oder betraf das auch andere Rechner. Bei mir ist übrigens auch NetBEUI inst. Also in der Netzwerkumgebung sollte eigentlich 'ne Menge zu sehen sein. An die Antispyware habe ich auch schon gedacht. Das zweite was die blocken will ist NetBIOS. Das hatte ich aber zwischenzeitlich wieder deaktiviert. Herzlichst charlieone

Das ist schon in Ordnung. Bin ja froh, dass Du noch da bist und nicht keine Lust mehr hast. edit: Das gilt natürlich auch für alle anderen Solver. Ich will keinen diskriminieren. [sELBSTLOB] Bin MCP und Comptia Network+ und würde gerne irgendwann mal den CCNA machen [/sELBSTLOB] Ich sach mal ich weiss was Du meinst, auch wenn ich Dir die Private Adressbereiche nicht aus dem Kopf aufsagen kann. Ich habe es auch schon mal geschafft ein bis drei funktionsfähige Netze aufzubauen (u. a. dieses) Meine Konfig ist ganz einfach gehalten. Die net-Adresse ist 192.168.1.* Das SN ist 255.255.255.0 Der Switch hat die .1 Der DNS/DC/Router/Server die .5 der Rest der hier so rumsteht verteilt sich über den restlichen Bereich ergo: mein Client hat die .7 Das Default-GW ist beim Client die .5 und beim Server nix edit: und bei den erw. TCP/IP steht unter DNS die IP des Servers drin (.5), kein DNS-Suffix Liebe Grüße charlieone

Ich glaube wir kommen beide ein bisschen durcheinander oder laufen aneinander vorbei. Die Meldung "Kabel nicht angeschlossen" erschien, als ich ein normales Kabel mit den beiden Rechnern verbunden hatte. Daraus schloss ich, dass meine NICs keine automatische Korrektur der Kreuzung vornehmen. Die Kabel sind jetzt wieder am Hub dran. Der Hub ist leider nicht sehr aussagefähig zum Thema Acivity (Link und act sind eine LED) Soweit ich das erkenne, leuchtet für beide NICs die Link (ist schwer zu übersehen) Mit viel gutem Willen, kann man diesen normalen Keep-Alive-Poll erkennen. Beim pingen fluktuieren die jeweiligen LEDs rhytmisch zum request. Der gelbe Pop-Up zur jeweiligen Lan-Verbindung sagt: Gesendet: 400und ein paar zerdrückte Pakete Empfangen: 0 Pakte Es ist nur ein 10er Hub

Ja, habe ich schon. Erfolglos. Es liegt auch nicht an der Hardware. Das hatte ich schon eingegrenzt bevor ich den Thread gestartet hatte.

Also ich habe keine moderne Netzwerkkarte(n). Das Icon sagte "Netzwerkkabel nicht angeschlossen"

was sind bei Dir moderne Netzwerkinterfaces? Ich habe hier nur die Standard Realtek 8193-Chipsätze mit 10/100 TX. Also am Kabel liegts nicht.

Ja, das kann man so sagen. Es ist ein Aufbau zum Testen, zum Lernen und leider auch zum arbeiten. Der Switch ist raus und habe stattdessen einen Hub zwischengesteckt, weil meine Crossover nicht lang genug sind. Nothing happens. Hm, ich glaube ich probier nebenbei mal ein anderes Kabel aus.

Wenn da jemand dran rumgedreht hat, dann war ich das :D OK, das Thema ist erledigt. Nach dem reboot stimmt Lokale mit effektive überein. Ich hatte zwar ein secedit /enforce gemacht muss aber ehrlich zugeben, dass ich gerade nicht mehr weiss ob das schon ausgereicht hat. Die NIC funktioniert (ping auf loopb + eig. IP). Default-GW ist beim Client der DC. Liebste Grüße Euch beiden charlieone

Ich gehe immer beim Client auf Arbeitsplatz, Eigenschaften, Netzwerkidentifikation, Ändern, Domäne auswählen, Domäne eintippen, OK (bis hierhin gehts) und dann den Dom-Admin eingeben, Reboot und das wars. Mit der IP hatte ich es bisher noch nicht probiert, in dem Fall hier geht es aber auch nicht exactly Nö, jeder sieht nur sich selber und sonst nichts. Ich beschreibe noch mal kurz meine Umgebung: Ich habe einen w2k-Server, der ist DC der Domäne local Ich habe einen w2k-Client (mit Server-Os), der ist momentan in der Arbeitsgruppe ARBEITSGRUPPE und soll in die Domäne local Alle haben statische ClassC-IPs aus dem gleichen SN. Das tollste ist, ich habe einen managed Switch und nicht mal der ist anpingbar. Normalerweise heisst es TCP/IP deinst. und inst. Doof ist nur, dass das nicht so ohne weiteres beim DC geht. Herzliche Grüße charlieone

Ich habe hier w2k-Clients. Überall ist Netbios über TCP/IP aktivieren ausgewählt. Ich kann halt weder von meinen Clients irgendeinen Rechner anpingen und vom Server keinen meiner Clients. Bin nebenbei zufällig über http://www.mcseboard.de/showpost.php?p=389948&postcount=77 geestolpert. Am Server sahs gut aus. Am Client war bei Serverkomm. dig. sign. (wenn mögl.) die lok. und eff. Einst. auf deaktiviert. Habe Sie dann aktiviert. Ich frage mich nur, wo die effektive Einstellung herkommt. Der Client ist ja momentan nur in einer Arbeitsgruppe und lässt sich ja zu keiner Domäne hinzufügen.