open(FILE,"ntuser -s cphtount001 show * |");
while(<FILE>)
{
	open(FILE1,"ntuser -s cphtount001 show $_|");
	while(<FILE1>)
	{
		$NAME=$_ if /NAME/;
		print "$NAME $_" if /permission to dial/;
	}
	close(FILE1);
}
close(FILE);