[批處理應用]新入域的電腦枚舉，顯示加域人員

檔案名稱：querycomputer.bat
功能：尋找域內未分組的電腦，並顯示電腦名稱和加域的使用者
作用：可以實施監視電腦列表，以提醒進行電腦分組，也可審核電腦命名是否規範，確定責任人。
注意事項：批處理運行前，最好先將現有的域內computers容器內的電腦全部按OU分組，指令碼運行後會羅列computers容器內的新電腦。

1. @echo off
3. echo 域內未分組電腦監視
5. echo 如果找到電腦，將顯示找到的電腦列表，並通過PC喇叭提示。
7. echo.
9. cd /d %~dp0 
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
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:
63. rem 讀取電腦AD路徑，並調用顯示資訊模組
65. for /f %%i in ('dsquery computer CN^=computers^,dc^=%DC%^,dc^=%DC1%') do call :info %%i
67. goto :eof
74. :info
76. set dsname=%1
78. set dsname1=//%DC%.%DC1%/%dsname:"=%
83. rem 擷取電腦名稱
85. for /f "tokens=2,3* delims=,=" %%i in ('echo %dsname%') do set name=%%i
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"
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