Předmět Autor Datum
'Změna jména počítače s Vbscriptem: sNewName = "zde dej nové jméno počítače" Set oShell = CreateObje…
Vladimir 18.07.2006 11:33
Vladimir
Skvělé, díky za rychlou a kvalitní odpověď. poslední
Jack 18.07.2006 11:36
Jack
'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" 

tohle je pro lokální spuštění. Jinak s WMI jde přirozeně změna i vzdáleně a třeba na všech PC najednou...

Zpět do poradny Odpovědět na původní otázku Nahoru