Page 1 sur 1
Interrogation configuration réseau multi techno
Posté : ven. 20 janv. 2023 15:17
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
Re: Interrogation configuration réseau multi techno
Posté : sam. 21 janv. 2023 08:44
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
Re: Interrogation configuration réseau multi techno
Posté : mar. 11 avr. 2023 15:29
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