Página 1 de 1

Cambiar nombre del equipo (Ayuda)

Publicado: 17 Ago 2012, 20:37
por jassir
Bueno la idea es cambiar el nombre del equipo y no tengo idea para nada
nota vale recalcar que si se cambiar manualmente
pero la idea es cambiarlo con un scrip de autoit de forma desatendida

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Ventana = GUICreate("Nombre PC", 250, 200, -1, -1)
$Input = GUICtrlCreateInput(@ComputerName, 24, 64, 185, 21)
$Button = GUICtrlCreateButton("Aceptar", 32, 112, 161, 41)
$Label = GUICtrlCreateLabel("Nombre del pc", 40, 20, 100, 17)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button
			MsgBox(0, "Windows", "El nombre del pc ha sido cambiado")
	EndSwitch
WEnd

Re: Cambiar nombre del equipo (Ayuda)

Publicado: 18 Ago 2012, 22:39
por melvinhn
te di la ayuda en Cambiar nombre del Usuario (Ayuda)
solo adapta este comando tambien a lo que quieres y listo

wmic computersystem where name="%computername%" call rename "mipecesitas"

nota: en el nombre de pc no puede incluir espacios y entre otros caracteres especiales

como por ejemplo si vas ha escribir "PC Personal" no te surgira efecto ya que lleva un espcio y no es compatible
te recomiendo "PC-PErsonal"

saludos