LOTUSSCRIPT /COM/OLE のクラス
例:AdministrationServer プロパティ
1. 次のエージェントは、現在のデータベースに設定されたシステム管理サーバーを表示します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.AdministrationServer <> "" Then
Messagebox acl.AdministrationServer,, _
"Administration server"
Else
Messagebox "No administration server",, _
"Administration server"
End If
End Sub
2. 次のビューアクションは、現在のデータベースに設定されたシステム管理サーバーを切り替えます。
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.AdministrationServer = "Software_Server" Then
acl.AdministrationServer = "Company_Server"
Else
acl.AdministrationServer = "Software_Server"
End If
Call acl.Save()
End Sub
関連項目
AdministrationServer プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集