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

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

1. @echo off
3. echo 域内未分组计算机监视
5. echo 如果找到计算机，将显示找到的计算机列表，并通过PC喇叭提示。
7. echo.
9. cd /d %~dp0 
13. 
    
14. rem 设置NETBIOS域名
16. set domain=DOMAINNAME
20. rem 设置域名
    
22. set DC=mydomain
24. set DC1=com
25. 
    
29. :loop
31. set found=0
32. 
    
36. rem 搜素comouters
38. for /f %%i in ('dsquery computer CN^=Computers^,DC^=%DC%^,DC^=%DC1%') do set found=1
42. 
    
43. rem 如果找到计算机，调用显示模块
45. if %found%==1 call :display
47. ping -n 600 127.0.0.1 >NUL 2>&1
49. goto loop
51. goto :eof
52. 
    
56. :display
58. echo %date% %time% found following computers:
62. 
    
63. rem 读取计算机AD路径，并调用显示信息模块
65. for /f %%i in ('dsquery computer CN^=computers^,dc^=%DC%^,dc^=%DC1%') do call :info %%i
67. goto :eof
73. 
    
74. :info
76. set dsname=%1
78. set dsname1=//%DC%.%DC1%/%dsname:"=%
82. 
    
83. rem 获取计算机名
85. for /f "tokens=2,3* delims=,=" %%i in ('echo %dsname%') do set name=%%i
89. 
    
90. rem 显示计算机权限，并显示可以设置DNS信息的权限用户（加域的人），dscals需要安装Support Tools
    
92. dsacls %dsname1% |find "%domain%" |find "DNS" >name.txt 2>&1
94. for /f "tokens=1,2,3*" %%i in (name.txt) do set user=%%j
96. echo %name%,%user%
100. rem 记录信息
102. echo %name%,%user%>>"%date%.csv"
108. 
     
109. rem beep报警，beep自己写或到网上找
     
110. echo.
112. Beep 1500 500
114. Beep 500 500
116. Beep 1500 500
118. Beep 500 500
120. Beep 1500 500
122. Beep 500 500
124. Beep 1500 500
126. Beep 500 500
128. goto :eof