#!/bin/bash

while read p; do
    read -a arr <<< $p
    passwd -l ${arr[0]}
done <<< "$(passwd -Sa |egrep '^[^[:space:]]+[[:space:]]P[[:space:]]')"