-----------------------------------------------------------
New Message on MumbaiUserGroup
-----------------------------------------------------------
From: aamirOnline
Message 4 in Discussion
Hi Following function wil help you out.....
'///////// Function returns an array of the computer names in the specified domain
//////////////////////////
Public Function GetComputers(ByVal domainName As String) As String()
Dim retArr() As String 'Return Array
Dim nBound As Integer
Dim oDomain As Object, oComp As Object
oDomain = GetObject("WinNT://" & domainName)
oDomain.Filter = Array("computer")
ReDim retArr(0)
For Each oComp In oDomain
nBound = UBound(retArr)
ReDim Preserve retArr(nBound + 1)
retArr(nBound) = oComp.Name
Next
oDomain = Nothing
GetComputers = retArr
End Function Regards M Aamir Maniar System Analyst (CWS), Freelance OOAD Consultant
[ [EMAIL PROTECTED]
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/mumbaiusergroup/_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]
