HCL Domino - Examples: GetUserPolicySettings method - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetUserPolicySettings method
1. This agent gets the Setup policy document for the /Acme namespace and displays some items.

Sub Initialize Dim session As New NotesSession Dim doc As NotesDocument Dim msg As String Set doc = session.GetUserPolicySettings("Central/Acme", _ "", POLICYSETTINGS_SETUP, "/Acme") msg = "LocAllCatalogServer = " & _ GetName(doc.LocAllCatalogServer(0)) & Chr(13) msg = msg & "LocAllDirectoryServer = " & _ GetName(doc.LocAllDirectoryServer(0)) & Chr(13) msg = msg & "LocAllSametimeServer = " & _ GetName(doc.LocAllSametimeServer(0)) Messagebox msg,, "Setup policy for /Acme" End Sub Function GetName(n As String) As String If n = "" Then GetName = "<None>" Else GetName = n End If End Function

2. This agent gets the Setup policy document for Kayak Guy/Acme and displays some items.

Sub Initialize Dim session As New NotesSession Dim doc As NotesDocument Dim msg As String Set doc = session.GetUserPolicySettings("Central/Acme", _ "Kayak Guy/Acme", POLICYSETTINGS_SETUP) msg = "LocAllCatalogServer = " & _ GetName(doc.LocAllCatalogServer(0)) & Chr(13) msg = msg & "LocAllDirectoryServer = " & _ GetName(doc.LocAllDirectoryServer(0)) & Chr(13) msg = msg & "LocAllSametimeServer = " & _ GetName(doc.LocAllSametimeServer(0)) Messagebox msg,, "Setup policy for /Acme" End Sub Function GetName(n As String) As String If n = "" Then GetName = "<None>" Else GetName = n End If End Function

See Also

GetUserPolicySettings method

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents