On Error Resume Next

Set objComputer = GetObject _
    ("LDAP://CN=atl-dc-01,CN=Computers,DC=fabrikam,DC=com")

objProperty = objComputer.Get("Location")
If IsNull(objProperty) Then
    Wscript.Echo "The location has not been set."
Else
    Wscript.Echo "Location: " & objProperty
    objProperty = Null
End If

objProperty = objComputer.Get("Description")
If IsNull(objProperty) Then
    Wscript.Echo "The description has not been set."
Else
    Wscript.Echo "Description: " & objProperty
    objProperty = Null
End If
	 

        $ADProp = GetObject('LDAP://'+$RC[3])
        $ADdesc = $ADProp.get('description')
        If $Comment <> '' and $ADdesc <> $Comment
          $ADProp.put('description',$comment)
          $ADProp.setinfo
          $ADProp = ''
          $ADdesc = $Comment
        endif
        If $ADdesc <> '' and $Comment <> $ADdesc
          $adsComputer = GetObject('WinNT://' + $Comp + '/LanmanServer')
            $adsComputer.Description = $ADdesc
            $adsComputer.SetInfo
            $adsComputer = ''

Call 'TranslateName.udf'
$query = TranslateName(3,"",3,"@Domain\@WkSta$",1)
$ADprop = GetObject('LDAP://'+$query[0])
$ADdesc = $ADProp.get('description')
$ADprop = ''
? "AD description for '" + @WkSta + "' = " + $ADdesc