创建计算机帐号

 

描述

在 Active Directory 中创建和启用计算机帐号，管理员在将工作站添加到域中时必须使用该帐号。

脚本代码

strComputer = "atl-pro-001" 
Const ADS_UF_PASSWD_NOTREQD            = &h0020 
Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &h1000 
Set objRootDSE = GetObject("LDAP://rootDSE") 
Set objContainer = GetObject("LDAP://cn=Computers," & _ 
                             objRootDSE.Get("defaultNamingContext")) 
Set objComputer = objContainer.Create("Computer", "cn=" & strComputer) 
objComputer.Put "sAMAccountName", strComputer & "$" 
objComputer.Put "userAccountControl", _ 
                ADS_UF_PASSWD_NOTREQD Or ADS_UF_WORKSTATION_TRUST_ACCOUNT 
objComputer.SetInfo