[VelDmi]

mikola1983,

Код:

$ComputerName = IniRead(@ScriptDir & "\Config.ini", "Setup", "ComputerName", 0)

If @ComputerName <> $ComputerName Then
	FileWriteLine(@ScriptDir & '\rename.vbs', 'strComputer = "' & @ComputerName & '"')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'Set objWMIService = GetObject("winmgmts:" _')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    & "{impersonationLevel=impersonate}!\\" _')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    & strComputer & "\root\cimv2")')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'Set colComputers = objWMIService.ExecQuery _')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    ("Select * from Win32_ComputerSystem")')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'For Each objComputer in colComputers')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    errReturn = ObjComputer.Rename("' & $ComputerName & '")')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'Next')

	RunWait (@SystemDir & '\WScript.exe ' & @ScriptDir & '\rename.vbs')
	FileDelete (@ScriptDir & '\rename.vbs')
	FileWriteLine(@ScriptDir & "\error.log", StringFormat("%s:%s:%s %s-%s-%s   Сменили имя компьютера с %s на %s", @HOUR, @MIN, @SEC, @MDAY, @MON, @YEAR, @ComputerName, $ComputerName))
	Shutdown (6)
EndIf

Соответственно в Config.ini меняешь имя компьютера и запускаешь скрипт.