use strict;
use warnings;
use File::Slurp;
use Win32::OLE qw[in];

my $adspath = shift || die "Provide an adspath already\n";

my $filename = shift || die "No filename provided\n";
my $content = read_file( $filename, binmode => ':raw' );

{
  warn $adspath, "\n";
  my $user = Win32::OLE->GetObject("LDAP://$adspath");
  die "Oh dear\n" unless $user;
  $user->GetInfo;
  $user->Put('thumbnailPhoto',$content);
  $user->SetInfo;
}
exit 0;