Subscribe Feed (RSS)how to remotely rename domain computers
author : voidzzz | category : How-To, Tutorial, Windows, Windows 2003, Windows 2008, Windows 7, Windows Vista, Windows XP.This how to will show you how to rename domain computers avoiding the hassle of walking to every domain computers to rename them.
I’ll make it quick and simple to you (as most of you expected) :
Prerequisite :
If you’re using Windows XP, download Windows XP Support Tools from here
- Start > Run > type in “notepad” (without the quotes) > Enter
- Copy the following vbs script code and paste it to your just-opened notepad :
'Author : www.configuration-guide.com
'On Error Resume Next
Set oFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = wscript.createObject("wscript.shell")
Dim sNewName
Dim sOldName
Dim nTotalComputer
Dim i
Dim sUserName
Dim sPassword
sUserName = InputBox("Insert Username with Administrator rights" & vbCr & vbLf & "Username must be in DOMAIN\username format","http://www.configuration-guide.com")
sPassword = InputBox("Insert Password for username : " & sUserName,"http://www.configuration-guide.com")
nTotalComputer = InputBox("Number of computers to be renamed","http://www.configuration-guide.com")
i = 1
for i = i to nTotalComputer
sOldName = InputBox("Old Computer Name" & vbCr & vbLf & "Computer # " & i & " from " & nTotalComputer,"http://www.configuration-guide.com")
sNewName = InputBox("New Computer Name" & vbCr & vbLf & "Old Computer Name : " & sOldName,"http://www.configuration-guide.com")
Call WSHShell.Run("netdom renamecomputer " & sOldName & " /newname:" & sNewName & " /userd:" & sUserName & " /passwordd:" & sPassword & " /usero:" & sUserName & " /passwordo:" & sPassword & " /force ")
next
- Save the file as renamecomputers.vbs (or anything you like but keep the .vbs extension)
That’s it … go give it a try … (still find a way to import and use list of computers from txt or csv file)
here is list of posts that surely will help you :
-->Tags: domain computer, domain computer rename, remotely rename computer name
