新入域的計算機枚舉，顯示加域人員的批處理
2020-06-09 13:52:38
供稿：網友
文件名：querycomputer.bat
功能：查找域內未分組的計算機，并顯示計算機名和加域的用戶
作用：可以實施監視計算機列表，以提醒進行計算機分組，也可審核計算機命名是否規范，確定責任人。
注意事項：批處理運行前，最好先將現有的域內computers容器內的計算機全部按OU分組，腳本運行后會羅列computers容器內的新計算機。
代碼如下:
@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
