Platforms to show: All Mac Windows Linux Cross-Platform

/Network/LDAP Test


Required plugins for this example: MBS Network Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Network/LDAP Test

This example is the version from Sat, 26th Jan 2018.

Project "LDAP Test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open() dim l as new LDAPMBS("ldap.forumsys.com", 389) if l.Lasterror <> 0 then MsgBox "Error "+str(l.Lasterror) return end if l.Bind "uid=tesla,dc=example,dc=com", "password", l.kAuthSimple if l.Lasterror <> 0 then MsgBox "Error "+str(l.Lasterror) return end if dim results() as Dictionary = l.Search("dc=example,dc=com", l.kScopeSubtree, "(objectclass=*)") if l.Lasterror <> 0 then MsgBox "Error "+str(l.Lasterror) return end if List.DeleteAllRows for each r as Dictionary in results dim name as string = r.Value(nil) for each key as Variant in r.keys if key = nil then else dim v as Variant = r.Value(key) dim s as string if v.IsArray then dim a() as string = v s = Join(a, ", ") else s = v.StringValue end if List.AddRow name, key.StringValue, s end if next next End EventHandler
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

The items on this page are in the following plugins: MBS Network Plugin.


The biggest plugin in space...