use Win32::OLE;
use Win32::OLE 'in';
use Win32::OLE::Enum;
use Win32::NetAdmin;




@empty = ();

($sec,$min,$hour,$day,$mon,$yr,$wday,$yday,$dntcare)=localtime(time);      
      $yr-=100;
      $yr="$yr";
      $yr = (length($yr)<2) ? "0$yr" : $yr;
      $mon = (++$mon < 10) ? "0$mon" : "$mon";
      $day = ($day < 10) ? "0$day" : "$day";
      
$date = "unlock$day-$mon-$yr.txt";

open (UNLOCK , ">>$date") || die "Can\\'t Create file";



while ( $choice != 7 ) {

system(cls);

print "==========================================================================\n";
print "This Program Will Unlock Users on the Network. Enter the \n";
print "Number for the location and press the Enter Key\n";
print "Created by: Steve Sherman\n";
print "==========================================================================\n";

print "\n";
print "\n";
print "1) Main\n";
print "2) Regional\n";
print "3) Cuba\n";
print "4) Union\n";
print "5) Motor\n";
print "6) Labadie\n";
print "7) Exit\n\n";

$choice = <stdin>;
chomp($choice);

sub Localuser {

	

	if (Win32::NetAdmin::LoggedOnUsers($server,\%userRef)) {  
		

print UNLOCK "User: " . $userRef{1} . " Unlocked the Following user\n";

@local = split(/;/,$userRef{1});

my $accesslocal = Win32::OLE->GetObject("LDAP://$local[0]");
	
	foreach $group (in $accesslocal->{memberof}) {
		
		push(@groups, $group);
		print "$group\n";

	}


  
}  
	
	}

sub Lookup {

my $adsuser = Win32::OLE->GetObject("LDAP://bos-ad01/ou=$location,dc=asdf,dc=com") || die ("Can't find user: 

".Win32::OLE->LastError()."\n");
$strDomain = "adsg";
$num = 1;
			foreach $strUsername (in $adsuser){

			
				my $objUser = Win32::OLE->GetObject("WinNT://$strDomain/$strUsername->

{sAMAccountName}");
				if ($objUser->{IsAccountLocked} == 1) {
					#$objUser->{IsAccountLocked} = 0;
					#$objUser->SetInfo;
  					  
					  print "$num) $strUsername->{sAMAccountName}\n";
					  push(@users, $strUsername->{sAMAccountName});
					  push(@DnUsers, $strUsername->{distinguishedName});
					  $num++;
				}
				
		       	
							
					
   				
					
			}#end foreach
			
			if (@users == @empty) {
				print "No Users to Unlock \n\n";
				
				}
}

sub unlock {

	if (@users == @empty) {
		
		next;
		
		}

	if ($choice == 0) {
	
		next;
		
		}
	
	

	$choice = $choice - 1;
	my $objUser = Win32::OLE->GetObject("LDAP://bos-ad01/$DnUsers[$choice]"); 
	print "$!\n";
	 				
	$objUser->{IsAccountLocked} = 0;
   	$objUser->SetInfo();

   	   	
  	 Localuser();
  	 print UNLOCK "$users[$choice]\n";
  	 print UNLOCK "$day-$mon-$yr\n\n";
  	 @users = ();
  	 @DnUsers = ();
  		 
  	
  	
 }
  						  						 
  						  						 
  						  									

 	
  					 	



	if ($choice == 1) {

		$location = "main";
		system(cls);
		print "==========================================================================\n";
		print "Select The Number that is associated with the user you wish to unlock\n";
		print "then press the Enter key.\n";
		print "************************ WARNING WARNING WARNING *************************\n"; 
		print "Please Only Unlock The user(s) that have requested to be unlocked\n";
		print "==========================================================================\n";
		Lookup();

		print "0 ) Exit\n\n";
		$choice = <stdin>;
	
		unlock();
	
	}

	if ($choice == 2) {

		$location = "Regional";
		system(cls);
		
		print "Select The User you wish to Unlock\n";
		print "To Exit Press 0\n";
		print "=====================================\n\n\n";
		Lookup();
		
		print "0 ) Exit\n\n";
		$choice = <stdin>;
	
		unlock();
	
	}

	if ($choice == 3) {

		$location = "Cuba";
		system(cls);
		
		print "Select The User you wish to Unlock\n";
		print "To Exit Press 0\n";
		print "=====================================\n\n\n";
		Lookup();
		print "0 ) Exit\n\n";
		$choice = <stdin>;
		if ($choice > 0) {
		
			unlock();
			}
	
	
	}

	if ($choice == 4) {

		$location = "Union";
		system(cls);
		
		print "Select The User you wish to Unlock\n";
		print "To Exit Press 0\n";
		print "=====================================\n\n\n";
		Lookup();
		
		print "0 ) Exit\n\n";
		$choice = <stdin>;
	
		if ($choice > 0) {
		
			unlock();
			}
	
	
	}

	if ($choice == 5) {

		$location = "Main";
		system(cls);
		
		print "Select The User you wish to Unlock\n";
		print "To Exit Press 0\n";
		print "=====================================\n\n\n";
		Lookup();
		
		print "0 ) Exit\n\n";
		$choice = <stdin>;
	
		if ($choice > 0) {
		
			unlock();
			}	
	
	}

	if ($choice == 6) {
	
		$location = "Labadie";
		system(cls);
		
		print "Select The User you wish to Unlock\n";
		print "To Exit Press 0\n";
		print "=====================================\n\n\n";
		Lookup();
		
		print "0 ) Exit\n\n";
		$choice = <stdin>;
	
		if ($choice > 0) {
		
			unlock();
			}	
	
	}

	
}