AutoIt Français

Bonjours a tous, dans le cadre de mon boulot j'ai du mettre en service des cameras ip.
Pour changer l'ip de chacune d'elle (afin de les intégrer au réseau du client) je devais changer l'ip de mon pc pour accéder a l'interface de la camera ...
Grâce au recherche sur le forum et autre je me suis fais un petit interface de gestion d'ip...
Et la j'arrive pas a finir! il me manque la commande "netsh" pour revenir en dhcp (ip automatique)! Que j'activerais avec le radio button
Un p'tit coup de main ?

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#Include <File.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#include <Array.au3>

Opt("GUIOnEventMode", 1)

;#############################################################################################################################################

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IP_CONFIG", 434, 258, 192, 124)
$Group1 = GUICtrlCreateGroup("Détails", 8, 8, 217, 233)
$Radio1 = GUICtrlCreateRadio("Static", 57, 24, 65, 17)
$Radio2 = GUICtrlCreateRadio("Dhcp", 131, 24, 73, 17)
$Input1 = GUICtrlCreateInput("   .   .   .   ", 104, 56, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input2 = GUICtrlCreateInput("   .   .   .   ", 104, 91, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input3 = GUICtrlCreateInput("   .   .   .   ", 104, 127, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input4 = GUICtrlCreateInput("   .   .   .   ", 104, 162, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Label1 = GUICtrlCreateLabel("IPv4 = ", 32, 59, 38, 17)
$Label2 = GUICtrlCreateLabel("Masque = ", 32, 94, 54, 17)
$Label3 = GUICtrlCreateLabel("Paserelle = ", 32, 130, 59, 17)
$Label4 = GUICtrlCreateLabel("Dns = ", 32, 165, 35, 17)
$Button1 = GUICtrlCreateButton("OK", 80, 200, 75, 25)
GUICtrlSetOnEvent(-1, "change_ip")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Config", 240, 8, 185, 89)
$Combo1 = GUICtrlCreateCombo("Choix Config =", 256, 32, 153, 25)
GUICtrlSetOnEvent(-1,"choix_ip_config")
$Button2 = GUICtrlCreateButton("Gestion", 296, 64, 75, 25)
GUICtrlSetOnEvent(-1,"gui_gestion_ip_config")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Console", 240, 104, 185, 137)
$Edit1 = GUICtrlCreateEdit("", 247, 120, 170, 113, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "closed")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("GESTION_IP_CONFIG", 240, 258, 700, 124)
$Input5_2 = GUICtrlCreateInput("", 104, 14, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input2_2 = GUICtrlCreateInput("   .   .   .   ", 105, 81, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input1_2 = GUICtrlCreateInput("   .   .   .   ", 105, 46, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input3_2 = GUICtrlCreateInput("   .   .   .   ", 105, 117, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Input4_2 = GUICtrlCreateInput("   .   .   .   ", 105, 152, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Label5_2 = GUICtrlCreateLabel("Nom = ", 33, 19, 35, 17)
$Label1_2 = GUICtrlCreateLabel("IPv4 =", 33, 49, 38, 17)
$Label2_2 = GUICtrlCreateLabel("Masque =", 33, 84, 54, 17)
$Label3_2 = GUICtrlCreateLabel("Paserelle =", 33, 120, 59, 17)
$Label4_2 = GUICtrlCreateLabel("Dns =", 33, 155, 35, 17)

$Button2_2 = GUICtrlCreateButton("Nouveau", 27, 194, 59, 25)
GUICtrlSetOnEvent(-1,"nouvelle_config")
$Button1_2 = GUICtrlCreateButton("Supprimer", 89, 194, 59, 25)
GUICtrlSetOnEvent(-1,"effacer_config")
$Button3_2 = GUICtrlCreateButton("Enregistrer", 151, 194, 59, 25)
GUICtrlSetOnEvent(-1,"enregistrer_config")
$Button4_2 = GUICtrlCreateButton("Suivant", 120, 226, 90, 25)
GUICtrlSetOnEvent(-1,"affiche_ip_plus1")
$Button5_2 = GUICtrlCreateButton("Retour", 27, 226, 90, 25)
GUICtrlSetOnEvent(-1,"affiche_ip_moins1")
GUISetOnEvent($GUI_EVENT_CLOSE, "closed_gui_2")

#EndRegion ### END Koda GUI section ###

;#############################################################################################################################################

HotKeySet("{F5}","closed")
Global $ipv4,$masque,$passerelle,$num_ip = 1,$affiche

Global $netname = "Connexion au réseau local"
Global $newIp = "192.168.1.35"
Global $newSubnet = "255.255.255.0"
Global $newDG = "192.168.1.1"
Global $dns = "192.168.1.1"

;#############################################################################################################################################

if FileExists(@ScriptDir& "\" & "ipconfig.ini") Then
Else
    _FileCreate(@ScriptDir& "\" & "ipconfig.ini")
EndIf

Local $choi = IniReadSectionNames(@ScriptDir& "\" & "ipconfig.ini")
;_ArrayDisplay($choi)
for $i = 1 to UBound($choi,1) -1
GUICtrlSetData($Combo1,$choi[$i])
Next

;#############################################################################################################################################

info_ip_config()



While 1
    Sleep(20)
WEnd

;#############################################################################################################################################

Func change_ip()

$newIp = GUICtrlRead($Input1)
$newSubnet = GUICtrlRead($Input2)
$newDG = GUICtrlRead($Input3)
$dns = GUICtrlRead($Input4)

Runwait ('netsh interface ip set address name=' & '"' & $netname & '" static ' & $newIp & ' '& $newSubnet & ' ' & $newDG & ' 1',"",@SW_Hide)
RunWait('netsh interface ip set dns name=' & '"' & $netname & '"' & ' source=static addr= '& $dns, "", @SW_HIDE)

;Runwait ('netsh interface ip set address name=' & '"' & $netname & '" source=dhcp',"",@SW_Hide)
MsgBox(0,"","config changer")
info_ip_config()

EndFunc


Func info_ip_config();effectue une invite de commande "ipconfig" en mode cacher, recupere les infos dans un fichier text pour le parser et afficher les infos choisi

Local $foo = Run(@ComSpec & " /c ipconfig", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Local $line
While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    if $line <> "" Then FileWrite(@ScriptDir& "\" & "tempo_ipconfig.txt",$line)
Wend

$file = FileOpen(@ScriptDir& "\" & "tempo_ipconfig.txt", 0)
Local $trouve

While 1
$ligne = FileReadLine($file)

if StringInStr($ligne,"IPv4") Then
$array = StringSplit ( $ligne,":")
;_ArrayDisplay($array)
$ipv4 = "IPv4 = "& $array[2]
Else
;$ipv4 = ""
EndIf

If StringInStr($ligne,"Masque") Then
$array = StringSplit ( $ligne,":")
;_ArrayDisplay($array2)
$masque = "Masque = "& $array[2]
Else
;$masque = ""
EndIf

If StringInStr($ligne,"Passerelle") Then
$array = StringSplit ( $ligne,":")
;_ArrayDisplay($array2)
$passerelle = "Passerelle = "& $array[2]
ExitLoop
Else
;$passerelle = ""
EndIf

;if $ipv4 = "" And $masque = "" And $passerelle = ""Then
;MsgBox(0,"","Média déconnecter !!")
;ExitLoop
;Else
;EndIf

WEnd
;MsgBox(0,"",$ipv4 & @CRLF & $masque & @CRLF & $passerelle)
GUICtrlSetData($Edit1,@ComputerName &@CRLF& @MDAY&"/"&@MON&"/"&@YEAR&"   "&@HOUR&":"&@MIN&":"&@SEC &@CRLF& @CRLF & $ipv4 & @CRLF & $masque & @CRLF & $passerelle)
FileClose(@ScriptDir& "\" & "tempo_ipconfig.txt")
FileDelete(@ScriptDir& "\" & "tempo_ipconfig.txt")

EndFunc

Func gui_gestion_ip_config()
GUISetState(@SW_SHOW,$Form2)
affiche_ip()
EndFunc



Func choix_ip_config();envoi la config choisi dans le "inputs" ou les infos seront lu pour appliquer la config
    ;MsgBox(0,"",GUICtrlRead($Combo1))
    GUICtrlSetData($Input1,IniRead(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Combo1),"IPv4",""))
    GUICtrlSetData($Input2,IniRead(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Combo1),"masque",""))
    GUICtrlSetData($Input3,IniRead(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Combo1),"passerelle",""))
    GUICtrlSetData($Input4,IniRead(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Combo1),"dns",""))

EndFunc

Func affiche_ip();affiche les infos de differentes config dans la gui "gestion config"
$affiche = IniReadSectionNames(@ScriptDir& "\" & "ipconfig.ini")

if $num_ip > UBound($affiche)-1 Then $num_ip = 1
if $num_ip < 1  Then $num_ip = UBound($affiche)-1


;_ArrayDisplay($affiche)
GUICtrlSetData($Input5_2,$affiche[$num_ip])
GUICtrlSetData($Input1_2,IniRead(@ScriptDir& "\" & "ipconfig.ini",$affiche[$num_ip],"IPv4",""))
GUICtrlSetData($Input2_2,IniRead(@ScriptDir& "\" & "ipconfig.ini",$affiche[$num_ip],"masque",""))
GUICtrlSetData($Input3_2,IniRead(@ScriptDir& "\" & "ipconfig.ini",$affiche[$num_ip],"passerelle",""))
GUICtrlSetData($Input4_2,IniRead(@ScriptDir& "\" & "ipconfig.ini",$affiche[$num_ip],"dns",""))
EndFunc

Func affiche_ip_plus1()
$num_ip = $num_ip + 1
;if $num_ip > UBound($affiche)-1 Then $num_ip = 1
affiche_ip()
EndFunc

Func affiche_ip_moins1()
$num_ip = $num_ip - 1
;if $num_ip < 1  Then $num_ip = UBound($affiche)-1
affiche_ip()
EndFunc

Func nouvelle_config()
GUICtrlSetData($Input5_2,"")
GUICtrlSetData($Input1_2,"")
GUICtrlSetData($Input2_2,"")
GUICtrlSetData($Input3_2,"")
GUICtrlSetData($Input4_2,"")
EndFunc

Func enregistrer_config()
IniWrite(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Input5_2),"IPv4",GUICtrlRead($Input1_2))
IniWrite(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Input5_2),"masque",GUICtrlRead($Input2_2))
IniWrite(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Input5_2),"passerelle",GUICtrlRead($Input3_2))
IniWrite(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Input5_2),"dns",GUICtrlRead($Input4_2))
EndFunc

Func effacer_config()
    IniDelete(@ScriptDir& "\" & "ipconfig.ini",GUICtrlRead($Input5_2))
    ;$affiche = IniReadSectionNames(@ScriptDir& "\" & "ipconfig.ini")
    affiche_ip()
EndFunc


Func closed()
Exit
EndFunc


Func closed_gui_2()
GUISetState(@SW_HIDE,$Form2)
EndFunc

Je passais par là, mais pas trop le temps de debugguer. Par contre il me semble qu'il existe des controls pour les masques/IP.
Coté commande, j'utilise ca : netsh interface ip set address "Connexion au réseau local" dhcp

Merci a toi,
il me semble que je l'ai testé, mais une erreur de syntaxe est vite faite...
Tu as la commande exacte genre

Code : Tout sélectionner

"Runwait ('netsh interface ip set address name=' & '"' & $netname & '" source=dhcp',"",@SW_Hide)"

Moi j'ai tester celle ci et les propriétés de la carte réseau me renvoi toujours la même ip fixe ?

Code : Tout sélectionner

RunWait(@ComSpec & " /c " & "netsh interface ip set address "Connexion au réseau local" dhcp")

Les guillemets ne sont pas bons.

Code : Tout sélectionner

RunWait(@ComSpec & " /c " & 'netsh interface ip set address "Connexion au réseau local" dhcp')

Merci bien, je vais tester dans la journée.
ps = Tu ne dors donc jamais?

ps2 = Tu ma bien chauffé la curiosité avec "des chose se prépare dans l'ombre" ! un indice?
ps3 = La boulangerie de ton village fais les meilleurs Pastis du monde...

Celle ci fonctionne très bien =

Code : Tout sélectionner

RunWait(@ComSpec & " /c " & 'netsh interface ip set address "Connexion au réseau local" dhcp')

Merci beaucoup!
Encore une petite chose comment connaitre la configuration actuelle (static ou dynamic) ?

ps : si un peu quand même !
ps2 : il risque bien de ne pas exister d'autres 3.3.9.x (ni 3.x.y.z d'ailleurs). Voilà... Je n'ai rien dit et on ne commente pas, merci de votre patience. Ca commence avec la version alpha.
ps3 : exact, et là tu m'en bouches un coin car c'est le trou de balle de la Chalosse. Tu es d'où ?

+ 1 pour le Pastis.

C'est peut être le "le trou de balle de la Chalosse", mais on y trouve quand même un Mc Do ...

Bon, c'est pas une référence, mais en France, on n'en trouve pas comme aux US ( tous les 50m2)

Houlà, faut zoomer plus Thierry, j'ai pointé avec grande précision !
Suis Saint-jeannais (de Marsacq), pas Tyrossais. Ceux-là on les renvoie dans leurs 22 vite fait

</perso>

Oui, j'avais bien vu avec les coordonnées, mais c'est comme moi, je dit Bordeaux mais en réalité je suis juste à côté (10km) !!!

Et puis chipoter pour 8 Km, c'est abuser quand même. Surtout pour un Pastis !!!

cutprod a écrit : Encore une petite chose comment connaitre la configuration actuelle (static ou dynamic) ?

Bonjour,

Ipconfig /all (en ligne de commande) ou aide de netsh.

Cdlt.

Merci a tous pour l'aide.
Ipconfig /all m'indique bien si le dhcp est activé ou pas.

AutoIt Français

[R] IP_Config

[R] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config

Re: [..] IP_Config