write-ad-attribute.ps1

function Set-Attribute {
    param (
        [string]$Attribute,
        [string]$Value
    )

    $searcher = New-Object System.DirectoryServices.DirectorySearcher
    $searcher.Filter = "(name=$env:ComputerName)"

    $result = $searcher.FindOne()

    if (-not $result) {
        throw "Computer object not found: $env:ComputerName"
    }

    $entry = $result.GetDirectoryEntry()

    $entry.Put($Attribute, $Value)
    $entry.CommitChanges()

    Write-Host "Set $Attribute to '$Value' on $env:ComputerName"
}

Set-Attribute -Attribute "description" -Value "Test write from computer"