新入域的计算机枚举，显示加域人员的批处理

169 阅读 0 评论 112 点赞

我是靠谱客的博主野性红牛，最近开发中收集的这篇文章主要介绍新入域的计算机枚举，显示加域人员的批处理，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

文件名：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 