文件名:querycomputer.bat
功能:查找域内未分组的计算机,并显示计算机名和加域的用户
作用:可以实施监视计算机列表,以提醒进行计算机分组,也可审核计算机命名是否规范,确定责任人。
注意事项:批处理运行前,最好先将现有的域内computers容器内的计算机全部按OU分组,脚本运行后会罗列computers容器内的新计算机。
功能:查找域内未分组的计算机,并显示计算机名和加域的用户
作用:可以实施监视计算机列表,以提醒进行计算机分组,也可审核计算机命名是否规范,确定责任人。
注意事项:批处理运行前,最好先将现有的域内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