ACtive Directory Modify description

[hazed]

I am trying to add a description after I add a Computer to Active Directory.

I used the following code to query the Descriptions, but Now I need to Update them.

I tried adding $objectList.Update but that didn't work.

$computerName = "DP2CCB1"

$filterStr = "(&(objectclass=computer))"

$ado = ObjCreate("ADODB.Connection")

$ado.Provider = "ADSDSOObject"

$ado.Properties("User ID") = "xxxx"

$ado.Properties("Password") = "yyyyy"

$ado.Properties("Encrypt Password") = 1

$ado.Open ("ADS-Search" )

$adoCmd = ObjCreate("ADODB.Command")

$adoCmd.ActiveConnection = $ado

;$adoCmd.Properties("Page Size") = 99

;$adoCmd.Properties("Cache Results") = 1

;$adoCmd.CommandText = "<LDAP://" & $serverName & "/" & $baseStr & ">;" & $filterStr & ";ADsPath;subtree"

$adoCmd.CommandText = "<LDAP://Cn="&$computername&", OU=Laptops,DC=xxxx,DC=Com>;" & $filterStr & ";ADsPath;subtree"

$objectList = $adoCmd.Execute

While Not $objectList.EOF()

$user = ObjGet($objectList.Fields("ADsPath").value)

ConsoleWrite ($user.Name &" "&$user.description& @CRLF)

$objectList.MoveNext

Wend

[Airwolf]

I am trying to add a description after I add a Computer to Active Directory.

I used the following code to query the Descriptions, but Now I need to Update them.

I tried adding $objectList.Update but that didn't work.

$computerName = "DP2CCB1"

$filterStr = "(&(objectclass=computer))"

$ado = ObjCreate("ADODB.Connection")

$ado.Provider = "ADSDSOObject"

$ado.Properties("User ID") = "xxxx"

$ado.Properties("Password") = "yyyyy"

$ado.Properties("Encrypt Password") = 1

$ado.Open ("ADS-Search" )

$adoCmd = ObjCreate("ADODB.Command")

$adoCmd.ActiveConnection = $ado

;$adoCmd.Properties("Page Size") = 99

;$adoCmd.Properties("Cache Results") = 1

;$adoCmd.CommandText = "<LDAP://" & $serverName & "/" & $baseStr & ">;" & $filterStr & ";ADsPath;subtree"

$adoCmd.CommandText = "<LDAP://Cn="&$computername&", OU=Laptops,DC=xxxx,DC=Com>;" & $filterStr & ";ADsPath;subtree"

$objectList = $adoCmd.Execute

While Not $objectList.EOF()

$user = ObjGet($objectList.Fields("ADsPath").value)

ConsoleWrite ($user.Name &" "&$user.description& @CRLF)

$objectList.MoveNext

Wend

$user.Description = "new description"
$user.SetInfo

[hazed]

$user.Description = "new description"
$user.SetInfo

This failed, I thought I did this earlier, but I tried again

C:\Documents and Settings\hazed\Desktop\machine descriptions.au3 (26) : ==> The requested action with this object has failed.:

$user.SetInfo

$user.SetInfo^ ERROR

[Airwolf]

This failed, I thought I did this earlier, but I tried again

C:\Documents and Settings\hazed\Desktop\machine descriptions.au3 (26) : ==> The requested action with this object has failed.:

$user.SetInfo

$user.SetInfo^ ERROR

Does the account you are running the program under have appropriate rights to modify the account description you are testing with?

[Jos]

try:

$User.Put ("Description", "Test User description")
$User.SetInfo

[hazed]

try:

$User.Put ("Description", "Test User description")
$User.SetInfo

This didn't work either, and I do have access. I am wondering if ADO can modify Active Directory. One website I found, mentioned something to that effect.

Which makes sense to me.

[Jackized]

#include <AD.au3>

_AD_Open()

_AD_ModifyAttribute("John Doe", "Description", "Lost in time")

_AD_Close()

[water]

A bit late - the thread is 3 1/2 years old - but glad you use my UDF