[WD8] Liste des connexions Internet

Le 24 mai 2004 à 00:24, STASZEWSKI André nous disait :

Quelqu'un aurait-il une solution pour récupérer par programmation la liste
des connexions réseau à distance installées sur un poste ?

Voici comment je procède :

RasNumEntries est une structure
TailleParam est un entier
NomConnex est une chaîne ASCIIZ sur 260
FIN
TableConnexions est un tableau de 10 RasNumEntries
TailleBuffer est un entier
NbrConnexions est un entier
l est un entier

TableConnexions[1]:TailleParam = 264
TailleBuffer = TableConnexions[1]:TailleParam * Dimension(TableConnexions)
ListeAjoute(ListeConnex,"<Aucune>")

l = AppelDLL32("RASAPI32","RasEnumEntriesA",Null,Null,&TableConnexions,&TailleBuffer,&NbrConnexions)
SI l <> 0 ALORS
Erreur(l)
SINON
SI NbrConnexions>0 ALORS
POUR l = 1 A NbrConnexions
ListeAjoute(ListeConnex,TableConnexions[l]:NomConnex)
FIN
SINON
ListeSelectPlus(ListeConnex,1)
FIN
FIN

De même, comment peut-on savoir celle qui est définie par défaut ? (celle
qui est utilisée lorsqu'on lance IE)

Ça, je ne sais pas...

--
Cordialement

Bonjour,

Eric a exprimé avec précision :

RasNumEntries est une structure
TailleParam est un entier
NomConnex est une chaîne ASCIIZ sur 260
FIN
TableConnexions est un tableau de 10 RasNumEntries
TailleBuffer est un entier
NbrConnexions est un entier
l est un entier

TableConnexions[1]:TailleParam = 264
TailleBuffer = TableConnexions[1]:TailleParam * Dimension(TableConnexions)
ListeAjoute(ListeConnex,"<Aucune>")

l =
AppelDLL32("RASAPI32","RasEnumEntriesA",Null,Null,&TableConnexions,&TailleBuffer,&NbrConnexions)
SI l <> 0 ALORS
Erreur(l)
SINON
SI NbrConnexions>0 ALORS
POUR l = 1 A NbrConnexions
ListeAjoute(ListeConnex,TableConnexions[l]:NomConnex)
FIN

ListeSelectPlus(LIsteConnex,2) 8-o

SINON
ListeSelectPlus(ListeConnex,1)
FIN
FIN

Par défaut:

HK_L_MSoftwareMicrosoftRas AutodialDefault, "defaultInternet"

A+

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

farplus wrote:

Bonjour,

Eric a exprimé avec précision :

RasNumEntries est une structure
TailleParam est un entier
NomConnex est une chaîne ASCIIZ sur 260
FIN
TableConnexions est un tableau de 10 RasNumEntries
TailleBuffer est un entier
NbrConnexions est un entier
l est un entier

TableConnexions[1]:TailleParam = 264
TailleBuffer = TableConnexions[1]:TailleParam *
Dimension(TableConnexions) ListeAjoute(ListeConnex,"<Aucune>")

l >>

AppelDLL32("RASAPI32","RasEnumEntriesA",Null,Null,&TableConnexions,&TailleBu
ffer,&NbrConnexions)

SI l <> 0 ALORS
Erreur(l)
SINON
SI NbrConnexions>0 ALORS
POUR l = 1 A NbrConnexions
ListeAjoute(ListeConnex,TableConnexions[l]:NomConnex)
FIN

ListeSelectPlus(LIsteConnex,2) 8-o

SINON
ListeSelectPlus(ListeConnex,1)
FIN
FIN

Par défaut:

HK_L_MSoftwareMicrosoftRas AutodialDefault, "defaultInternet"

A+

Un grand merci à Eric et Farplus pour vos informations !
Cela me convient parfaitement. ;-)
--
Cordialement,
André STASZEWSKI
Nouvelle version 3.0 de Photo Visu sur www.PlaneteDev.fr.st