Welche Admins meinst du nun?
Trage den / die Server in die DNS ein und du hast keine Probleme ...
auch nicht, wenn wir Teile der Notes-Clients mit den DNS-Namen, andere mit der IP und wiederDoch, 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.
andere mit dem "Full-Notes-Name" eingerichtet haben?
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
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