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