Jump to content

charlieone

Members
  • Gesamte Inhalte

    35
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von charlieone

  1. 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

  2. r du könntest mittels eines cron Jobs eine Schatten Tabelle (ähnlich eines VIEWs) erzeugen damit könntest du dann via odbc mit word darauf gehen...

     

    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

  3. 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

  4. Hallo nicht-Rechnung-schreiber :-))

    Bauchweh.

     

    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

  5. 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

  6. 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

  7. 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

  8. 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

  9. Bin nebenbei auf folgendes Dokument gestossen: http://support.microsoft.com/default.aspx?scid=kb;en-us;832017

     

    Der relevante Part ist wohl:

    System service name: Group PolicyApplication protocol Protocol Ports

    DCOM TCP + UDP random port number between 1024 - 65534

    ICMP (ping) UCP 20

    LDAP TCP 389

    SMB TCP 445

    RPC TCP 135, random port number between 1024 - 65534

     

    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.

  10. 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.

  11. 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?

  12. 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

  13. Ich möchte mir den Thread nicht in seiner ganzen Schönheit nochmals zu Gemüte führen. Wie ist denn die TCP/IP-Konfiguration von Server und Client?

     

    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

  14. 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

  15. Du hast also einen Server und einen Client? Es ist also ein Aufbau zum Testen, zum Lernen?

     

    Was geschieht, falls du den switch rauslässt, die beiden Geräte mittels Crossovercable oder auch Straight verbindest?

     

    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.

  16. Hat da jemand dran rumgedreht, hast du die Einstellungen zur Authentifiziereung mal mit anderen Geräten verglichen?

     

    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

  17. Meist versucht man das Joinen ja mit dem NetBIOS-Namen, alternativ mit der IP.

     

    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

     

    Falls aber der Ping schon nicht geht, ist das für mich höchst verdächtig. An Server und Client ist also NetBIOS over TCP/IP aktiviert, der Dienst Computerbrowser ist an beiden Geräten gestartet?

    exactly

     

    Finden sich die Geräte jeweils mit dem Explorer selbst und gegenseitig in der Netzwerkumgebung. Eventuell mit der Suchfunktion unter Angabe von Rechnername oder IP?

     

    Wie seht es denn mit den anderen Clients aus? Finden die den Server, sieht der Server die Clients?

     

    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

  18. 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.

×
×
  • Neu erstellen...