LOTUSSCRIPT /COM/OLE のクラス

例:IsConfigurationDirectory プロパティ
次のエージェントは、現在のセッションが認識している [構成ディレクトリ] データベースを表示します。

Sub Initialize
 Dim session As New NotesSession
 Dim configs As String
 Forall db In session.AddressBooks
   Call db.open("", "") ' Must open database
   If db.IsConfigurationDirectory Then
     configs = configs & db.Server & " " & _
     db.FilePath & Chr(13)
   End If
 End Forall
 If configs = "" Then configs = "None"
 Messagebox configs,, "Conguration Directory databases"
End Sub

関連項目