Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB5, VB6 | 10.10.06 |
Alle Gruppen einer Domäne ermitteln Dieser Tipp zeigt, wie man alle Gruppen einer Domäne ermittelt | ||
Autor: Microsys Kramer | Bewertung: | Views: 10.536 |
www.access-paradies.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe des WMI-Objekts lassen sich alle Gruppen einer Domäne schnell und unkompliziert ermitteln.
Option Explicit Sub ShowAllGroups(ByVal strDomain As String) Dim oComputer As Object Dim oGroup As Object On Error Goto ErrHandler Set oComputer = GetObject("WinNT://" & strDomain) oComputer.Filter = Array("Group") For Each oGroup In oComputer Debug.Print oGroup.Name Next On Error Goto 0 Exit Sub ErrHandler: ' vermutlich ist kein WMI installiert ... End Sub