Dim WshShell, Hostname, Caption, Text Set WshShell = WScript.CreateObject("WScript.Shell") Hostname = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname") WScript.Echo "Hostname: " & Hostname Caption = "Добро пожаловать!" Text = "Для завершения установки сообщите по телефону 88021 имя Вашего компьютера: " & Hostname WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", Caption WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", Text