'Změna jména počítače s Vbscriptem: 


sNewName = "zde dej nové jméno počítače" 


Set oShell = CreateObject ("WSCript.shell") 


sCCS = "HKLM\SYSTEM\CurrentControlSet\" 
sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters\" 
sCompNameRegPath = sCCS & "Control\ComputerName\" 


With oShell 
  .RegDelete sTcpipParamsRegPath & "Hostname" 
  .RegDelete sTcpipParamsRegPath & "NV Hostname" 


  .RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName 
  .RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName 
  .RegWrite sTcpipParamsRegPath & "Hostname", sNewName 
  .RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName 
End With   ' oShell 


MsgBox "Pro dokončení přejmenování počítače je třeba restart"