Аутентификация LDAP Ошибка не указана 0x80005000
Вот суть моего кода.
Public Sub GetADUserList(ByVal ADLoc As String, ByVal vLock As Boolean, ByVal vDays As Integer, ByVal move As Boolean, ByVal vMoveFolder As String, ByVal server As String, resultFile As String)
Dim entry As New DirectoryServices.DirectoryEntry("LDAP://" & ADLoc)
Dim mySearcher As New DirectoryServices.DirectorySearcher(entry)
mySearcher.PageSize = 1000
mySearcher.Filter = ("(objectClass=user)")
For Each resEnt As DirectoryServices.SearchResult In mySearcher.FindAll()
HandleUser(resEnt, vLock, move, vMoveFolder, resultFile, vDays)
Next
End Sub
Private Sub HandleUser(resEnt As DirectoryServices.SearchResult, vlock As Boolean, move As Boolean, moveFold As String, resultFile As String, vdays As Integer)
Dim de As DirectoryServices.DirectoryEntry = resEnt.GetDirectoryEntry()
''' a lot of IF Functions that check the properties and make sure I want to work on the current object
''' also there are debugging functions.. logging functions etc.. i ommited them because they all work
de.MoveTo(New DirectoryServices.DirectoryEntry("LDAP://" & logon_Server & "/" & moveFold))
End Sub
Я встроил его в аккуратный Exe и запланировал его запуск с помощью Windows Task Scheduler.
Ошибка 0x80005000
что я получаю для линии de.MoveTo
,
Но вот главный момент: когда я запускаю планировщик задач во время входа в систему, он работает безупречно, но когда я выхожу и запускаю его самостоятельно, он выдает ошибку в этой строке.
Что я думаю, когда я создаю новый DirectoryEntry
Я должен использовать некоторую аутентификацию, но я не уверен, как это сделать без четкого ввода пароля и имени пользователя. Я хочу, чтобы он просто использовал учетные данные пользователя, указанного планировщиком задач.
Надеюсь, я достаточно ясно со своим вопросом и что любой будет и готов и сможет мне помочь с этим.
С уважением, Василий.
ps опция запуска, независимо от того, вошел пользователь в систему или нет, отмечена. и программа делает много других вещей, таких как запись в файл журнала и получение информации, она просто отказывается перемещать объекты при необходимости.