Change User attribute in Active Directory by web (vb.net)

[malin]

(e-mail address removed) 19 Sie. 09:30 poka¿ opcje
Grupa dyskusyjna: microsoft.public.adsi.general
Od: (e-mail address removed) - Znajd¼ wiadomo¶ci tego autora
Data: 19 Aug 2005 00:30:24 -0700
Lokalna: Pi±t. 19 Sie. 2005 09:30
Temat: Change User attribute in Active Directory by web (vb.net)
Odpowiedz | Odpowiedz autorowi | Przekieruj | Drukuj | Wiadomo¶æ
prywatna | Poka¿ oryginaln± wiadomo¶æ | Usuñ | Zg³o¶ naruszenie
prawa lub regulaminu

Hi

I have some problem, i modify attributs in .net by web but nothing
happends, i don;t have any exceptions , everything would be okey but
does'nt

the code :

dim Entry_ldap As New
DirectoryEntry("LDAP://hercena11.d450000.wro.mofnet.gov.pl",
login.text, Password.text)
Dim lista_atr() As String = {"mail"}
Dim Filter As String = ("(&(sAMAccountName=" & login.text &
")(objectclass=" & "user" & "))")
Dim my_ldap_user As DirectorySearcher = New
DirectorySearcher(entry_ldap, Filter, lista_atr)
my_ldap_user.PropertyNamesOnly = True
Dim result As SearchResult
result = my_ldap_user.FindOne()
result.GetDirectoryEntry.Properties("mail").Value = txt_maillst.Text
result.GetDirectoryEntry.CommitChanges()

thanks for all answers
malin

 

[Joe Kaplan \(MVP - ADSI\)]

You multi-posted. Answered in microsoft.public.adsi.general.

Joe K.


(e-mail address removed) 19 Sie. 09:30 poka¿ opcje
Grupa dyskusyjna: microsoft.public.adsi.general
Od: (e-mail address removed) - Znajd¼ wiadomo¶ci tego autora
Data: 19 Aug 2005 00:30:24 -0700
Lokalna: Pi±t. 19 Sie. 2005 09:30
Temat: Change User attribute in Active Directory by web (vb.net)
Odpowiedz | Odpowiedz autorowi | Przekieruj | Drukuj | Wiadomo¶æ
prywatna | Poka¿ oryginaln± wiadomo¶æ | Usuñ | Zg³o¶ naruszenie
prawa lub regulaminu

Hi

I have some problem, i modify attributs in .net by web but nothing
happends, i don;t have any exceptions , everything would be okey but
does'nt

the code :

dim Entry_ldap As New
DirectoryEntry("LDAP://hercena11.d450000.wro.mofnet.gov.pl",
login.text, Password.text)
Dim lista_atr() As String = {"mail"}
Dim Filter As String = ("(&(sAMAccountName=" & login.text &
")(objectclass=" & "user" & "))")
Dim my_ldap_user As DirectorySearcher = New
DirectorySearcher(entry_ldap, Filter, lista_atr)
my_ldap_user.PropertyNamesOnly = True
Dim result As SearchResult
result = my_ldap_user.FindOne()
result.GetDirectoryEntry.Properties("mail").Value = txt_maillst.Text
result.GetDirectoryEntry.CommitChanges()

thanks for all answers
malin

 

[Pat]

z polski kolega



(e-mail address removed) 19 Sie. 09:30 poka¿ opcje
Grupa dyskusyjna: microsoft.public.adsi.general
Od: (e-mail address removed) - Znajd¼ wiadomo¶ci tego autora
Data: 19 Aug 2005 00:30:24 -0700
Lokalna: Pi±t. 19 Sie. 2005 09:30
Temat: Change User attribute in Active Directory by web (vb.net)
Odpowiedz | Odpowiedz autorowi | Przekieruj | Drukuj | Wiadomo¶æ
prywatna | Poka¿ oryginaln± wiadomo¶æ | Usuñ | Zg³o¶ naruszenie
prawa lub regulaminu

Hi

I have some problem, i modify attributs in .net by web but nothing
happends, i don;t have any exceptions , everything would be okey but
does'nt

the code :

dim Entry_ldap As New
DirectoryEntry("LDAP://hercena11.d450000.wro.mofnet.gov.pl",
login.text, Password.text)
Dim lista_atr() As String = {"mail"}
Dim Filter As String = ("(&(sAMAccountName=" & login.text &
")(objectclass=" & "user" & "))")
Dim my_ldap_user As DirectorySearcher = New
DirectorySearcher(entry_ldap, Filter, lista_atr)
my_ldap_user.PropertyNamesOnly = True
Dim result As SearchResult
result = my_ldap_user.FindOne()
result.GetDirectoryEntry.Properties("mail").Value = txt_maillst.Text
result.GetDirectoryEntry.CommitChanges()

thanks for all answers
malin