1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Public Function Liste_Ordi_Domaine(ByVal domaine As String) As String()
Dim dirs, dir As System.DirectoryServices.DirectoryEntry
Dim buf(-1) As String
Dim ans As New System.Collections.Specialized.StringCollection()
dirs = New System.DirectoryServices.DirectoryEntry("WinNT://" & Mon_domaine())
For Each dir In dirs.Children
' collect data on all of our Domain PCs
If dir.SchemaClassName = "Computer" Then
ans.Add(dir.Name)
End If
Next
If ans.Count > 0 Then
ReDim buf(ans.Count - 1)
ans.CopyTo(buf, 0)
End If
Return buf
End Function |
Partager