CShell script - Delete accounts in linux from file

Next script delete account in linux from a file

#! /usr/bin/perl -w 

use strict;

my $i=""; 

my $FInput; 

my @arrContas=();

if(@ARGV != 1)
{

    print("Sintaxe: ./delete_Accounts.pl \n"); exit 1;

}

if(!open($FInput,"$ARGV[0]")) 
{

    print("Error reading the input file\n"); exit 1;

}

@arrContas=<$FInput>;

close($FInput);

for $i (@arrContas) 

{

     chomp($i); 

     `userdel --remove $i`; 

     print("Account $i sucessful deleted\n");

}

Read More... CShell script - Delete accounts in linux from file

Script to create users in linux

This script create accounts in linux.
the password is the same as the user.


#! /usr/bin/perl -w 
use strict;

my $i=””; 
my $FInput; 
my @arrContas=(); 
my $strEncPwd=""; 
my $strSalt="LX";

if(@ARGV != 1)
{

      print("Sintaxe: ./CreateAccounts.pl \n"); exit 1;

}

if(!open($FInput,"$ARGV[0]"))
{

     print("Error reading the input file\n"); exit 1;

}

@arrContas=<
$FInput>;

close($FInput);

for $i (@arrContas)
 {

      chomp($i); 
      $strEncPwd=crypt($i,$strSalt); 
      `useradd -p '$strEncPwd' -m $i`; 
      print("Account $i sucessful created\n");
}

Read More... Script to create users in linux

CShell list files and directories

Script cshell to list files and directories

echo "--------- Size Ordered Files ----------" echo " " ls -l | grep ^d > directorios.txt ls -l | grep -v ^d | sort +4n > ficheiros.txt set tmp=`cat ficheiros.txt | tr -s " " | cut -f5 -d" "` set s=0 foreach tx ($tmp) @ s = $s + $tx end cat ficheiros.txt echo " " echo "---------------- Files ----------------" echo " " echo "Tamanho Total de Ficheiros: $soma bytes" set dirs=`cat directorios.txt | tr -s " " | cut -f9 -d " " | sort` echo " " echo "-------------- Directories --------------" echo " " echo "[ $dirs ]" echo " " echo "----- Apagar Ficheiros Temporarios -----" rm ficheiros.txt rm directorios.txt

Read More... CShell list files and directories