Question Modifier le commentaire serveur dans AD [Résolu]

Bonjour,

Je cherche à créer un script dans le but de modifier le commentaire du serveur dans active directory :

[code:1]param(
$computer = \"mon ordinateur\",
$comment = \"c'est un serveur virtuel\"
)

###########
###AD######
###########

#---Conenxion
Write-host AD $computer -backgroundcolor \"white\" -Foregroundcolor \"green\"
$requete = \"LDAP://MONDC/dc=mondomaine,dc=fr\"
$objDomain = New-Object System.DirectoryServices.DirectoryEntry($requete)
$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
$objSearcher.SearchRoot = $objDomain
$objSearcher.PageSize = 10000
$strFilter = \"(&(objectCategory=computer)(objectClass=computer))\"
$objSearcher.Filter = $strFilter
$objSearcher.SearchScope = \"Subtree\"
$colProplist = \"name\",\"description\"
foreach ($i in $colPropList)
{
$objSearcher.PropertiesToLoad.Add($i)|out-null
}
$colResults = $objSearcher.FindAll()
#---Recherche
foreach($srv in $colResults)
{
if ($srv.Properties.name -eq $computer)
{
Write-Host \"Ancien commentaire: \" $srv.Properties.description -Foregroundcolor \"green\"
#---Mise à jour
#$srv.Properties.put(\"description\",$comment)
#---Vérification
Write-Host \"Nouveau commentaire: \" $srv.Properties.description -Foregroundcolor \"green\"
}
}[/code:1]

Le problème est que je n'arrive pas à envoyer l'information à jour dans AD :
[code:1]$srv.Properties.put(\"description\",$comment)[/code:1]

Si quelqu'un à une solution
Merci.<br><br>Message édité par: matthias, à: 10/03/09 13:54

Merci pour ton aide, j'ai trouvé !

[code:1]
param(
$computer = \&quot;mon ordinateur\&quot;,
$comment = \&quot;c'est un serveur virtuel\&quot;
)

###########
###AD######
###########

#---Conenxion
Write-host AD $computer -backgroundcolor \&quot;white\&quot; -Foregroundcolor \&quot;green\&quot;
$requete = \&quot;LDAP://MONDC/dc=mondomaine,dc=fr\&quot;
$objDomain = New-Object System.DirectoryServices.DirectoryEntry($requete)
$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
$objSearcher.SearchRoot = $objDomain
$objSearcher.PageSize = 10000
$strFilter = \&quot;(&amp;(objectCategory=computer)(objectClass=computer))\&quot;
$objSearcher.Filter = $strFilter
$objSearcher.SearchScope = \&quot;Subtree\&quot;
$colProplist = \&quot;name\&quot;,\&quot;description\&quot;
foreach ($i in $colPropList)
{
$objSearcher.PropertiesToLoad.Add($i)|out-null
}
$colResults = $objSearcher.FindAll()
#---Recherche
foreach($srv in $colResults)
{
$resultcomputer = $srv.path
$objcomp = [ADSI]$resultcomputer
Write-Host \&quot;Ancien commentaire: \&quot; $srv.Properties.description -Foregroundcolor \&quot;green\&quot;
#---Mise à jour
$objcomp.put(\&quot;Description\&quot;,$comment)
$objcomp.setinfo()
#---Vérification
Write-Host \&quot;Nouveau commentaire: \&quot; $srv.Properties.description -Foregroundcolor \&quot;green\&quot;
}[/code:1]

<br><br>Message édité par: matthias, à: 10/03/09 13:52