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
© ALL RIGHTS RESERVED. Feedback Terms of Use Privacy Cookie Preference Center