域帐户将计算机加入域登陆上限问题

问题：
关于域帐户将计算机加入域登陆上限问题
解决方法：
adsiedt.msc或者脚本
当您尝试从 Windows NT 4.0 Workstation 或 Windows NT 4.0 Server 计算机加入 Windows 2000 域，可能会出现下列错误讯息： 
The machine account for this computer either does not exist or is unavailable. (这部计算机的计算机帐户不存在或无法使用)。 
如果尝试加入工作站或服务器的计算机是执行 Windows 2000 Professional 或 Windows 2000 Server、Windows 2003 Server就会出现下列错误讯息： 
您的计算机无法加入域。因为您已经超过这个域所允许建立的计算机帐户上限。 请连络您的系统管理员，重设或提高这个限制。
注意：当您将 10 部工作站加入域时，才会出现这个错误讯息。

原因
在win2000和2003的版本中多了一个权限授予 Authenticated Users 群组。 启用此权限之后，已验证的使用者就可以略过访问控制列表 (ACL) 的检查，次数最多可达预先定义的最大数目。 为了避免发生滥用的情形，根据默认值，是 10 个。
适用操作系统：
• Microsoft Windows 2003 Server 
• Microsoft Windows 2000 Server 
• Microsoft Windows 2000 Advanced Server 
• Microsoft Windows 2000 Professional Edition 
• Microsoft Windows NT Workstation 4.0 Developer Edition 
• Microsoft Windows NT Server 4.0 Standard Edition 
解决方案
方法1
使用adsiedit.msc （此工具存在于windows安装光盘 Support\Tools 下的 support tools 中），打开domain节点，选择Dc=MCSE.ORG.CN右击属性，查找msDS-MachineAccountQuota双击在弹出的对话框中修改您所需的数量，点确定即可，默认为10。

 

方法2
使用脚本，将下面文档复制成.vbs文件即可使用
感谢Steven提供我们脚本。

'==========================================================================
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
' AUTHOR: Steven , Steven
' DATE  : 2007-9-16
' COMMENT:  [url]www.51cto.com[/url]
'==========================================================================
Option Explicit
On Error Resume Next
Dim RootDSE, sDomainDNS, oDomainDNS, sADPath, DcMaq
Set RootDSE = GetObject("LDAP://rootDSE")
sDomainDNS = RootDSE.Get("defaultNamingContext")
sADPath = "LDAP://" & sDomainDNS
Set oDomainDNS = GetObject(sADPath)
DcMaq = oDomainDNS.Get("ms-DS-MachineAccountQuota")
WScript.Echo "目前您允许建立的计算机帐户上限为: " &  DcMaq
DcMaq = InputBox("请输入新允许建立的计算机帐户数量: ", DcMaq)
If DcMaq <> ""  AND IsNumeric(DcMaq) Then
oDomainDNS.Put "ms-DS-MachineAccountQuota", Abs(CInt(DcMaq))
oDomainDNS.SetInfo
If Err.Number = 0 Then
  WScript.Echo "修改已完成！您目前允许建立的计算机帐户上限数量为: " & DcMaq
wscript.echo "更多资讯请访问  [url]www.51cto.com[/url]"
Else
  WScript.Echo "出问题啦: " & Err.Description
End If
End If

本文转自 nick_zp 51CTO博客，原文链接：http://blog.51cto.com/nickzp/110182，如需转载请自行联系原作者