@echo off echo 域內未分組計算機監視 echo 如果找到計算機，將顯示找到的計算機列表，并通過PC喇叭提示。 echo. cd /d %~dp0 rem 設置NETBIOS域名 set domain=DOMAINNAME rem 設置域名 set DC=mydomain set DC1=com :loop set found=0 rem 搜素comouters for /f %%i in ('dsquery computer CN^=Computers^,DC^=%DC%^,DC^=%DC1%') do set found=1 rem 如果找到計算機，調用顯示模塊 if %found%==1 call :display ping -n 600 127.0.0.1 >NUL 2>&1 goto loop goto :eof :display echo %date% %time% found following computers: rem 讀取計算機AD路徑，并調用顯示信息模塊 for /f %%i in ('dsquery computer CN^=computers^,dc^=%DC%^,dc^=%DC1%') do call :info %%i goto :eof :info set dsname=%1 set dsname1=//%DC%.%DC1%/%dsname:"=% rem 獲取計算機名 for /f "tokens=2,3* delims=,=" %%i in ('echo %dsname%') do set name=%%i rem 顯示計算機權限，并顯示可以設置DNS信息的權限用戶（加域的人），dscals需要安裝Support Tools dsacls %dsname1% |find "%domain%" |find "DNS" >name.txt 2>&1 for /f "tokens=1,2,3*" %%i in (name.txt) do set user=%%j echo %name%,%user% rem 記錄信息 echo %name%,%user%>>"%date%.csv" rem beep報警，beep自己寫或到網上找 echo. Beep 1500 500 Beep 500 500 Beep 1500 500 Beep 500 500 Beep 1500 500 Beep 500 500 Beep 1500 500 Beep 500 500 goto :eof
