Changer le nom du pc

0/5 (2 avis)

Vue 12 211 fois - Téléchargée 202 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
dj328i Messages postés 312 Date d'inscription dimanche 23 février 2003 Statut Membre Dernière intervention 14 mars 2022
6 janv. 2008 à 01:48
ehhhh cétait quand même bien pensée , mais cétait très laid même pour l'époque loll 2003 ca remonte a loin quand même

maintenant pour faire plus rapide ya "run cmd /c reg add/del"
et ya les objets com pour la lecture. A l'époque l'orientation objet n'avais pas été adoptée malheureusement.

Ne te fit pas a cette source je t'en pris c'est un mauvais exemple , c'est vieux vieux vieux ... :P
Ulcius Messages postés 44 Date d'inscription dimanche 20 juin 2004 Statut Membre Dernière intervention 1 octobre 2004
31 juil. 2004 à 06:02
:P effectivement, c inutile :) mais c beau pareil :P

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.