Rechercher : dans
Par :

Perl :lister les comptes d'une machine

Dernière réponse le 6 jan 2008 à 12:42:06 tchabat, le 4 jan 2008 à 15:56:40 
 Signaler ce message aux modérateurs

Bonjour, je débute avec perl et je veux concevoir un script qui pourra me lister le nbre de compte sur une machine ainsi que leur droit (admin, public ou invité) merci d'avance

Configuration: Linux Red Hat
Firefox 1.5.0.3

Meilleures réponses pour « perl :lister les comptes d'une machine » dans :
Commandes IP relatives aux réseaux sous Windows VoirIl est parfois très utile de connaître les commandes IP, pour analyser voire configurer ses réseaux TCP/IP. Voici la liste de ces commandes à utiliser dans une fenêtre DOS...
Supprimer un compte MSN Messenger VoirVous voulez trier ou ôter des pseudos qui apparaissent dans la liste déroulante au démarrage de MSN Messenger ? Il existe plusieurs façons de procéder : Suppression d'un compte avec MSN version 7 Suppression d'un compte avec Windows Live...
Liste des ports ouverts VoirQue vous soyez sous Windows ou Linux/Unix, la commande suivante (en console) permet d'afficher la liste des ports ouverts sur votre ordinateur :netstat -a Pour des outils graphiques plus poussés, voir Quels sont les ports ouverts sur ma machine
Linux - Gestion des utilisateurs VoirPremier pas de l'administrateur Lorsque diverses personnes ont accès à un système, il est nécessaire que l'administrateur système gère les utilisateurs. Pour ceci, les commandes usuelles et les fichiers à configurer doivent être connus. Les...
Liste des instructions en assembleur VoirTableau des principales instructions en assembleur Voici une liste (non exhaustive) des principales instructions en assembleur des processeurs 80x86, ainsi que du code machine qui leur est associé et de leur taille en mémoire. Les valeurs val et...
Listes et énumérations en HTML VoirLes listes Une liste est un paragraphe structuré contenant une suite d'articles. Le langage HTML définit trois types de listes : La liste ordonnée ; La liste non ordonnée ; La liste de définition. Liste ordonnée Conteneur Type de...

1

lami20j, le 4 jan 2008 à 16:40:24

Salut,

leur droit sur quoi?

regarde ici des fonctions qui peuvent t'aider http://perl.enstimac.fr/DocFr/perlfunc.html#item_getgrnam
sinon tu perux parser manuellement le fichier /etc/passwd
lami20j

Répondre à lami20j

2

tchabat, le 4 jan 2008 à 17:10:24

Je vais essayer le lien je parle des droit administrateur par exemple ou soit des comptes limités si tu vois ce que je veux dire

Répondre à tchabat

3

lami20j, le 4 jan 2008 à 17:23:29

Pour savoir si un utilisateur a des droits administrateur, il faut tester l'UID d'utilisateur
Si l'UID est zéro alors l'utilisateur n'as pas des droits administrateur, il est carrément l'administrateur

Si tu parles des droits d'endossement (SetUID et SetGID) alors la question est toujours la même : droits sur quoi??

lami20j

Répondre à lami20j

4

tchabat, le 5 jan 2008 à 07:38:21

Au fait le script consiste a faire ressortir tous les comptes ou groupes de comptes crées dans une machine avec des droits SUR LA MACHINE definis pour chaque compte . qu'est ce que les droits d'endossements? comment teste t-on les UID?

Répondre à tchabat

5

lami20j, le 5 jan 2008 à 10:55:12

Voici une commande (que tu peux l'écrire dans un script)

perl -e 'while (($user,undef,$uid) = getpwent()){print "user=$user UID=$uid\n"}'


Les comptes créer sur une machine n'ont des droits que sur leur répertoire personnel. Pas besoin de chercher loin.
Ensuite il faut voir la variable PATH qui contient les répertoires avec des commandes que l'utilisateurs peux exécuter.

Regarde ici pour les droits d'endossement

lami20j

Répondre à lami20j

6

tchabat, le 5 jan 2008 à 12:24:12

C'est vrai que les comptes dans la machine a son repertoire perso et tu m'aides bcp depuis 3 jours je me bat pour comprendre perl j'ai telecharger MIME::lite mais depuis je n'arrive pas à l'installer (je cherche la doc sur le net en ce moment) car linux n'est pas mon environnement habituel mais je dois faire tourner l(appli sur linux merci pour tes differents intervention

Répondre à tchabat

7

lami20j, le 5 jan 2008 à 13:25:09

Salut,

Pour installer MIME::LIte il suffit de faire ça (xxx c'est pour la version - à toi de mettre le nom complet de l'archive)

en utilisateur

 $ tar xzvf MIME-Lite-xxx.tar.gz
 $ cd MIME-Lite-xxx
 $ perl Makefile.PL
 $ make
 $ make test
et en root (toujours dans le même répertoire)
 # make install
Il est possible que d'autres modules doivent être installés pour pouvoir installer MIME::Lite, à toi de voir.
lami20j

Répondre à lami20j

8

 tchabat, le 6 jan 2008 à 12:42:06

J'ai pu installer MIME:Lite et j'ai fait le test avec ce programme pris sur le net

# /usr/bin/ perl
use strict;
use MIME:Lite;
my $msg = new MIME::Lite
From =>'me@myhost.com',
To =>'you@yourhost.com',
Cc =>'some@other.com, some@more.com',
Subject =>'A simple text message',
Type =>'TEXT',
Data =>"Efficace non ?";
$msg -> send;
en changeant la chaine de caractere de From et To par ma boite email et supprimer la chaine de caractere de Cc =>'', comment faire dois-je utiliser un autre module?

Répondre à tchabat