Back

Active Directory Computer Accounts

---

Author: Admin 03/27/2021
Language: VB Script
Tags:

---

Description:

Copy an Active Directory Computer Account , LDAP.

Article:

Copy an Active Directory Computer Account , LDAP.

' Copy an Active Directory Computer Account

Set objCompt = _
GetObject("LDAP://cn=Computers,dc=NA,dc=fabrikam,dc=com")
Set objComptCopy = objCompt.Create("computer", "cn=SEA-SQL-01")
objComptCopy.Put "sAMAccountName", "sea-sql-01"
objComptCopy.SetInfo

Set objComptTemplate = GetObject _
("LDAP://cn=SEA-PM-01,cn=Computers,dc=NA,dc=fabrikam,dc=com")
arrAttributes = Array("description", "location")

For Each strAttrib in arrAttributes
strValue = objComptTemplate.Get(strAttrib)
objComptCopy.Put strAttrib, strValue
Next

objComptCopy.SetInfo

---

Back