Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: wwi am 10.11.03 - 15:49:00
-
Hallo,
ich hoffe ich wiederhole hier nichts. Aber habe leider keine wirkliche Lösung für mein Problem gefunden.
Ok, aus historischen Gründen (Update von R4 auf R5) sieht bei mir das Zeitformat folgendermaßen aus:
notes.ini Client und Server
;************* Zeitzone ******************
ZONE_SET=1
Timezone=-1
DST=0
UseNotesTimeZone=1
Arbeitsumgebung:
Zeitzone des BS verwende: Nein
Lokale Zeitzone: CET
Sommerzeit: gilt hier nicht
Funktioniert auch innerhalb der Domäne einwandfrei.
Aber leider nicht in andere Domänen, bzw. ins Internet.
Gibt dann eine Stunde Zeitverschiebung…..allerdings nur während der Sommerzeit.
Ich denke (sollte ich falsch liegen so bin ich für die richtige Lösung dankbar), die beste Einstellung ist: Auf dem Server die Betriebssystem Zeit zu verwenden, und ebenso auf dem Client.
Beim Server sehe ich da kein Problem, aber beim Client kenne ich leider keinen Parameter in der notes.ini, in der "Zeitzone des Betriebssystems verwenden" gespeichert wird.
Ach so, Client ist XP und R 5.011. Server NT und W2k mit R 5.011.
Wolfgang
-
Jaja, das liebe Sommerzeit-Problem. Du hast keinen DSTLaw-Parameter. Notes kapiert einfach nicht, WANN es Sommer/Winterzeit verwenden soll. Ich habe für meine leidgeplagten Benutzer mal ein Script (Button) geschrieben, das ich denen einfach zuschicke, sollten Probleme auftauchen:
Sub Click(Source As Button)
Dim s As New notessession
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = ws.currentdocument
'Sommerzeit-Regel in Notes.ini ersetzen
Call s.setenvironmentvar("DSTlaw","3 -1 1 10 -1 1",True)
'Sommerzeit in Notes.ini einstellen
Call s.setenvironmentvar("DST","1",True)
'aktuelles Arbeitsumgebungsdokument finden und Sommerzeit-GILT HIER einstellen
location = s.GetEnvironmentString("Location",True)
nloc = Left(location, Instr(location, ",")-1)
Dim adb As New notesdatabase("","names.nsf")
Dim dummy As New notesdatetime("01/01/1950")
Dim coll As notesdocumentcollection
Dim adbdoc As notesdocument
suche = "Name=" & Chr(34) & nloc & Chr(34)
Set coll = adb.search(suche,dummy,0)
Set adbdoc = coll.getnthdocument(1)
adbdoc.DST = "1"
Call adbdoc.save(True,False)
'Mail an Admin senden
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "Du-Administrator-Mensch"
doc.Subject = "Sommerzeit wurde nachgestellt"
Call doc.Send( False )
Call uidoc.close
End Sub
Dieses Script ist für MEZ, Sommerzeit beachten, also etwas anders als Deine Parameter. DSTLaw sollte trotzdem gesetzt werden... ;)
Grüße
René