小章的专栏

如需转载，请注名出处，谢谢

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]scz123的公告

<h3 class="listtitle">搜索小章的专栏</h3>  <script type="text/javascript"> function googlesearch () { var wq=document.getElementsByName("wq")[0].value; var link="http://www.google.com/search?domains=blog.csdn.net/scz123&sitesearch=blog.csdn.net/scz123&q="+wq; window.open(link); } </script> <input type="text" size=15 name="wq"/><input type="submit" onclick="javascript:googlesearch()" value="OK" />  <p></p> <h3 class="listtitle">天气预报</h3> <iframe src="http://weather.265.com/weather.htm" width="168" height="50" frameborder="0" marginwidth="0" marginheight="0" scrolling="no" name="265"></iframe> <p></p> <h3 class="listtitle">我的相册</h3> <a href="http://terryscz.photo.163.com" target=_blank >我的163相册</a> <p></p> <h3 class="listtitle">流量统计</h3> <script type="text/javascript" src="http://js.tongji.yahoo.com.cn/0/27/355/ystat.js"></script><noscript><a href="http://js.tongji.yahoo.com.cn"><img src=http://js.tongji.yahoo.com.cn/0/27/355/ystat.gif></a></noscript> <h3 class="listtitle">我的文载收藏 <a href="http://wz.csdn.net/rss/scz123/" target="_blank"><img src="http://wz.csdn.net/css/rss.gif" style="border-width: 0px;"></a></h3> <script type="text/javascript" src="http://wz.csdn.net/jsDays.aspx?name=scz123&num=10&group=1"></script> <p></p>

[编辑]文章分类

[编辑]CSDN收藏

How to uninstall component service(DCOM service)

[编辑]网友BLOG

[编辑]我的链接

存档

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

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