Rename PC according to MAC address

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Rename PC according to MAC address

Logged in as: Guest

arrSession:exec spGetSession 2,2,3529

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Rename PC according to MAC address
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Rename PC according to MAC address - 6/25/2005 5:34:40 AM

brucehat

Posts: 1
Score: 0
Joined: 6/25/2005
From: South Africa
Status: offline

Hi, I am new to vbscript and I am trying to rename computers according to their mac address, I already have a list that looks something like this:
00B0D0D47CE0=pcname1
00B2D0D47CE0=pcname2 etc. all I need to be able to so is search the textfile and rename the win2k pc accordingly any ideas would be appreciated.

Post #: 1

Re: Rename PC according to MAC address - 6/25/2005 3:01:56 PM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

use the code from this site,
http://www.tek-tips.com/viewthread.cfm?qid=1072041&page=1

i think the easiest one would be this code from that site, assuming you arent on a domain. You could modify the code to read through your file and use the values to change the hostname on each machine. look at the file system object to read through the file, and the split function to load the data once you are able to read through the file.

' This code changes the name of a computer.  It does NOT modify
' the computer's account in the domain if one exists.
' ---------------------------------------------------------------
' From the book "Windows Server Cookbook" by Robbie Allen
' Publisher: O'Reilly Media
' ISBN: 0-596-00633-0
' Book web site: http://rallenhome.com/books/winsckbk/code.html
' ---------------------------------------------------------------

' ------ SCRIPT CONFIGURATION ------
strComputer = "<CurrentServerName>"
strNewName = "<NewServerName>"
' ------ END CONFIGURATION ---------
const HKLM   = &H80000002
strKeyPath   = "System\CurrentControlSet\Control\ComputerName\ComputerName"
set objReg = GetObject("winmgmts:\\" & strComputer & _
"\root\default:StdRegProv")
intRC = objReg.SetStringValue(HKLM, strKeyPath, "ComputerName", strNewName)
if intRC <> 0 then
WScript.Echo "Error setting ComputerName value: " & intRC
else
WScript.Echo "Successfully set ComputerName value to " & strNewName
end if

strKeyPath   = "System\CurrentControlSet\Services\Tcpip\Parameters"
intRC = objReg.SetStringValue(HKLM, strKeyPath, "NV Hostname", strNewName)
if intRC <> 0 then
WScript.Echo "Error setting NV Hostname value: " & intRC
else
WScript.Echo "Successfully set NV Hostname value to " & strNewName
end if

WScript.Echo "Rebooting system..."
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
for each objOS in objWMI.InstancesOf("Win32_OperatingSystem")
objOS.Reboot()
next

(in reply to brucehat)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Rename PC according to MAC address

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts