Cybquest

Wie soll ich das rausfinden?

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.

Es reicht, Sleep.exe ins System32 Verzeichnis zu kopieren.

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

...

Nun wollte ich eine Wscript.sleep einbauen doch das klappt irgendwie nicht.

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.

... in Batch sollte man 2x %% der Variabel davor stellen geht aber nicht.

...

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

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)

Ja, das ist was "selbst gestricktes". Jedoch ist es nicht Ziel, zigg Stunden in das Problem zu infestieren. Wieso fragst du`?

Na ja... so eine einfache Kennwortabfrage mit einzubauen, dürfte dann doch nicht sooo schwer sein.

Wenn die Tatstatur gesperrt ist dürfe es schwierig sein darüber ein Kennwort zur Reaktivierung des Gerätes einzugeben

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