neue IP-Adresse für Notes-Server

[KoshNaranek]

Hallo,

wir stellen unsere gesamte IP-Range um.

Wo muß ich meinen Roaming-Usern die neue IP überall eintragen, damit sie den Schwenk nicht
bemerken?

Reicht es, wenn ich in die pernames.ntf eine neue Verbindung eintrage?
Die sollte ja nachts vom Design-Prozess überall eingebügelt werden... oder?

[koehlerbv]

Die Antwort werden die professionellen Admins liefern, von mir nur soviel: Templates vererben Dokumente nur beim erstmaligen Erstellen einer DB mit diesem Template. Später findet da kein Austausch mehr statt. Über die pernames.ntf kannst Du also nicht gehen.

Was Du auf jeden Fall machen kannst: Per Mail den Usern einen Button schicken, der die Verbindungsdokumente nach der alten IP durchforstet und diese gegen die neue austauscht. Dazu ein passendes Schreiben, diesen Knopf nur zu verwenden, wenn die Umstellung passiert ist und keine Verbindung mehr hergestellt werden kann.

Sicherlich gibt es aber eine viel einfachere Variante von den Admins.

Bernhard

[KoshNaranek]

Welche Admins meinst du nun?    Wir sind hier die "rundum-sorglos-billig-Admins"...
Kannst du mir einen Tipp geben, wie ich einen solchen Button machen kann/muß?

Da ich im Moment noch diverse andere Projekte + Monats- + Quartalsabschluß vor der Brust habe und diese Änderung erst heute "aufgefallen" ist, habe ich im Moment echt eine Denkblockade...

Ich sehe mich schon auf über 300 Rechner alles von Hand ändern... ARRRRGGGGHHH 

[eknori]

Trage den / die Server in die DNS ein und du hast keine Probleme ...

[KoshNaranek]

auch nicht, wenn wir Teile der Notes-Clients mit den DNS-Namen, andere mit der IP und wieder
andere mit dem "Full-Notes-Name" eingerichtet haben?

In der pernames.ntf waren von unserem Franz. Hilfsadmin damals nur die IP's eingetragen worden.
Ich habe nun noch den DNS-Namen dazu gepackt... aber wie weiter oben zu lesen steht, hilft das
ja nur bei den neuen Usern...

Sind die Verbindungsdokumente denn "irrelevant" oder ändern die Clients die dann automatisch,
wenn sie die neue Adresse vom DNS erfahren?

[koehlerbv]

Welche Admins meinst du nun?

Sorry, da fehlten drei Worte: "hier im Forum".

Trage den / die Server in die DNS ein und du hast keine Probleme ...

Und wenn in den location docs hart IPs eingetragen sind ? Das ist ja nicht unüblich. Knallt es dann nicht ? Aber ich halte mich jetzt lieber zurück und liefere lieber wieder Stuff zu, wenn es um die Anpassung von location documents in PersNames gehen sollte.

Bernhard

[eknori]

auch nicht, wenn wir Teile der Notes-Clients mit den DNS-Namen, andere mit der IP und wieder
andere mit dem "Full-Notes-Name" eingerichtet haben?

Doch, natürlich. Die Verbindungsdoks müssen natürlich raus. Ich hatte hier irgendwo mal was zu dem Thema geschrieben. Suche mal nach location oder Arbeitsumgebung.

[eknori]

guckst du http://atnotes.de/index.php?topic=2879.msg14621#msg14621

[KoshNaranek]

Habe ich gekuckt... ist mir zu vertrackt... aber da war irgenwo ein Link hierher:

http://atnotes.de/index.php?topic=16658.0

DAS ist mir wesentlich einfacher. Kann man den Button nach dem Klicken verbergen?
Ansonsten müßte ich eine Prüfung einbauen, damit es nicht 1000 Dokumente mit der neuen Verbindung gibt...

Was ich nicht hinbekomme, ist das beide Options angehakt werden "Lanschnittstelle verwenden".
Ich rutsche nun schon mit NotesPeek durch mein Adressbuch zuhause, um das hinzubekommen.
Was ein Glück, dass ich noch ein paar Brocken VB5 spreche  Ich verstehe zumindest ansatzweise, was ich da mache 

Bisher sieht mein Script so aus:
Sub Click(Source As Button)
   Set session = New NotesSession
   Set dbCurrent = session.CurrentDatabase
   
   Dim db As New NotesDatabase("" , "names.nsf")
   Dim success As Variant
   Dim connect As NotesDocument
   
   Set connect = db.CreateDocument
   connect.form = "local"
   connect.type = "Connection"
   connect.destination = "CN=dusmail001/OU=Servers/O=XXXX"
   connect.LanPortName = "TCPIP,LAN0"
   connect.PortName = "TCPIP"
   connect.connectiontype = "0"
   connect.ConnectionRecordFirst   = "1"
   connect.comments="Dieses Dokument stellt den Namen zur Verfügung, der über DNS aufgelöst werden kann."
   connect.optionalnetworkaddress = "dusmail001.YYYYYY.de"
   connect.Source = "*"
   success = connect.ComputeWithForm( False, False)
   Call connect.Save(True,True)
   Print "neues Verbindungsdokument wurde erstellt."
   
End Sub   

Wenn es nun noch
 - nur ein Dokument anlegt
 - optional den Button entfernt
 - ODER startet, sobald der User das Mail liest
 - und mir dann noch ein Mail schickt "User xyz/OU/OU/OU" hat die neue Verbindung..."

DANN wäre ich echt glücklich

[koehlerbv]

Der Ansatz ist doch irgenwie schon falsch. Du hast bestehende connection documents. Die passen (noch). Jetzt muss das geändert werden auf die Daten des neuen Servers bzw. des bestehenden und seiner neuen ID.
Dazu braucht man keinerlei neue Dokumente anlegen, sondern es gilt, die bestehenden durchzugehen und bei Bedarf (Servername passt) anzupassen. Das kann man dann gerne auch 1000 mal machen - es bleibt ja richtig.

Wenn man die Funktion hinter dem Button aushebeln will, wenn sie schon betätigt wurde, kann man was in die NOTES.INI schreiben. Das müllt die aber irgendwann zu (wenn man immer auf die NOTES.INI schielt  ). Wie gesagt: Besser, das Vorgehen sollte eher so sein, dass die location docs einmal umgestellt werden, wenn das denn noch notwenig ist (vulgo: Noch die alten Daten vorgefunden werden).

Das ganze lässt sich wirklich mit wenig Code-Zeilen abbilden.

Bernhard

[KoshNaranek]

mir geht es darum, dass es "sowohl/als auch" funktionieren soll. Sprich: Wenn die alte IP nicht mehr antwortet, soll es auf der DNS-Adresse versucht werden.
Notfalls noch mit der neuen IP...  Falls unser Windows-DNS mal wieder spinnen sollte... Macht er momentan ganz gerne.

Leider kann man im Verbindungs-Doc. nicht mehrere Adressen hinterlegen - Das würde mir sehr helfen :-) Das "ändern" hätte ja auch den Vorteil, das mir das Option-Feld nicht mehr im Weg ist...

Ich werde mir das noch mal ansehen und auch einige Scripte zusammen-leihen... mal sehen, was mir am besten hilft. Zeit habe ich bis nächsten Freitag - dann wird die Adresse gewechselt. Bis dahin sollten alle die neuen Verbindungen haben... Notfalls müssen wir mit Routing/virtueller IP eine Brücke für ein paar Tage/Wochen Löten...

Könntest du mir denn einen Tipp geben, wie das Script aussehen muß?
Wie gesagt: ich spreche nur VB5 und PHP sowie 2 SQL Dialekte. Mit Notes-Script tue ich mich leider etwas schwer. Ein Link zu einem Beispiel würde mir auch schon reichen 
oder stand das schon in den anderen Topics, die wir hier verlinkt haben... ich schaue morgen noch mal... Bekomme langsam das brennen in den Augen und muß ins Bettchen...

[KoshNaranek]

anyone?

By the way. Mit dem, in einem der Links beschriebenen Script, bekomme ich keine Dokumente im names.nsf zu packen. Ich sage ihm "lösche" und er löscht nicht... das finde ich nicht nett 
Ich sitzte hier nun an einem Sonntag morgen in der Firma und warte darauf, dass eine Telekomiker kommt, da die Handwerker beim Umbau im Serverraum wohl unsere TK-Anlage falsch verkabelt haben... da habe ich ein wenig Zeit, an dem Script herum zu stricken...

So.. soweit so gut... nun löscht es das alte und erstellt ein neues...
DA ist aber was nicht richtig... LanPortName und PortName werden zwar lt. NotesPeek richtig gefüllt - aber wenn ich das Dokument in der DB aufrufe, dann sind die 2 Optionfelder auf der ersten Seite nicht angehakt... hat das einen Grund? Ist das überhaupt wichtig??

Hier das Script, dass ich mir nun in meiner Not zusammengebröselt habe, da mir ja scheinbar keiner sagen kann/will, wie ich ein vorhandenes Dokument ändere. Das Buch, dass ich gefunden habe ist wenig hinfreich, da sich das nur auf die Beispielanwendung bezieht.. und die ist UNRAT... :

Sub Click(Source As Button)
   Set session = New NotesSession
   Set dbCurrent = session.CurrentDatabase
   
   Dim db As New NotesDatabase("" , "names.nsf")
   Dim success As Variant
   Dim connect As NotesDocument
   Dim viewConnect As NotesView
   
   Set db = session.GetDatabase( "" , "names.nsf" )
   Set viewConnect = db.GetView( "Connections" )
   If Not viewConnect Is Nothing Then
      Print "Ansicht Verbindungen gefunden..."               
      Set connect = viewConnect.GetDocumentByKey( "dusmail001/Servers/yyyy" , True )
      If connect Is Nothing Then
         Print "kein Verbindungsdokument(e) zum löschen gefunden."         
      End If
      If Not connect Is Nothing Then
         Call connect.Remove(True)         
         Print "Verbindungsdokument(e) wurde(n) gelöscht."         
      End If
   End If
   
   
   Set connect = db.CreateDocument
   connect.form = "local"
   connect.Type = "Connection"
   connect.ConnectionType="0"
   connect.destination = "CN=dusmail001/OU=Servers/O=yyyyy"
   connect.LanPortName = "TCPIP,LAN0"
   connect.PortName =    "TCPIP,LAN0"
   connect.Enabled="0"   
   connect.ConnectionRecordFirst   = "1"
   connect.Comments="Dieses Dokument stellt den Namen zur Verfügung, der über DNS aufgelöst werden kann."
   connect.OptionalNetworkAddress = "dusmail001.XXXX.de"
   connect.PhoneNumber="dusmail001.XXXX.de"   
   connect.Source = "*"
   success = connect.ComputeWithForm( False, False)
   Call connect.Save(True,True)
   Print "neues Verbindungsdokument wurde erstellt."
   
End Sub   

[matze79]

Hallo,

wir ändern mit nachfolgendem Button den Sametime-Server in allen Arbeitsgruppendokumenten. Vieleicht bringt es dich weiter.
Du musst nur den View und den Varieblennamen austauschen, damit du andere Dokumente schreibst.

Code

Sub Click(Source As Button)
	Dim db As New NotesDatabase("", "NAMES")
	Dim item As NotesItem
	Dim view As notesview
	Dim doc As notesdocument
	
	' View
	Set view=db.GetView("Locations")
	Set doc=view.getfirstdocument
	
	' Feld das geändert werden soll
	Dim feld As String                                         	
	' Neuer Wert
	Dim neu As String									
	
	' Feldname
	feld= "SametimeServer"
	' Neuer Feldwert
	neu="sametime01/domain"
	
	'Messagebox("der dbtitel ist: " & db.Title)
	Do Until doc Is Nothing
		
		'Ersetzt das Feld durch den Wert in "neu"
		Set item = doc.ReplaceItemValue( feld, neu )  
		Call doc.Save(True,True)		
		Set doc=view.GetNextDocument(doc)
		
	Loop
End Sub

[KoshNaranek]

Danke... das ist doch das, was mir hilft..
Umgebaut sieht das nun so aus - Falls es noch mal wer haben möchte. In diesem Fred haben wir dann beide Varianten - neues Dok erstellen und altes Dok ändern  :

Sub Click(Source As Button)
   Set session = New NotesSession
   Set dbCurrent = session.CurrentDatabase
   Dim db As New NotesDatabase("" , "names.nsf")
   Dim success As Variant
   Dim connect As NotesDocument
   Dim viewConnect As NotesView
' Feld das geändert werden soll
   Dim feld As String                                         
' Neuer Wert
   Dim neu As String
   x=0   
   Set db = session.GetDatabase( "" , "names.nsf" )
   Set viewConnect = db.GetView( "Connections" )
   If Not viewConnect Is Nothing Then
      Set connect = viewConnect.GetDocumentByKey( "dusmail001/Servers/xxxx" , True )
      If connect Is Nothing Then
         Print "kein Verbindungsdokument(e) zum bearbeiten gefunden."         
      End If
      If Not connect Is Nothing Then
      ' Feldname
         feld= "OptionalNetworkAddress"
      ' Neuer Feldwert
         neu="dusmail001.yyyyyyy.de"
         Set item = connect.ReplaceItemValue( feld, neu )
         
      ' Feldname
         feld= "PhoneNumber"
      ' Neuer Feldwert
         neu="dusmail001.yyyyyy.de"
         Set item = connect.ReplaceItemValue( feld, neu )
         
      ' Feldname
         feld= "Comments"
      ' Neuer Feldwert
         neu="Servername wird nun über DNS aufgelöst. Änderung per Script."
         Set item = connect.ReplaceItemValue( feld, neu )
         
         Call connect.Save(True,True)
         Print"Verbindungsdokument wurde geändert."         
      End If
   End If
   
End Sub