#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\..\..\Mes Images\logo\Ico\hardware\ecran.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

$gui = GUICreate("Propriété de l'ordinateur", 300, 100, -1, -1,-1,0x00000080)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")



$l1 = GUICtrlCreateLabel("Nom de l'ordinateur : ", 15, 24, 350, 17)
$i1 = GUICtrlCreateInput("", 130, 24, 120, 21)
$l2 = GUICtrlCreateLabel("Groupe de travail :", 15, 48, 350, 17)
$i2 = GUICtrlCreateInput("", 130, 48, 120, 21)
$b1 = GUICtrlCreateButton("OK", 130, 70, 40, 21, 0)
GUICtrlSetOnEvent(-1, "ok")
GUISetState(@SW_SHOW)

While 1
	Sleep(100)
WEnd

Func quitter()
	Exit
EndFunc

Func ok()
$total = GUICtrlRead($i1)
$total2 = Guictrlread($i2)
Run(@ComSpec & " /c " & 'sysdm.cpl', "", @SW_HIDE)
WinWaitActive("Propriétés système")
Send("{right}")
Send("!f")
WinWaitActive("Modification du nom d'ordinateur", "Vous pouvez modifier")
send($total)
send("!g")
send("{tab}")
send($total2)
send("{enter}")
winwaitactive("Modification du nom d'ordinateur", "Bienvenue dans")
send("{enter}")
winwaitactive("Modification du nom d'ordinateur", "Vous")
send("{enter}")
WinWaitActive("Propriétés système")
send("{enter}")
WinWaitActive("Modification des paramètres système", "Vous devez redémarrer")
send("!n")
Exit
EndFunc