Démarrage d'une machine à distance

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 460 fois - Téléchargée 29 fois

Contenu du snippet

Cette fonction permet de démarrer une machine à distance (pour peu que le BIOS de cette machine soit configuré pour le Wake-On-LAN). Elle nécessite de connaître l'adresse MAC de la machine et l'adresse IP de Broadcast.

Source / Exemple :



  • !* Objet : Démarrage d'une machine à distance
  • !* Auteur : C.Chenavier
  • !* Version : 1.00 - 31/05/2005
  • !*
  • !* La trame Wake-up est un flux de données particulier formé
  • !* d'au moins 16 fois la répétition de l'adresse Ethernet de la
  • !* machine distante et précédé par un flux de synchronisation
  • !* de 6 octets de valeur 255.
  • !*
  • !* Si l'adresse Ethernet de l'ordinateur distant est 01:02:03:04:05:06 (6 octets),
  • !* alors le controleur LAN de cette machine est en attente de la séquence suivante :
  • !* FFFFFFFFFFFF010203040506010203040506010203040506010203040506
  • !* 010203040506010203040506010203040506010203040506010203040506
  • !* 010203040506010203040506010203040506010203040506010203040506
  • !* 010203040506010203040506
  • !*
  • !* Exemple d'utilisation :
  • !*
  • !* M.lOK = Wakeup("000b6ab505a6","192.168.192.255")
FUNCTION WakeUp LPARAMETERS cMacAddress, cIP, nPort LOCAL I, lOK, cMagic, cBuff, nSocketHandle, cPort #DEFINE AF_INET 2 #DEFINE SOCK_DGRAM 2 #DEFINE IPPROTO_UDP 17 #DEFINE SOCKET_ERROR -1 #DEFINE SOL_SOCKET 0xFFFF #DEFINE SO_BROADCAST 0x20 M.cMacAddress = CHRTRAN(M.cMacAddress, ":- ", '') M.cMagic = REPLICATE("FF",6)+REPLICATE(M.cMacAddress,16) M.cBuff = '' FOR I = 1 TO LEN(M.cMagic) STEP 2 M.cBuff = M.cBuff + CHR(HexaToDeci(SUBSTR(M.cMagic, I, 2))) ENDFOR DECLARE INTEGER WSAStartup IN WS2_32.DLL ; INTEGER wVersionRequested, STRING lpWSAData DECLARE INTEGER socket IN WS2_32.DLL ; INTEGER af, INTEGER type, INTEGER protocol DECLARE INTEGER htons IN WS2_32.DLL ; INTEGER hostshort DECLARE INTEGER inet_addr IN WS2_32.DLL ; STRING cp DECLARE INTEGER setsockopt IN WS2_32.DLL ; INTEGER s, INTEGER level, INTEGER optname, STRING @ optval, INTEGER optlen DECLARE INTEGER sendto IN WS2_32.DLL; INTEGER s, STRING @ buf, INTEGER buflen, INTEGER flags, STRING @ sockaddr, INTEGER addrlen DECLARE INTEGER closesocket IN WS2_32.DLL ; INTEGER s DECLARE INTEGER WSACleanup IN WS2_32.DLL IF WSAStartup(0x202, REPLICATE(CHR(0),512)) = 0 && initialisation Winsock M.nSocketHandle = Socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP) && création du socket UDP IF M.nSocketHandle <> SOCKET_ERROR M.cPort = WordToStr(htons(IIF(EMPTY(M.nPort), 9, M.nPort))) M.cIP = dWordToStr(inet_addr(M.cIP)) M.cRemoteAddr = WordToStr(AF_INET) + M.cPort + M.cIP + REPLICATE(CHR(0),8) M.cOptval = REPLICATE(CHR(255),4) M.nResult = setsockopt(M.nSocketHandle, SOL_SOCKET, SO_BROADCAST, @cOptval, LEN(M.cOptval)) && mode broadcast IF M.nResult <> SOCKET_ERROR M.nResult = sendto(M.nSocketHandle, @cBuff, LEN(M.cBuff), 0, @cRemoteAddr, LEN(cRemoteAddr)) && envoi de la trame M.lOK = (M.nResult <> SOCKET_ERROR) ENDIF =closesocket(M.nSocketHandle) ENDIF WSACleanup() ENDIF CLEAR DLLS WSAStartup, socket, htons, inet_addr ; setsockopt, sendto, closesocket, WSACleanup RETURN M.lOK
  • ---------------------------------------------------------------- dWordToStr
FUNCTION dWordToStr LPARAMETER nValeur LOCAL nB0, nB1, nB2, nB3 IF M.nValeur < 0 M.nValeur = 2^32 + M.nValeur ENDIF M.nB3 = BITRSHIFT(M.nValeur, 24) M.nB2 = BITRSHIFT(M.nValeur - M.nB3*2^24, 16) M.nB1 = BITRSHIFT(M.nValeur - M.nB3*2^24 - M.nB2*2^16, 8) M.nB0 = MOD(M.nValeur, 2^8) RETURN CHR(M.nB0)+CHR(M.nB1)+CHR(M.nB2)+CHR(M.nB3)
  • ---------------------------------------------------------------- WordToStr
FUNCTION WordToStr LPARAMETER nValeur RETURN CHR(MOD(nValeur,256)) + CHR(INT(nValeur/256))

Conclusion :


La trame de démarrage est un flux de données particulier formé d'au moins 16 fois la répétition de l'adresse Ethernet de la machine distante et précédé par un flux de synchronisation de 6 octets de valeur 255.
Si l'adresse Ethernet de l'ordinateur distant est 01:02:03:04:05:06 (6 octets), alors le controleur LAN de cette machine est en attente de la séquence suivante :
FFFFFFFFFFFF010203040506010203040506010203040506010203040506
010203040506010203040506010203040506010203040506010203040506
010203040506010203040506010203040506010203040506010203040506
010203040506010203040506

A voir également

Ajouter un commentaire

Commentaire

lumineaud
Messages postés
2
Date d'inscription
jeudi 23 mars 2006
Statut
Membre
Dernière intervention
23 mars 2006

Bonjour,

Je viens de calquer votre code pour démarrer un pc
MAIS il manque certaine fonction lors de l'execution :
- HexaToDeci

je suppose que d'autre ne seront pas connues non plus , pourriez vous me donner tout le code SVP.

Bye

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.