Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DÉMARRAGE D'UNE MACHINE À DISTANCE


Information sur la source

Description

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

  • *!* 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))
*!* 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


 

Commentaires et avis

signaler à un administrateur
Commentaire de lumineaud le 23/03/2006 17:08:52

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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Problème systray, l'icone ne s'affiche que sur ma machine de dev [ par FLYeRNeT ] Bonjour, J'ai d&#233;velopp&#233; une appli en FoxPro 9&nbsp; dans laquelle j'ai ajout&#233; un systray icon, le pb que je rencontre est que sur la m


Nos sponsors

Sondage...

CalendriCode

Novembre 2008
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Téléchargements



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,468 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.