Interrogation configuration réseau multi techno

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
turistceto
Niveau 3
Niveau 3
Messages : 32
Enregistré le : jeu. 22 nov. 2012 18:12
Status : Hors ligne

Interrogation configuration réseau multi techno

#1

Message par turistceto »

Bonjour à tous,

En ce début d'année, je vous transmets mes meilleurs vœux, santé bonheur et beaucoup de réussite.

Je voudrais solliciter votre aide pour créer un script qui me permettra de scanner les serveurs et postes clients sur le réseau qui ont une ip statique afin de modifier leur entrée DNS.

Pour détailler la situation, nous avons eu une migration Active Directory et DNS, mais impossible d'identifier tous les équipements qui interrogent les serveur dns qui doivent être décommissionné.

Je me demandais s'il était possible, via autoit de réaliser un script qui me permettrait d'exporter dans un fichier tous les équipements avec leur config réseau et par la suite de modifier les entrées dns sur ces équipements via autoit.

Je serais super contant si vous pouvez m'aider.

Merci d'avance pour votre aide
Avatar du membre
jl56
Niveau 7
Niveau 7
Messages : 411
Enregistré le : mer. 24 oct. 2007 22:42
Localisation : 56000
Status : Hors ligne

Re: Interrogation configuration réseau multi techno

#2

Message par jl56 »

Bonjour,

Meilleurs voeux également
je prévois de réaliser un script en barre de tache pour me mettre une IP dédié ou en DHCP lorsque je me rends chez mes clients.
j'avais testé l'UDF network.au3 de Jguinch ,que je remercie pour ce partage, et qui fonctionnais pour moi.

viewtopic.php?f=21&t=11207&p=103578&hil ... u3#p103578

téléchargement ici
https://www.autoitscript.com/forum/topi ... ation-udf/

Bon script,

Cordialement,

JL56
Brad151
Niveau 1
Niveau 1
Messages : 2
Enregistré le : ven. 07 avr. 2023 06:49
Status : Hors ligne

Re: Interrogation configuration réseau multi techno

#3

Message par Brad151 »

Bonjour,

Tout d'abord, je vous souhaite également une excellente année et une réussite dans votre projet de modification des entrées DNS de vos équipements.

Il est tout à fait possible de créer un script avec AutoIt pour scanner votre réseau et récupérer les informations de configuration réseau de chaque équipement. Cependant, la modification des entrées DNS sur ces équipements via AutoIt peut être plus complexe en fonction de votre environnement spécifique.

Voici un exemple de code pour scanner le réseau et récupérer les informations de configuration réseau de chaque équipement :

scss
Copy code
#include <Array.au3>
#include <File.au3>
#include <IPAddress.au3>
#include <NetAPI.au3>
#include <NetShare.au3>
#include <NetStat.au3>
#include <String.au3>
#include <WinAPI.au3>

Global $aAddresses[1][2] = [["", ""]]

; Récupérer les adresses IP de tous les équipements dans le réseau local
_GetIPAddress()

; Exporter les adresses IP et la configuration réseau dans un fichier
_ExportConfig()

Func _GetIPAddress()
    Local $aIPs, $sIP

    $aIPs = _Net_Share_ShareEnumAll()

    For $i = 1 To $aIPs[0][0]
        $sIP = _Net_API_BufferToString($aIPs[$i][0])

        ; Vérifier si l'adresse IP est valide
        If _IPAddress_Check($sIP) Then
            ; Récupérer la configuration réseau pour l'adresse IP
            $aAddresses[UBound($aAddresses) - 1][0] = $sIP
            $aAddresses[UBound($aAddresses) - 1][1] = _GetNetworkConfig($sIP)

            ; Redimensionner le tableau pour ajouter une nouvelle adresse IP
            ReDim $aAddresses[UBound($aAddresses) + 1][2]
        EndIf
    Next

    ; Supprimer la dernière ligne du tableau (car elle est vide)
    ReDim $aAddresses[UBound($aAddresses) - 1][2]
EndFunc

Func _GetNetworkConfig($sIP)
    Local $aConfig, $sConfig = ""

    ; Récupérer la configuration réseau pour l'adresse IP spécifiée
    $aConfig = _Net_Share_IPConfig($sIP)

    ; Ajouter la configuration réseau à la chaîne de caractères
    For $i = 1 To $aConfig[0][0]
        $sConfig &= $aConfig[$i][0] & "=" & $aConfig[$i][1] & @CRLF
    Next

    Return $sConfig
EndFunc

Func _ExportConfig()
    Local $sFile = "Config.txt"

    ; Ouvrir le fichier pour l'écriture
    FileOpen($sFile, 2)

    ; Ajouter les adresses IP et la configuration réseau dans le fichier
    For $i = 0 To UBound($aAddresses) - 1
        FileWriteLine($sFile, "IP Address: " & $aAddresses[$i][0])
        FileWriteLine($sFile, "Network Configuration:")
        FileWriteLine($sFile, $aAddresses[$i][1])
        FileWriteLine($sFile, "")
    Next

    ; Fermer le fichier
    FileClose($sFile)
EndFunc
Ce code utilise les fonctions AutoIt pour récupérer les adresses IP des équipements dans le réseau local, puis récup
Répondre