Automate renaming a workstation to its serial number (4280079)

QMM Resource update manager Includes a rename Task. How can I bulk Rename Computers.

An import file can be specified that contains a list of existing computers, and their new name, seperated by a tab.

For example:

Oldname Newname
oldname2 newname2

Note that no header information is required.

Note that a Common Practice is to name computers to match their serial number. The following VB Script, when called at logon will report back the Current name and serial number of the machine seperated by a tab. You will need to Update the Somefile variable to specify a network path and filename for the output.

NOTE: This script is provided as is and is unsupported by Quest.

'--------------------------------------------------------------------
'CollectComputers.vbs

dim somefile
dim filesys, filetxt

'UPDATE THE PATH BELLOW
somefile="C:\file.txt"
'__________________________
 

strComputer = "."

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")

For each objBIOS in colBIOS
WScript.Echo WshNetwork.ComputerName &vbTab & objBIOS.SerialNumber
' Write a line.
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile(somefile, ForAppending, True)
filetxt.WriteLine(WshNetwork.ComputerName & vbTab & objBIOS.SerialNumber)
filetxt.Close
Next