1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/bin/Perl
use strict;
use warnings;
sub recupUsername
{
my $user=`echo %username%`;
chomp $user;
print($user);
print " : ";
}
sub Hostname
{
my $data=`echo %computername%`;
chomp $data;
print ($data);
print " ; ";
}
sub recuperationIP
{
my @ip=`ipconfig`;
chomp @ip;
@ip = grep (/IPv4/,@ip);
foreach(@ip)
{
s/.*IPv4.*: (\d+\.\d+\.\d+\.\d+).*/$1/;
print;
}
sub recuperationMac
{
my @mac=`ipconfig/all`;
@mac = grep (/physique/,@mac);
print "\n";
print @mac;
}
sub exportResultat
{
# $namefile=$computername."-".$lastdigit; #probleme de concaténation
# open(inventory,">> $namefile.csv");
#open(inventory,">> toto.csv");
# print inventory $computername.";".$ip.";".$username;
# close inventory;
}
sub main
{
sub recupUsername();
sub hostname();
sub recuperationIP();
sub recuperationMac();
sub exportResultat();
}
main(); |
