[UDF] Configuration réseau

[jguinch]

Bonjour.
Je vous propose cet UDF qui permet de configurer la connexion réseau, obtenir des informations sur votre carte ou connexion.
Les fonctions utilisent WMI, ce qui évite de passer par des commandes externes telles que netsh.


Pour ceux qui utilisent une ancienne version de cet UDF, la fonction _InitWmi() a été supprimée. Il suffit donc de supprimer cette ligne dans votre script


Liste des fonctions disponibles :

► Afficher le texteFonctions

_DisableNetAdapter ; Désactive la carte réseau spécifiée
_EnableDHCP ; Configure la carte réseau spécifiée en DHCP (Adresse IP)
_EnableDHCP_DNS ; Configure la carte réseau spécifiée en DHCP (DNS)
_EnableNetAdapter ; Active la carte réseau spécifiée
_EnableStatic ; Configure l'adresse(s) IP statique(s) et masque(s) de sous-réseau de la carte réseau spécifiée
_FlushDNS ; Vide le cache DNS
_GetNetworkAdapterFromID ; Récupére le nom de la carte réseau (physique) en fonction du nom de la connexion (Connexion au réseau local par ex)
_GetNetworkAdapterInfos ; Récupère des informations sur la/les carte(s) réseau
_GetNetworkAdapterList ; Liste les cartes/connexions réseau
_GetNetworkGUI ; Récupère le GUID de la carte spécifiée (tel qu'il est défini dans la base de registre)
_GetNetworkIDFromAdapter ; Récupérer le nom de la connexion réseau (Connexion au réseau local) en fonction du nom de la carte (physique)
_IsWirelessAdapter ; Permet de savoir si la carte spécifiée est une carte wifi ou non
_ReleaseDHCPLease ; Libère la configuration DHCP actuelle
_RenewDHCPLease ; Renouvelle la configuration DHCP
_SetDNSDomain ; Configure le suffixe DNS pour la carte spécifiée
_SetDNSServerSearchOrder ; Configurer les adresses IP DNS et leur ordre pour la carte spécifiée
_SetDNSSuffixSearchOrder ; Configure l'ordre de recherche des domaines DNS pour la carte spécifiée
_SetDynamicDNSRegistration ; Active ou désactive les options d'enregistrement DNS pour la carte spécifiée
_SetGateways ; Configure la/les passerelle(s) pour la carte spécifiée
_SetWINSServer ; Configure le(s) serveur(s) WINS pour la carte spécifiée

Quelques exemples :

► Afficher le texteexemples

Code : Tout sélectionner

#Include <array.au3> ; uniquement pour _ArrayDisplay()
#Include "network.au3"

; Liste des connexions/cartes disponibles
$infos = _GetNetworkAdapterList()
_ArrayDisplay($infos)

; Savoir si une carte est une carte wifi
If _IsWirelessAdapter("Intel(R) Centrino(R) Advanced-N 6205") Then MsgBox(0, "", "Cette carte est une carte wifi")

; Informations sur la carte dont la connexion réseau se nomme "Connexion au réseau local"
$infos = _GetNetworkAdapterInfos("Connexion au réseau local")
_ArrayDisplay($infos)

; Désactivation de la connexion correspondant à la carte réseau "Broadcom NetLink (TM) Gigabit Ethernet"
_DisableNetAdapter("Broadcom NetLink (TM) Gigabit Ethernet")

; Activation de la connexion correspondant à la carte réseau "Connexion au réseau local"
_EnableNetAdapter("Connexion au réseau local")

; Configurer la connexion en DHCP
_EnableDHCP("Broadcom NetLink (TM) Gigabit Ethernet")

; Configurer l'adresse IP manuellement
_EnableStatic("Broadcom NetLink (TM) Gigabit Ethernet", "192.168.10.11", "255.255.255.0")

; Configurer la passerelle par défaut
_SetGateways("Broadcom NetLink (TM) Gigabit Ethernet", "192.168.10.1")

 ; Configuration des serveurs DNS
Local $DNS_SERVERS[4] = [ "192.168.100.1", "192.168.100.2", "192.168.100.3", "192.168.100.4" ]
_SetDNSServerSearchOrder("Connexion au réseau local", $DNS_SERVERS)

; Configurer le domaine DNS
_SetDNSDomain ("Connexion au réseau local", "mondomain.loc")

; Configurer les suffixes DNS :
Local $DNS_SUFFIXES[2] = [ "mondomain.loc", "mydomain.priv" ]
_SetDNSSuffixSearchOrder("Connexion au réseau local", $DNS_SUFFIXES)

; Vider le cache DNS
FlushDNS()

; Configurer les serveurs WINS
_SetWINSServer("Connexion au réseau local", "192.168.100.251", "192.168.100.252")

; Cocher les options "Enregistrer les adresses de cette connexion dans le système DNS et 
; Enregistrer le suffixe DNS de cette connexion pour l'enregistrement DNS
_SetDynamicDNSRegistration("Connexion au réseau local", True, True)

; Libère le bail DHCP
_ReleaseDHCPLease()

; Renouvelle le bail DHCP
_RenewDHCPLease()

Merci de me faire part de tout dysfonctionnement.

[GhostLine]

Bon boulot ! Je testerai ça pour mon prochain client : c'est quand même plus clean que de faire des appels netsh en ligne de commande

[jguinch]

Modifications :
- Ajout de la fonction _IsWirelessAdapter qui permet de savoir si une carte est une carte wifi (merci le forum US)
- Modification dans la fonction _GetNetworkAdapterList : filtre les cartes avec le champs 'AdapterType' au lieu du champ IPEnable

[ricky]

Hello,

merci pour ce script, je me réjouis de l'utiliser, mais pour l'instant il ne marche pas!

En mettant la ligne ci-dessous, tu verras les mêmes erreurs que moi :

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

puis ensuite tu fais CTRL + F5

Il manque les includes, des variables sont déclarées, mais non-utilisées et là ou elles devraient exister elles sont pas là (par exemple ireturn),...

[jguinch]

OK
Merci pour les infos.
J'ai effectué quelques corrections...

[jguinch]

Petite mise à jour de l'UDF :
- Correction de bugs relatifs à Windows XP
- Utilisation de la base de registre au lieu de WMI pour certaines requêtes (plus rapide)

[jguinch]

Nouvelle petite modification (encore !) :
- EnableStatic() permet d'affecter plusieurs adresses IP/masques à la carte réseau

[GhostLine]

J'ai un message d'erreur à la compilation dont je ne comprends pas le sens :

C:\Program Files (x86)\AutoIt3\Include\network.au3(1050,80) : ERROR: _Array2String() previously called with expression on Const ByRef param(s).
Func _Array2String(Const ByRef $avArray, $sDelim = "|", $iStart = 0, $iEnd = 0)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

J'ai mal fait quoi ?

Pour mémoire, mon petit bout de code :

► Afficher le texte

Code : Tout sélectionner

Func change_ip()
    _InitWmi()
    $Cx = "Connexion au réseau local"
    $adresse = IniRead("c:\temp\integration.ini", "GENERAL", "ipcaisse", "")
    $passerelle = IniRead("c:\temp\integration.ini", "GENERAL", "passcaisse", "")
    $masque = "255.255.255.0"
    $dns_prefere = "10.0.10.80"
    $dns_auxiliaire = "10.204.0.152"
    Local $DNS_SERVERS[2] = [$dns_prefere,$dns_auxiliaire]
    SplashTextOn("Configuration IP", "Configuration IP en cours ...", 400, 50, -1, -1, 33, -1, 18)
    Sleep(1000)
    _EnableStatic($Cx, $adresse, $masque)
    _SetGateways($Cx, $passerelle)
    _SetDNSServerSearchOrder($Cx, $DNS_SERVERS)
    SplashTextOn("Configuration IP", "Configuration IP terminée.", 400, 50, -1, -1, 33, -1, 18)
    Sleep(1000)
    SplashOff()
EndFunc   ;==>change_ip

[jguinch]

Salut GhostLine.
Désolé, l'erreur était dans mon script, j'ai corrigé et mis à jour l'UDF.

Est-ce que tu peux le re-télécharger et essayer ?

[GhostLine]

Ca woule ! C'est en prod et ca fonctionne Merci !

[mikell]

@jguinch
Carrément virer le Const ByRef qui dérange, ça fait pas un peu "toi mal aux dents, moi couper tête" ?

[jguinch]

@mikell : oui, j'ai fait au plus simple...
Tu aurais fais quoi ?

[mikell]

Comme je suis tordu j'aurais passé quelques heures à chercher d'où pouvait bien venir cette foutue erreur (après tout ya bien un Const ByRef dans la _ArrayToString() d'origine, ndd !)
Et à la fin j'aurais fait comme toi

[Rapace15]

Bonjour à tous,
Je rencontre un souci avec l'UDF sous Windows10
La fonction _GetNetworkAdapterList me retourne une carte qui n’apparaît pas via la commande ipconfig ou l'interface graphique de gestion.

Code : Tout sélectionner

Microsoft Kernel Debug Network Adapter               Connexion au réseau local* 1        ==> N'apparaît pas
Realtek PCIe GBE Family Controller                       Ethernet                                      ==> Apparaît

Est-ce normal ?
Je n'ai pas ce souci sur les postes de mon parc qui se trouvent sous Windows7
Merci de vos réponses.