[reactos] 01/01: [SYSSETUP] Set registry hostname in WriteComputerSettings (#1589)

[Katayama Hirofumi MZ]

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=9a39315d467b0641169f8d...

commit 9a39315d467b0641169f8d5dbd5d9eeb1b07f7e1
Author:     Katayama Hirofumi MZ [e-mail]
AuthorDate: Wed May 29 19:59:40 2019 +0900
Commit:     GitHub [e-mail]
CommitDate: Wed May 29 19:59:40 2019 +0900

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

Based on @Doug-Lyons's patch. CORE-16067
---
 dll/win32/syssetup/wizard.c | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/dll/win32/syssetup/wizard.c b/dll/win32/syssetup/wizard.c
index 1e541da3f1..8422a9c9c6 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;
 }