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