how to change a computers name by script

  • Thread starter Thread starter Hein Heinrichsen
  • Start date Start date
H

Hein Heinrichsen

Hello
does anyone know how to change a computers name by script?
Thanks
Hein
 
Hello
Thank you for your answer but this seems to be only for computers in a
domain, not in workgroups.
any other suggestions?
 
Try something like this...


strcomputer="xxxxxxxxxxxxxxxx"
username="" ' local admin account on computer to be renamed
password=""
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer(strComputer,
"Root\DEFAULT,username,password)
Set objRegistry = objService.Get("StdRegProv")

strKeyPath = "System\CurrentControlSet\Control\ComputerName\ComputerName"
strValueName = "ComputerName"
objRegistry.SetStringValue
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,newname.value
strValueName = "ActiveComputerName"
objRegistry.SetStringValue
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,newname.value

strKeyPath = "System\CurrentControlSet\Services\Tcpip\Parameters"
strValueName = "HostName"
objRegistry.SetStringValue
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,newname.value
strValueName = "NV HostName"
objRegistry.SetStringValue
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,newname.value

I've used something similar for a while without any problems.
Pete Forman
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

SQL script to solve problem 1
Mobo name and id change 2
Powershell script to show system uptime 5
How to assign a drive letter to a volume by name (not driveumber)? 6
Windows 10 I would like to know in a batch file how to indentify computer name by using the first 5 of the name and the last 2 of the name then call runcmd 0
Scripts --- homemade helpers !! 6
Name change 0
MPV - versitile fast lean player. 3

Back
Top