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
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