Domino 9 und frühere Versionen > ND6: Administration & Userprobleme
neue IP-Adresse für Notes-Server
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 ;D
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
--- Ende Code ---
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 ;D:
--- Zitat ---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
--- Ende Zitat ---
Navigation
[0] Themen-Index
[*] Vorherige Sete
Zur normalen Ansicht wechseln