Смяна името на компютъра с команда от бат файл. Възможно ли е ?

[milenk]

Има ли такава команда и ако да каква е ? Доста порових из нета , но не успях да намеря.

Благодаря на отзовалите се.

[Tormentor]

Така става ли:

@echo off
SET /P PCNAME=Please enter your name: 
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v ComputerName /t REG_SZ /d %PCNAME% /f

[milenk]

Благодаря ще го пробвам и това. В момента пробвам този скрипт и върши работа.

'Changing computer name for WNT/W2k/WXP with script:

sNewName = "put new name here"

Set oShell = CreateObject ("WSCript.shell" )

sCCS = "HKLMSYSTEMCurrentControlSet"
sTcpipParamsRegPath = sCCS & "ServicesTcpipParameters"
sCompNameRegPath = sCCS & "ControlComputerName"

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

.RegWrite sCompNameRegPath & "ComputerNameComputerName", sNewName
.RegWrite sCompNameRegPath & "ActiveComputerNameComputerName", sNewName
.RegWrite sTcpipParamsRegPath & "Hostname", sNewName
.RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName
End With ' oShell

MsgBox "Computer name changed, please reboot your computer"

Преди да се появи прозореца с поканата за рестарт. Какво да се добави към скрипта за да добави към регистрите едн рег файл и тогава да се рестартира

[milenk]

С това,което исках под ХР се справих.... Сега се опитвам да сменя името на компютъра под Windows 7, но не намирам решение.... За сега намерих този скрипт,но не работи:

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)

‘Part 1 – Acquire serial/service tag number
Set colSMBIOS = objWMIService.ExecQuery (“Select * from Win32_SystemEnclosure”)
For Each objSMBIOS in colSMBIOS
strSN = objSMBIOS.SerialNumber
If strSN <> “” Then exit For
Next

‘Part 2 – Assign computer name to serial/service tag number
Name = strSN

Set colComputers = objWMIService.ExecQuery (“Select * from Win32_ComputerSystem”)

For Each objComputer in colComputers
err = objComputer.Rename(name)

if err <> 0 then
wscript.echo “There was an error renaming the machine. Please restart, and try again.”
else
wscript.echo “Machine successfully renamed: ” & Name
end if

Next

Ако някой има решение моля да помогне.

[milenk]

Ето скрипта и за Вин 7 ако на някой потрябва.

'Changing computer name for Windows 7 with script:

Name = "My PC"

Set objWMIService = GetObject("Winmgmts:root\cimv2")

' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")

Return = objComputer.rename(Name)
If Return <> 0 Then
WScript.Echo "Rename failed. Error = " & Err.Number
Else
WScript.Echo "Rename succeeded." & _
" Reboot for new name to go into effect"
End If

Next

MsgBox "Моля, затворете всички приложения и рестартирайте компютъра."