Cybquest

Evtl. mit Wireshark einfach mitschneiden, wann die Anfrage rausgeht, wann die Antwort zurückkommt... Ggf. statt des Namens mal die IP-Adresse eines Zeitservers verwenden, vielleicht ist es ja ein DNS-Problem... Zumindest ist es immer besser, erst mal eine Fehleranalyse durchzuführen, bevor man pauschal auf MS schimpft ;)

Vielleicht wäre es auch einfach mal interessant, herauszufinden, warum es bei Dir so lange dauert. Hab's hier mal getestet. Das w32tm /resync dauert bei mir 1 Sekunde! (mit dem pool.ntb.org als Zeitserver)

Hat es einen Grund, dass die Zeit ausgerechnet von diesem Zeitserver über diesen Port kommen muss? Sonst würde ich z.B. PTBTIME1.PTB.DE o.ä. vorschlagen über den o.g. Standardport.

Wie in Micha's Link beschrieben, heisst diese Betriebsmasterfunktion korrekt "PDC Emulator" ;) PDC und BDC's gab es noch unter Windows NT. Seit Windows 2000 gibt es nur noch DC's mit Betriebsmasterfunktionen.

Das mit dem Meshing kenn ich nur von HP-Switchen. Und da war's m.W. "was eigenes".

Du hast ja jetzt das "Start /wait..." rausgenommen. D.h. die Batch startet die Exe und läuft dann gleich weiter! Mit "start /wait..." würde die Batchausführung erst weiterlaufen, wenn das gestartete Programm beendet ist.

Reicht es nicht auch, wenn die Sleep.exe im gleichen Verzeichnis wie die Bat liegt?

Wenn, wie im Beispiel, die Verzögerung des "calc"-Aufrufs erwünscht ist, gehört das WScript.Sleep genau vor die oshell.run-Zeile. Ausserdem braucht das wscript.sleep auch noch eine Zeit in Millisekunden als Parameter (z.B. wscript.sleep 1000)

Machen kann man fast alles ;) Wenn das Programm auch eine MSI bietet, könnte man es einfach über GPO verteilen. Stichworte zu VB-Script: Überprüfen, ob eine Datei vorhanden ist: if MyFiles.FileExists(varDatei) then ... Exe starten: Set WShell=wscript.CreateObject("Wscript.Shell") WShell.Run "Setup.exe" ...

Z.B. im Script selbst einfach prüfen lassen, ob der String schon korrekt gesetzt ist (bzw. ob er noch nicht gesetzt ist): Set MyFiles = CreateObject("Scripting.FileSystemObject") varDatei="C:\Programme\OCS Inventory Agent\service.ini" Set f = MyFiles.OpenTextFile(varDatei, 1) Text = f.ReadAll varSearch="Miscellaneous= /S /server:test.net /pnum:80" varReplace="Miscellaneous= /S /server:test.net /pnum:80 /NB" If Instr(Text,varReplace)=0 then Set f = MyFiles.OpenTextFile(varDatei, 2, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) End If

Windows XP beinhaltet eine eigene Firewall. Mal die checken.

Hallo und Willkommen, möglicherweise lässt das die Firewall auf dem Desktop nicht zu? Mal die Konfiguration der Firewall checken. Grüße, Frank

Auch immer wieder hilfreich und meist unterschätzt: An der Kommandozeile "help" eingeben. Oder für bestimmte Befehle z.B. "help xcopy", "help for" ... :)

Per VBScript könnte man in Deinem Fall einfach den String suchen und ersetzen lassen: Set MyFiles = CreateObject("Scripting.FileSystemObject") varDatei="C:\Programme\OCS Inventory Agent\service.ini" Set f = MyFiles.OpenTextFile(varDatei, 1) Text = f.ReadAll varSearch="Miscellaneous= /S /server:test.net /pnum:80" varReplace="Miscellaneous= /S /server:test.net /pnum:80 /NB" Set f = MyFiles.OpenTextFile(varDatei, 2, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) Sollten die Parameter hinter "Miscellaneous=" unterschiedlich sein, die Position jedoch egal, ginge für die 2 Variablen ggf. auch varSearch="Miscellaneous=" varReplace="Miscellaneous= /NB"

Ups... hab da wohl was verwechselt ;) Vor längerer Zeit hab ich mal den Freeware-Terminplaner "WinTer" getestet. War, wenn ich mich recht erinnere, ganz brauchbar.

Z.B. FaJo TimeTool Home of FaJo.de Wenn Outlook geschlossen ist, kommt kein Termin.

Hallo und Willkommen im Board, um bei obigem Beispiel zu bleiben: Die Datei, die da gelöscht werden soll, muss zunächst geschlossen werden und dann erst gelöscht. Ungefähr so: fin.close MyFiles.DeleteFile(varDatei) Umbenennen der Ausgabedatei dann z.B. mittels fout.Name = varDatei oder MyFiles.MoveFile varTmpDatei, varDatei ..das Ganze unterhalb des "loop" einfügen.

ohne die 2x %% gehts aber erst recht nicht ;) Also so sollte es zumindest aussehen: FOR /F "tokens=1" %%f IN (c:\batch\xp-rechner.txt) do dsmove %%f -newparent "OU=Windows XP,OU=WORKSTATIONS,DC=nor,DC=de,DC=eu,DC=airbus,DC=corp" >>c:\batch\xp-move.txt Hast Du es erst mal getestet, welcher Teil der FOR-Schleife nicht geht? Z.B. erst mal FOR /F "tokens=1" %%f IN (c:\batch\xp-rechner.txt) do echo %%f >>c:\batch\xp-move.txt um zu testen, ob die Schleife überhaupt funktioniert. Dann erst den dsmove einbauen.

Hallo und Willkommen, hast Du beim Brennen unter Vista die Option "Mastered" verwendet?

Wenn es global für mehrere Benutzer sein soll: Wenn Du ein kpl. Office hast, könntest Du Deine Textbausteine in einer Access-Datenbank verwalten und per OLE-Automation ins Word an die aktuelle Cursorposition schicken. Im Falle eines Einzelarbeitsplatzes, die Textbausteine einfach über die Word-eigenen Texbausteine verwalten. (werden in der Normal.dot gespeichert und stehen daher dann allen neuen Dokumenten zur Verfügung)

Na ja... so eine einfache Kennwortabfrage mit einzubauen, dürfte dann doch nicht sooo schwer sein. Stimmt. So ein Tastatursperrtool müsste natürlich schon eine bestimmte Tastenkombination (Affengriff;-) abfragen. Eine Idee hätte ich noch (allerdings nicht wirklich ernst gemeint *g*): Den Strom vom einen Bildschirm mittels Schlüsselschalter abschalten ;)

KEN und Exchange sind aber nicht auf einer Maschine, oder? Sonst könnte es mit Port 25 Probleme geben...

Stimmt. Mein Fehler (wie gesagt: unüberprüft ;) Hier ne Lösung: Sub CopyPrim() Quelle = "Tabelle1" Ziel = "Tabelle2" Yziel = 1 With Sheets(Quelle) 'Durchlaufe alle Zeilen der Quelle For Yquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row 'Durchlaufe 5x alle Spalten der Quelle For i = 1 To 5 For Xquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column 'Zellinhalt kopieren Sheets(Ziel).Cells(Yziel, Xquelle) = .Cells(Yquelle, Xquelle) Next Yziel = Yziel + 1 Next Next End With End Sub

Unüberprüftwürde ich sagen, ändere den Codeteil folgendermassen: If Not IsEmpty(.Cells(Yquelle, Xquelle)) Then 'Zellinhalt 5 x kopieren For i=1 to 5 Sheets(Ziel).Cells(Yziel, 1) = .Cells(Yquelle, Xquelle) Yziel = Yziel + 1 next End If

So wie ich das sehe, geht es um PHP und MySQL. Bei MySQL wird das aktuelle Datum mit Curdate ausgegeben. Siehe: MySQL :: MySQL 5.1 Referenzhandbuch :: 12.5 Datums- und Zeitfunktionen