Então, esse script funciona pra windows XP e windows 2003, crie um arquivo de texto com a extensão .vbs que tenha o seguinte conteúdo
strNewName = “NOVO_NOME_AQUI“
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set colComputers = objWMIService.ExecQuery (“Select * from Win32_ComputerSystem”)
For Each objComputer in colComputers
ObjComputer.Rename(strNewName)
Next
Em NOVO_NOME_AQUI, altere para o nome que você deseja que teu computador tenha, e é isso
Muito bom, na hora de copiar e colar mudem as aspas