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