Bonjour,

Je recherche une API ou une fonction WinDev permettant de retrouver le numero de serie d'une carte reseau.

Merci d'avance

Cette classe n'est pas de moi mais récupérée pendant mes longues heures de recherche .....

ATTENTION ==>> classe non testée migrée de 5.5 en 7.x

DESCRIPTION :
Cette Classe possede une methode lire_carte(Num_carte)
Lire carte donne tous les elements de la carte reseau : Adrs_mac, description, adresse Ip sous mask, Passerelle, serveur DHCP
Voici la declaration de la classe :

Carte_res est une Class

descript est une chaine
Mac_Adr est une chaine
DHCP est une chaine
IP_adr est une chaine
IP_mask est une chaine
Passerelle est une chaine
Serv_DHCP est une chaine

Fin
dans le fichier zip vous avez la classe.
ex d'appel :
macarte est un objet carte_res
macarte:lire_carte(0) // Rempli la structure

CLASSE PROPREMENT DITE :
Déclaration ==>>>>
Carte_res est une class
descript est une chaîne
Mac_Adr est une chaîne
DHCP est une chaîne
IP_adr est une chaîne
IP_mask est une chaîne
Passerelle est une chaîne
Serv_DHCP est une chaîne
FIN








Méthode de lire_carte ==>>>>
PROCEDURE Carte_res::Lire_carte(numecarte)

//Code WinDev 5.5 remplacé par la migration :
//numfic est un entier long
numfic est un entier
lignelue est une chaîne

Commande est une chaîne ASCIIZ sur 255

Commande = "ipconfig /all /batch "+fRepEnCours()+"\carte.txt"
AppelDLL32("kernel32","WinExec" , &Commande, 0)
Multitache(100)
numfic = fOuvre(fRepEnCours()+"\carte.txt",foLecture)
SI numfic <> -1
lignelue = fLitLigne(numfic)
TANTQUE lignelue <> EOT
SI Position(lignelue,numecarte+" - Carte") > 0
TANTQUE Position(lignelue,"Bail expirant",0) = 0 ET lignelue <> EOT
SI Position(lignelue,"Description",1) > 0
:descript=ExtraitChaîne(lignelue,2,":")
FIN
SI Position(lignelue,"Adresse physique",1) > 0
:Mac_Adr=ExtraitChaîne(lignelue,2,":")
FIN
SI Position(lignelue,"DHCP activ",1) > 0
:DHCP=ExtraitChaîne(lignelue,2,":")
FIN
SI Position(lignelue,"Adresse IP",1) > 0
:IP_adr=ExtraitChaîne(lignelue,2,":")
FIN
SI Position(lignelue,"Masque de sous-",1) > 0
:IP_Mask=ExtraitChaîne(lignelue,2,":")
FIN
SI Position(lignelue,"Passerelle par",1) > 0
:passerelle=ExtraitChaîne(lignelue,2,":")
FIN
SI Position(lignelue,"Serveur DHCP",1) > 0
:serv_DHCP=ExtraitChaîne(lignelue,2,":")
FIN
lignelue = fLitLigne(numfic)
FIN
FIN
lignelue = fLitLigne(numfic)
FIN
fFerme(numfic)
FIN
fSupprime(fRepEnCours()+"\carte.txt")

@+ et bon développement
Vianney

Bonjour,

Merci beaucoup, ca va me servir, je vais donc faire migrer sous windev 7.5 et l'utiliser.

Je mettrais a disposition le code des que je l'aurais fait.

Encore merci

a+++