1. Accueil
  2. IRC
  3. Sources IRC
  4. Sources AddOns
  5. Changer le nom du pc

Changer le nom du pc

Soyez le premier à donner votre avis sur cette source.

Vue 11 971 fois - Téléchargée 186 fois

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

Ajouter un commentaire

Commentaires

Signaler
Messages postés
311
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
1 mai 2009
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
Signaler
Messages postés
44
Date d'inscription
dimanche 20 juin 2004
Statut
Membre
Dernière intervention
1 octobre 2004
:P effectivement, c inutile :) mais c beau pareil :P
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)