use strict;
use Win32;
use Win32::API;

#  public enum CRED_TYPE : int 
#    { 
#        GENERIC = 1,
#        DOMAIN_PASSWORD = 2,
#        DOMAIN_CERTIFICATE = 3,
#        DOMAIN_VISIBLE_PASSWORD = 4,
#        MAXIMUM = 5
#    }


my $CredRead = new Win32::API('advapi32.dll', 'CredRead', [qw(P P)],
   'N') or die "Find CredRead: $^E";
   
my $strTarget = "testUser";
#I created user testUser via Control Panel > Credential Manager

$CredRead->Call($strTarget,1) or die "CredRead->Call: $^E";