tell application (path to frontmost application as Unicode text)
  activate
  set x to 400
  set y to 400
  set width to 1024
  set height to 768
  set bounds of window 1 to {x, y, x + width, y + height}
end tell