Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #use strict;
- use Net::LDAP;
- #verbinding met AD
- my $ad = Net::LDAP->new("test.nid") or die "Could not connect!";
- $ad->bind("Administrator\@test.nid", password=>"Welkom01");
- #zoek optie's
- my $base = "OU=scripting,DC=test,DC=nid";
- my $filter = "memberof=CN=testing,OU=scripting,DC=test,DC=nid";
- my $attrs = "displayname";
- my $results = $ad->search(base=>$base,filter=>$filter,attrs=>$attrs);
- #my $count = $results->count;
- # Display entries
- my $entry;
- #for (my $i=0; $i<$test; $i++) {
- $entry = $results->entry;#($i);
- my $test;
- $test = $entry->get_value('displayname')."\n";
- print "$test";
- open FILE, ">>test.txt" or die "Kan niet wegschrijven";
- print FILE "$test";
- close FILE;
- @ascii_chars = unpack("C*", $test);
- $count = length ($test);
- #optellen
- my $mul;
- for (my $i=0; $i<$count; $i++) {
- $mul = "@ascii_chars" * $count;
- }
- #delen
- my $div;
- $div = $mul / $count;
- my $result;
- $result = print "$mul divided by $count is $div\n";
- $word = pack("C*", $div);
- print "$word\n";
- print @ascii_chars;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement