Select Code to Download

use strict;
use warnings;
...
  }
}
exit 0;

use strict;
use warnings;
...
  $user->SetInfo;
}
exit 0;

Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
...
objNewUser.GetInfo
objNewUser.Put "thumbnailPhoto", ReadBinaryFile("image.jpg")
objNewUser.SetInfo