Автоматически переименовывать компьютеры в зависимости от их MAC-адреса

Question

Как автоматически переименовать хост / имя компьютера в зависимости от его MAC-адреса?

У меня есть 40 компьютеров, и мне нужен скрипт для автоматического переименования их при входе в систему после использования Ghost.
Я в среде Windows 7.

Answer 1

Это довольно старая (февраль 2009 г.) статья: Скрипт для изменения имени компьютера в зависимости от MAC-адреса на форумах Microsoft по созданию сценариев. Я использовал это пару лет назад.

Sub ChangeCompName(strComputer,Seg,IP)
'==============================================================================================
'This Sub Changes the Computer Name according to a Constant Value and the IP address entered
'It Changes the ComputerName key in the Registry and some other keys to do so
'==============================================================================================
const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
 strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName"
strValueName = "ComputerName"
strValue = "CompName" & seg & IP

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strValueName = "Hostname"
strValue = "CompName" & seg & IP

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strValueName = "NV Hostname"
strValue = "CompName" & seg & IP

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


objFile.WriteLine "Computer Name: " & strValue
'==============================================================================================
'Write the new computer name to the Log
'==============================================================================================
End Sub