-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: saileshsaha
Message 2 in Discussion
Hi! To Access the NT Group members, you can use the following code snippet: Public
Function ListGroupMembers(ByVal MachineName As String, ByVal GroupName As String) As
String()
Dim i As Integer
Dim arrStr() As String
Dim objGroup, objMember As Object
i = 0
objGroup = GetObject("WinNT://" & MachineName & "/" & GroupName & ",group")
For Each objMember In objGroup.Members
ReDim Preserve arrStr(i)
arrStr(i) = objMember.Name
i += 1
Next
Return arrStr
End Function
This will returns an array of string containing group memebers
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDOTNET/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
