From: Katayama Hirofumi MZ <katayama.hirofumi.mz@gmail.com>
Date: Wed, 29 May 2019 10:59:40 +0000 (+0900)
Subject: [SYSSETUP] Set registry hostname in WriteComputerSettings (#1589)
X-Git-Tag: 0.4.14-dev~934
X-Git-Url: https://git.reactos.org/?p=reactos.git;a=commitdiff_plain;h=9a39315d467b0641169f8d5dbd5d9eeb1b07f7e1

[SYSSETUP] Set registry hostname in WriteComputerSettings (#1589)

Based on @Doug-Lyons's patch. CORE-16067
---

diff --git a/dll/win32/syssetup/wizard.c b/dll/win32/syssetup/wizard.c
index 1e541da3f10..8422a9c9c63 100644
--- a/dll/win32/syssetup/wizard.c
+++ b/dll/win32/syssetup/wizard.c
@@ -534,6 +534,8 @@ WriteComputerSettings(WCHAR * ComputerName, HWND hwndDlg)
 {
     WCHAR Title[64];
     WCHAR ErrorComputerName[256];
+    LONG lError;
+    HKEY hKey = NULL;
 
     if (!SetComputerNameW(ComputerName))
     {
@@ -560,6 +562,31 @@ WriteComputerSettings(WCHAR * ComputerName, HWND hwndDlg)
     /* Set the accounts domain name */
     SetAccountsDomainSid(NULL, ComputerName);
 
+    /* Now we need to set the Hostname */
+    lError = RegOpenKeyExW(HKEY_LOCAL_MACHINE,
+                           L"SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters",
+                           0,
+                           KEY_SET_VALUE,
+                           &hKey);
+    if (lError != ERROR_SUCCESS)
+    {
+        DPRINT1("RegOpenKeyExW for Tcpip\\Parameters failed (%08lX)\n", lError);
+        return TRUE;
+    }
+
+    lError = RegSetValueEx(hKey,
+                           L"Hostname",
+                           0,
+                           REG_SZ,
+                           (LPBYTE)ComputerName,
+                           (wcslen(ComputerName) + 1) * sizeof(WCHAR));
+    if (lError != ERROR_SUCCESS)
+    {
+        DPRINT1("RegSetValueEx(\"Hostname\") failed (%08lX)\n", lError);
+    }
+
+    RegCloseKey(hKey);
+
     return TRUE;
 }