voodoo81

Moin Sigma! Ich hätte zwar keine VBA Lösung anzubieten aber versuchs mal auf einem DC mit dem Befehl dsquery user -limit 50000 | dsget user -samid -fn -ln -desc -dept -title >Liste.txt Anschließend die Datei in Excel importieren ;-) Hoffe das hilft! Bis denn, Voodoo

Moin! Ich hab ein ähnliches Problem in der Firma... Ich hab mir da eine kleine Batchdatei geschrieben die mir überprüft ob eine IP a) in Benutzung (PING) und im DNS Server eingetragen ist. Damit erwischt man zwar nicht alle, aber die meisten Geräte ;-) @ECHO OFF CLS ECHO Aufruf: ECHO. ECHO NetScan IP-Bereich Start-Adresse (End-Adresse) ECHO NetScan 10.0.0 200 IF "%1"=="" GOTO Ende IF "%2"=="" GOTO Ende ECHO. SETLOCAL SET Bereich=%1 SET Adresse=%2 SET Ende=254 IF NOT "%3"=="" SET Ende=%3 :Start ECHO ############################# ECHO %Bereich%.%Adresse% PING -n 2 %Bereich%.%Adresse% >temp.txt FIND /C /I "TTL" "%CD%\temp.txt" >NUL IF %ERRORLEVEL%==1 ECHO Frei IF %ERRORLEVEL%==0 ECHO ****** ACHTUNG BELEGT ******* NSLOOKUP %Bereich%.%Adresse% 2>temp.txt 1>NUL FIND /C /I "existent" "%CD%\temp.txt" >NUL IF %ERRORLEVEL%==1 ECHO ****** ACHTUNG DNS Eintrag ******* IF %ERRORLEVEL%==0 ECHO Kein DNS SET /A Adresse=Adresse+1 IF "%Adresse%"=="%Ende%" GOTO Ende Goto Start :Ende Aufruf ist z.B. "NetScan 10.0.0 1 15" Wenn du 10.0.0.1-10.0.0.15 testen willst. Die Batch kannst du dir ja einfach an deine Bedürfnisse anpassen. Bis denn, Voodoo