Hi All,
i have a problem to get data from Active Directory like below:
"System.Security.SecurityException
Request for the permission of type 'System.DirectoryServices.DirectoryServicesPermission, System.DirectoryServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a' failed.
at test2.FormCode.CTRL2_5_Clicked(Object sender, ClickedEventArgs e)
at Microsoft.Office.InfoPath.Internal.ButtonEventHost.OnButtonClick(DocActionEvent pEvent)
at Microsoft.Office.Interop.InfoPath.SemiTrust._ButtonEventSink_SinkHelper.OnClick(DocActionEvent pEvent)"
how to solve this problem?
my code below:
TryDim userName As String = Me.Application.User.UserName
Dim searcher As DirectorySearcher = New DirectorySearcher("(mailNickname=" + userName + ")")Dim result As SearchResult = searcher.FindOne()
Dim employee As DirectoryEntry = result.GetDirectoryEntry()Dim FirstName As String = employee.Properties("givenName").Value.ToString()
Dim xnMyForm As XPathNavigator = Me.CreateNavigator()Dim ns As XmlNamespaceManager = Me.NamespaceManager
xnMyForm.SelectSingleNode(
"/my:myFields/my:FirstName", ns).SetValue(FirstName)Catch ex As ExceptionMessageBox.Show("The following error occurred: " + _
ex.Message.ToString())
Throw
End Try