22 lines
663 B
VB.net
22 lines
663 B
VB.net
Imports DigitalData.Modules.Interfaces
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class Form1
|
|
Private _sync As ActiveDirectoryInterface
|
|
Private _logConfig As LogConfig
|
|
Private _logger As Logger
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
_logConfig = New LogConfig(LogConfig.PathType.CurrentDirectory)
|
|
_logger = _logConfig.GetLogger()
|
|
_sync = New ActiveDirectoryInterface(_logConfig)
|
|
_sync.Authenticate()
|
|
|
|
Dim oGroups = _sync.ListGroups()
|
|
|
|
For Each oGroup In oGroups
|
|
ListBox1.Items.Add(oGroup.SAMAccountName)
|
|
Next
|
|
End Sub
|
|
End Class
|