Récupérer l'état des ports d'un switch

Bonjour,

j'aimerai créer un programme sous windows qui permet de récupérer l'état des ports d'un switch, et depuis quand cet état est inchangé.

J'ai un script en perl qui me permet de faire ça, mais j'aimerai créer une appli en .exe par qui serait lançable depuis windows et qui me ferait donc gagner du temps (pas besoin de me connecter sur le serveur linux et de passer par les lignes de commandes)

voilà le code en perl, donc si quelqu'un à une idée, pour me faire avancer ça serait cool.

Merci

use SNMP;
SNMP::initMib();

print "Tapez l'ip du switch : ";
$ip = <STDIN>;
print $ip;
print "Apres combien de jours d'inactivite voulez vous debrasser ? : ";
$temps = <STDIN>;
chomp $temps;
print "Combien de ports sur le switch ? : ";
$ports = <STDIN>;
print $ports;
print "Combien d'unites sur ce stack ? : ";
$unit = <STDIN>;

$sess = new SNMP::Session(DestHost => $ip, Community => public, Version => 1);
$result = $sess->get('.1.3.6.1.2.1.1.1.0');
print "Materiel de type $result \n";

for($i = 1; $i<=$unit; $i++) {
$sysuptime = $sess->get('.1.3.6.1.2.1.1.3.0');
$jours = $sysuptime / 24 / 360000;
print "Uptime : $jours jours\n";

for($j = 1; $j<$ports+1; $j++) {
$port = $i * 100 + $j;
$requete = ".1.3.6.1.2.1.2.2.1.8.$port";
$result = $sess->get($requete);
$requete = ".1.3.6.1.2.1.2.2.1.9.$port";
$time = $sess->get($requete);
if($result eq 2) {
print "port $i:$j off";
if($time eq 0 || $sysuptime -$time > $temps*24*360000) {
print " depuis plus de $temps jours ou avant le reboot du switch\n";
}
else {
print "\n";
}
}
else {
print "$i:$j on\n";
}
}
}