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

関連項目