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
n'oubliez pas d'inclure le dll dans votre repertoire
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
6 janv. 2008 à 01:48
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
31 juil. 2004 à 06:02
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.