Changer le nom du pc

Télécharger le projet
Commenter

Description

comme je suis specialiser dans les choses inutile j'ai decider d'en poster un autre lol . il sert ( sous xp ) a changer le nom du pc directement a partir de la boite de dialog . il sauvegarde l'ancien nom pour pouvoir rechanger par la suite si ca vous tente

pour lancez la fenetre lancez la commande /nom_pc

Source / Exemple : 


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

Conclusion :


n'oubliez pas d'inclure le dll dans votre repertoire
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dj328i)