|
|
Thanks it is useful
................
|
|
|
|
|
You are welcome. I really appreciate to support you. You are also came from the same country like me too.
|
|
|
|
|
Your from Cambodia? which place?
................
|
|
|
|
|
Socheat.Net wrote: Your from Cambodia?
Yes
Socheat.Net wrote: which place?
Phnom penh, I work at RACHA organization near world vision. And you?
I found your website and it is very beautify. May be beautiful like you too 
Sorry just joking only!!!
|
|
|
|
|
I am student at RULE, and working as volienteer at one company.
If i have problem can i ask you?
................
|
|
|
|
|
Socheat.Net wrote: I am student at RULE
What is RULE? Do you mean RUPP (Royal University of Phnom Penh).
Socheat.Net wrote: If i have problem can i ask you?
Ok, no problem. Here is my e-mail address: roathkanel@gmail.com
|
|
|
|
|
RULE = Roayl Unvercity of Law and Economics.
Do u have yahoo id
my id
cheatasp@yahoo.com
................
|
|
|
|
|
Socheat.Net wrote: RULE = Roayl Unvercity of Law and Economics
I see, I'm sorry that I guess the wrong name.
Socheat.Net wrote: Do u have yahoo id
my id
cheatasp@yahoo.com
My yahoo id is: roathkanel@yahoo.com, if you use yahoo messenger, you can add my address in the messenger list. But I can't chat at my work place because network administrator already block chatting program. If you have internet at home you can chat with me every night.
|
|
|
|
|
No i don't have internet at home, I have added you to my address already. Please go to yahoo messenger.
................
|
|
|
|
|
Socheat.Net wrote: No i don't have internet at home, I have added you to my address already. Please go to yahoo messenger
 We are out of luck. My administrator has configure the firwall to prevent the staff from using any messenger to chat online.
|
|
|
|
|
Unluck, If have time we will together, What about this evening, I will go to paly table tennis with my friend do u 1 2 go?
................
|
|
|
|
|
I'm sorry for late reply, I just return from a small meeting.
Socheat.Net wrote: If have time we will together
We will what?
Socheat.Net wrote: What about this evening, I will go to paly table tennis with my friend do u 1 2 go?
I'm sorry that I'm usally go home and schoo after I leave from my work. We have an e-mail so we would be able to contact with each other.  ![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
|
|
|
|
|
HI,
I have an applicaiton in which I have a tree view consistng of certain values. Now when I right click on the node I should be in a position to edit the text there itself. Similar to the windows explorer where we have a names of the files in the directories where we can right click on the file/directory and change the name.
I tried using the labeledit property but it s not working.
Regards
Uma
|
|
|
|
|
|
|
|
Hello,
I'm trying to get the group in which a user is sitting. I searched and found an artikle here. Converted it from c# to VB.NET and made some changes.
This is the code:
Dim entry As New sys.DirectoryEntry("LDAP://WMU")
Dim search As sys.DirectorySearcher = New sys.DirectorySearcher(entry)
search.Filter = String.Format("(cn=*)", userName)
search.PropertiesToLoad.Add("memberOf")
Dim groupsList As System.Text.StringBuilder = New System.Text.StringBuilder
groupsList.Append("test")
result = search.FindOne()
If Not result Is Nothing Then
Dim groupCount As Integer
groupCount = result.Properties.Count
Dim counter As Integer
For counter = 0 To groupCount - 1 Step counter + 1
MessageBox.Show("in for loop")
If result.Properties.Contains("memberOf") Then
MessageBox.Show("In If statement")
groupsList.Append(CType(result.Properties("memberOf")(counter), String))
groupsList.Append("|")
End If
Next
End If
groupsList.Length -= 1 'remove the last "|" symbol
Return groupsList.ToString()
After some tests, i noticed that the code in the If condition never gets executed. So in other words, the property memberOf is not available.
What can i do to get it available?
Thanks in advance
Bis
|
|
|
|
|
Bis,
I have already replied to your previous thread,
I will also paste the code snippet which i am using for your further reference
<br />
Dim entry As New DirectoryEntry ("LDAP://JANDBINDIA.com", .txtUsername.Value.ToString, .txtpwd.Value.ToString)<br />
Dim search As DirectorySearcher = New DirectorySearcher(entry)<br />
search.Filter = "(&(objectClass=user)(objectCategory=person))"<br />
search.PropertiesToLoad.Add("memberOf")<br />
Dim result As SearchResult<br />
<br />
For Each result In search.FindAll()<br />
If result.Properties.Contains("memberOf") Then<br />
Response.Write(result.Properties("memberOf")(0))<br />
Response.Write("<BR>")<br />
End If<br />
Next<br />
This time you will get it, i am allowing to do the process only for authorized users , probably you can hard code the same r you can leave the parameters blank. but make sure that you have mentioned the .com extension for your domain name which is very important
Sasidar
|
|
|
|
|
hello sasidar,
Sorry to repost a question and thanks for replying.
This time it works, but strangely if I give the extention drom the domain name, it doesn't work.
Greetz Bis
|
|
|
|
|
Bis,
What changes have you made to make it work.
Sasidar
|
|
|
|
|
Sasidar
Here is the code from the function;
Private Function GetADUserGroups(ByVal userName As String) As String
Dim entry As New sys.DirectoryEntry("LDAP://WMU", username, Password)
Dim search As sys.DirectorySearcher = New sys.DirectorySearcher(entry)
search.Filter = "(&(objectClass=user)(objectCategory=person))"
'String.Format("(cn=*)", userName)
search.PropertiesToLoad.Add("memberOf")
Dim groupsList As System.Text.StringBuilder = New System.Text.StringBuilder
result = search.FindOne()
If Not result Is Nothing Then
Dim groupCount As Integer
groupCount = result.Properties.Count
Dim counter As Integer
For Each result In search.FindAll()
If result.Properties.Contains("memberOf") Then
groupsList.Append(result.Properties("memberOf")(0))
groupsList.Append(NewLine)
End If
Next
End If
groupsList.Length -= 1 'remove the last "|" symbol
Return groupsList.ToString()
End Function
Bis
-- modified at 4:30 Thursday 15th June, 2006
|
|
|
|
|
Hi there,
Example
Public sub add(byval a as interger, byval c as interger)
a=10
b=20
sum =a+b
end sub
if someone uses this sub then he should get the sum value also , like
retur=add(10,20,sum)
"S" should get the result.
something like this.
can any one please help
bharath.s
|
|
|
|
|
You add the parameter as ByRef instead as ByVal. ByVal passes tha parameter as a copy of the input value. ByRef passes the object reference i.e. you are modifying the exactly same object/variable.
Public Sub add(ByVal a As Integer, ByVal b As Integer, ByRef sum As Integer)<br />
a = 10<br />
b = 20<br />
sum = a + b<br />
End Sub
|
|
|
|
|
I think you really want a Function
Example :-
Public Function add(ByVal a as integer, byVal b as integer) as integer<br />
Return a+b<br />
End Function<br />
Use it like so...
<br />
sum=add(10,20)<br />
Steve Jowett
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
