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