Discussion :

[Nickname]

Yop all
Alors enfait mon problème c'est pour mon projet a faire en developpement.Je n'ai aucune idée de projet.
Je voulai faire un script avec module samba pour creer des users, partages automatiquement mais bon webmin le fait par exemple. Donc pkoi recreer la roue loool.
Sinon je ne vois pas trop car il faut que ca ai rapport avec le travail d'administrateur réseau ( automatisation d'une tache ) .
Si des personnes ont des idées merci de m'en faire profités.
Et bonne année a tous =)

Edit : Petite idée loool
Un script qui parcours mon réseau local et qui permet de me faire un statistique des quotas des disques utilisés ( utilisé - réstant ) de toutes les machines. Mais est ce possible pour des clients windows ? =) merci a tous

[Hide]

J'avais présenté sa en projet l'année dernière :

Paramètrage Firewall sous Linux en Architecture client-serveur via Interface graphique
(regle de parefeu,NAT,PAT)

[Invité]

Oui c'est possible pour des clients windows. J'en ai fait un que tu trouveras ici
Le script s'appelle getfreediskspace.pl.
Dans un fichier texte, tu y inscris en première ligne l'adresse de ta passerelle SMTP pour l'envoi du rapport par mail, puis sur chaque ligne suivante le nom ou IP des machines à interroger.

[Nickname]

merci a vous deux pour l'aide =)
Hide ton pti peut etre sympa en réseaux =)
kuzco excellent ton script beau boulot.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
C:\Documents and Settings\blabla\Bureau>"C:\Documents and Settings\blabla\Bureau\getfreediskspace.pl" fic_param.txt
Can't call method "mail" on an undefined value at C:\Documents and Settings\blabla\getfreediskspace.pl line 22, <FIC> line 3.

il trouve pas le $sender. J'ai essayer de lui mettre une adresse mail etc mais rien n'y fait.

Si tu peux m'aider merci bcp kuzco et encore chapeau bas =)

[Invité]

Assure toi d'avoir le module Net::SMTP d'installé.
Sinon, selon la passerelle SMTP, il faut que le sender soit une adresse mail valide par rapport au domaine dns.
Voir admin de messagerie.

[Nickname]

Enfait est ce que je peux mettre comme serveur smtp par exemple smtp.free.fr ?
Car je n'ai pas de serveur smtp propre.
Merci Kuzco pour ton aide

[Invité]

Le problème est qu'il faut être authentifié pour utiliser ce smtp. Ce n'est pas (je suppose) un relai ouvert.
J'ai fait ce script à l'origine pour un besoin sur réseau d'entreprise.

Regarde dans la doc Net::SMTP, il y a une méthode qui s'appelle auth :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

auth ( USERNAME, PASSWORD )

pour s'authentifier sur la passerelle, et modifie le script en conséquence.

[Nickname]

ca marche nikel ton script =)

Par contre niveau OLE j'y connais pas grand chose. Tu pourrai m'eclaircir un ptit peur sur ce passage du script ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
	$Machine =~ s/^[\\\/]+//;
	my $WMIServices = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate,(security)}//$Machine" )
		|| die "Error $?\n";
	my $DriveCollection = $WMIServices->InstancesOf( "Win32_LogicalDisk" );
	$smtp->datasend("SERVEUR $Machine :\n\n");
		foreach my $Drive ( in( $DriveCollection ) ) {
			if ( FormatNumber( $Drive->{DriveType} ) eq "3" ) {
				$smtp->datasend("Lecteur $Drive->{Name}\n");
				$smtp->datasend("\tNom de volume: $Drive->{VolumeName}\n");
				$smtp->datasend("\tTaille       : ", FormatNumber( ($Drive->{Size})/(1024**2) ), " MB\n");
				$smtp->datasend("\tEspace libre : ", FormatNumber( ($Drive->{FreeSpace})/(1024**2) ), " MB\n");
				my $FreePercent = FormatNumber(($Drive->{FreeSpace} / $Drive->{Size}) * 100);
				$smtp->datasend("\t% libre      : ", int($FreePercent * 100)/100 , " %\n");
				$smtp->datasend("\t% utilise    : ", 100 - int($FreePercent * 100)/100 , " %\n\n\n");
			}
		}
	}

ca m'a l'air compliqué loool
Merci bcp

[Invité]

Une URL vaut mieux qu'un long discours : regarde ici.

[Nickname]

ca le fait !!! Grand merci a toi
J'essairai de mettre la source quand je le ferai en perl tk.
Mais c'est excelent =)
Bravo !!! et merci encore

[Invité]

Y'a pas d'quoi !

[Nickname]

Ah kuzco vais encore t'embeter
Enfait ca marche bien pour un poste, mais des que je test sur un réseau local, j'ai une erreur 0.
Y a un services spéciales a activer ? Le routeur besoin d'avoir un port spécifique ouvert ?
Merci bien =)

[Invité]

Après, c'est un problème système. Il faut :
1. Que WMI soit installé sur la machine interrogée
2. Que le compte qui exécute le script aie des droits admin sur la machine interrogée (peut-être power user suffit, j'ai pas testé)
3. Il n'y a pas de notion de port à ouvrir a priori.

[Nickname]

WMI logiquement doit etre installé, enfin sur xp il y est d'office.
J'ai tester en mode admin mais rien n'y fais.
n'y aurai t-il pas besoin d'une authentification pour se connecter sur le client en tant qu'admin dans le script ?
=)

[Invité]

Soit une machine A sur laquelle le script s'exécute.
Soit des machines B,C et D distantes interrogées par le script.

Le compte qui exécute le script sur la machine A doit avoir des droits administrateur sur les machines B,C et D.

[Nickname]

kuzco j'ai essayer de piger la partie que je ne comprenai pas et serieux, je comprend toujours pas mdr.
Si tu veux bien m'aider parce que c'est vrai que ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
	my $WMIServices = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate,(security)}//$Machine" ) || die "Error $?\n";
	my $DriveCollection = $WMIServices->InstancesOf( "Win32_LogicalDisk" );

Je sais pas trop comment ca fonctionne a aprt se servir de winmgmt
Le InstancesOf par exemple je ne sais pas a quoi ca sert. Pareil pour le impersonationLevel=impersonate...
désolé de t'embeter mais merci a toi pour ton aide

[Hide]

Bon..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $WMIServices = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate,(security)}//$Machine" ) || die "Error $?\n";

Connection au Windows Management Service sur l'ordinateur cible($Machine).Elle retourne la référence à un objet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $DriveCollection = $WMIServices->InstancesOf( "Win32_LogicalDisk" );

Renvoi toutes les instances gérée par la classe Win32_LogicalDisk

Pour mieux comprendre le systeme cherche du coté de l'utilisation de WMI