Mozna lepsi reseni je "nasbirat" MAC adresy serveru a napsat prirazeni jmen a IP do souboru. Server by mel pred sysprepem pripravena data na disku a zaroven by byla nastavena jednorazova uloha, ktera by spustila skript.
Pokud spravne pojmenujete odpovedni xml soubor, tak se precte sam z USB.
Tady je skript, ktery muzete pouzit jako predlohu. Prirazuje se jmeno k MAC adrese. (Pro jistotu je datovy soubor s MAC adresami s malymi i velkymi pismeny.)
'****************************************************************
' SKRIPT PRO PREJMENOVANI POCITACU
' SPOUSTI SE PLANOVANIM PROCESU
' Skript nacte lokalni hodnotu MAC
' adresy a v cyklu srovnava s hodnotou
' prectenou ze souboru. Po dosazeni
' stejnych hodnot MAC adres se priradi
' odpovidajici jmeno
'****************************************************************
'
OPTION EXPLICIT
'
'****************************************************************
' Definice promennych
'****************************************************************
'
Dim strFileName, strNextLine, strNULL, strComputer
Dim objFSO, objTextFile, objScriptExec, objShell, objWMIService
Dim objAdapter, objComputer
Dim arrUserLine
Dim strMacPC, strNamePC, strInitialPC, strLocalPC, strLocalMac
Dim strComputerName
Dim strUser, strPassword
Dim colAdapters
Dim RETURN
Dim wshShell
'
'*****************************************************************
' Definice konstant
'*****************************************************************
'
Const ForReading = 1 ' Pro cteni
strFileName = "c:\DATA\MAC.txt" ' Umisteni datoveho souboru
strComputer = "." ' Lokalni pocitac
strNULL = "00:00:00:00:00:00" ' Nulova MAC adresa
strUser = "ADMIN"
strPassword = "Heslo.1"
strInitialPC = "K" ' POcatecni jmeno pocitace
'
'******************************************************************
' MAC adresa okalniho pocitace
' strLocalMac je vysledna hodnota dotazu na MAC adresu
'******************************************************************40
'
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
'
For Each objAdapter in colAdapters
strLocalMac = objAdapter.MACAddress
if strLocalMac <> strNULL then
end if
Next
'
'******************************************************************
' Jmeno lokalniho pocitace
'******************************************************************
'
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
'
'*****************************************************************
' Podminka pro jmena
'*****************************************************************
'
if strComputerName = strInitialPC Then
'
' ... a ted muze nasledovat skok az na konec programu,
' pokud podminka neni splnena
'******************************************************************
' Definice objektu soubor
' To je priprava na cteni souboru s {MAC,jmeno}
'******************************************************************
'
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strFileName ,ForReading)
'
'******************************************************************
' Definice shellu
'*****************************************************************'
Set objShell = CreateObject("Wscript.Shell")
'
'******************************************************************
' Smycka pro nacteni souboru
' Nacteni radky a rozdeleni do bunek
'******************************************************************
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrUserLine = Split(strNextLine,",") ' Delici znak je carka
strMacPC = arrUserLine(0) ' MAC adresa
strNamePC = arrUserLine(1) ' Jmeno pocitace
' ******************************************************************
' Dotaz na shodu MAC adres a prejmenovani pocitace,
' pokud je splnena podminka shodnosti MAC adres
' lokalniho stroje a zaznamu v souboru
' ******************************************************************
'
If strMacPC = strLocalMAC Then
Set objWMIService = GetObject("Winmgmts:root\cimv2")
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")
Return = objComputer.rename(strNamePC,strPassword,strUser)
If Return <> 0 Then
WScript.Echo "Neco je blbe. Error = " & Err.Number
Else
Set objShell = WScript.CreateObject ("WSCript.shell")
objShell.run "shutdown -r -f -t 0"
Set objShell = Nothing
End If
Next
Exit Do
End If
LOOP
else
WScript.Echo "Puls a tep je OK, jedeme dal"
end if
'************************************************************************
' END
'************************************************************************
