#---------------------------------------------------------------------
# getUserData()
#
# A ProfileList subkey is created for every user who logs onto a Windows
# system.
#---------------------------------------------------------------------
sub getUserData {
    my %paths;
    my $dirpath;

    if ($self->{version} >= 6.0) {
        $dirpath = $self->{drive}."Users\\";
    }
    else {
        $dirpath = $self->{drive}."Documents and Settings\\";
    }

    my @profiles;
    opendir(DIR,$dirpath);
    @profiles = readdir(DIR);
    closedir(DIR);

    foreach my $p (@profiles) {
        next if ($p =~ m/\./);
        $paths{$p} = $dirpath.$p;
    }

    return %paths;