Wake on lan depuis un poste XP

Bonjour,

J'utilise une routine en PERL:

<
#!/usr/bin/perl

use Socket;

$usage = "wake_up.pl addr_ip|nom_ip|addr_broadcast addr_ethernetn";
# Adresse ethernet sous la forme aa:bb:cc:dd:ee:ff
# ou aa-bb-cc-dd-ee-ff
# ou aabbccddeeff
if($#ARGV != 1) { print "Attention aux 2 arguments !n$usage";exit;}
$addr_eth=$ARGV[1];
$addr_eth =~ s/://g ;
$addr_eth =~ s/-//g ;
$addr_eth =~ s/.//g ;
$iaddr = inet_aton($ARGV[0]) or die "no host: $ARGV[0]";
$paddr = sockaddr_in(2034, $iaddr);
$proto = getprotobyname("udp");
socket(sck, PF_INET, SOCK_DGRAM, $proto) || warn "internal_error
socket: $!";
$messg = pack("H12","ffffffffffff");

for($i=0;$i<16;$i++){
$messg .= pack("H12",$addr_eth);
}

send(sck,$messg,0,$paddr)== length($messg) or die "Impossible envoyer
!!";

print "Message de reveil envoyé n";

Salutations.

--
Jean-Marc
-----------------
Jean-Marc Salis
Ch. du Cèdre 3b
1030 Bussigny

Tel.: +41 21 702 23 46
E-Mail: jean-marc.salis@freesurf.ch

Bonjour.

J'utilise une routine en PERL:
[coupure]

Je vais voir ce que ca donne sous XP. Je n'ai aucune idée de ce qu'est
PERL, mais je vais bien voir ce que je trouve comme infos et ce que
j'arrive a faire avec ta routine. Merci.

Salutations amicales. Fred.