script para cambiar nombre de maquina

Gúardate esto con extensión vbs (las líneas no):


'Begin Script
Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 =
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3A­EA-1069-A2D8-08002B30309D}\"
WshShell.RegWrite p1,"%computername%","REG_EXPAND_SZ"
Set WshShell = Nothing
'End Script

donde pone "%computername%", pon el tuyo. Tomado de Doug Knox.

Microsoft MVP Windows - Shell/User
www.fermu.com


"Roberto" wrote in message
news:

Hola a toda la comunidad:

alguien sabe de alguna página donde pueda encontrar un script para cambiar
el nombre a maquinas windows xp o alguien me puede pasar el script??.
Gracias por vuestra ayuda.

Un saludo.