CHANGER LE NOM DU PC

alias nom_pc dialog -md nom_pc nom_pc
dialog nom_pc {
  title "nom du pc"
  size -1 -1 108 81
  option dbu
  edit "", 1, 21 24 62 11
  box "entrer le nouveaux nom", 2, 16 17 71 22
  button "changez", 3, 32 58 37 12
  menu "fichier", 4
  item "actualiser", 5, 4 , ok , cancel
  item "revenir ancien nom" , 6 , 4
  item "fermer", 7 , 4 , cancel
}     

on 1:dialog:nom_pc:menu:5:{ 
.timer 1 1 /nom_pc 
                   }

on 1:dialog:nom_pc:init:0:{  
.timer 1 0 /did -a nom_pc 1 $testkey($dll(registre.dll,readkey,80000002*\system\currentcontrolset\control\computername\computername\*computername))
if ( nom_pc.reg == nom_pc.reg ) { .remove nom_pc.reg }
               }

on 1:dialog:nom_pc:sclick:3:{ 
if ( $did(nom_pc,1) == $null ) { goto endnompc } 
if ( $os != XP ) { /echo votre systeme n'est pas compatible ( xp seulement ) } 
set %oldname $testkey($dll(registre.dll,readkey,80000002*\system\currentcontrolset\control\computername\computername\*computername))
/write nom_pc.txt REGEDIT4 
/write nom_pc.txt   
/write nom_pc.txt[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName] 
/write nom_pc.txt "computername"=" $+ $did(nom_pc,1) $+ "
/write nom_pc.txt   
/write nom_pc.txt [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\activeComputerName] 
/write nom_pc.txt "computername"=" $+ $did(nom_pc,1) $+ " 
.timer 1 1 /rename nom_pc.txt nom_pc.reg 
.timer 1 2 /run nom_pc.reg 
reboot_np 
: endnompc 
                        } 

on 1:dialog:nom_pc:menu:6:{  
if ( %oldname == $null ) { /echo vous n'avez pas de nom de sauvegarder }
if ( $os != XP ) { /echo votre systeme n'est pas compatible ( xp seulement ) } 
/write nom_pc.txt REGEDIT4 
/write nom_pc.txt   
/write nom_pc.txt [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName] 
/write nom_pc.txt "computername"=" $+ %oldname $+ "
/write nom_pc.txt   
/write nom_pc.txt [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\activeComputerName] 
/write nom_pc.txt "computername"=" $+ %oldname $+ " 
.timer 1 1 /rename nom_pc.txt nom_pc.reg 
.timer 1 2 /run nom_pc.reg 
reboot_np    
                 }


alias reboot_np dialog -md reboot_np reboot_np  
dialog reboot_np {
  title "reboot avertissement"
  size -1 -1 108 108
  option dbu
  text "   Pour que vos changement        soie prie en charge                   Vous devez redemmarer           votre pc                                                                                     Voulez vous le faire                  maintenant ?", 1, 15 11 73 48
  button "Oui", 2, 13 77 29 12 , ok , cancel
  button "Non", 3, 56 77 29 12 , cancel
}  

on 1:dialog:reboot_np:sclick:2:{ 
.timer 1 2 /run shutdown.exe -r -t 10 -c "redemarrage pour prise en charge du nom pc"   
                   }