dlls/kernel32/computername.c

   1 /*
   2  * Win32 kernel functions
   3  *
   4  * Copyright 1995 Martin von Loewis and Cameron Heide
   5  * Copyright 1999 Peter Ganten
   6  * Copyright 2002 Martin Wilck
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  21  */
  22
  23 #include "config.h"
  24 #include "wine/port.h"
  25
  26 #include <stdarg.h>
  27 #include <string.h>
  28 #ifdef HAVE_UNISTD_H
  29 # include <unistd.h>
  30 #endif
  31 #include <stdlib.h>
  32 #include <errno.h>
  33 #ifdef HAVE_NETDB_H
  34 #include <netdb.h>
  35 #endif
  36
  37 #include "ntstatus.h"
  38 #define WIN32_NO_STATUS
  39 #include "windef.h"
  40 #include "winbase.h"
  41 #include "winerror.h"
  42 #include "winnls.h"
  43 #include "winternl.h"
  44 #include "wine/unicode.h"
  45 #include "wine/exception.h"
  46 #include "wine/debug.h"
  47
  48 #include "kernel_private.h"
  49
  50 WINE_DEFAULT_DEBUG_CHANNEL(computername);
  51
  52 /* Registry key and value names */
  53 static const WCHAR ComputerW[] = {'\\','R','e','g','i','s','t','r','y','\\',
  54                                   'M','a','c','h','i','n','e','\\',
  55                                   'S','y','s','t','e','m','\\',
  56                                   'C','u','r','r','e','n','t','C','o','n','t','r','o','l','S','e','t','\\',
  57                                   'C','o','n','t','r','o','l','\\',
  58                                   'C','o','m','p','u','t','e','r','N','a','m','e',0};
  59 static const WCHAR ActiveComputerNameW[] =   {'A','c','t','i','v','e','C','o','m','p','u','t','e','r','N','a','m','e',0};
  60 static const WCHAR ComputerNameW[] = {'C','o','m','p','u','t','e','r','N','a','m','e',0};
  61
  62 static const char default_ComputerName[] = "WINE";
  63
  64 #define IS_OPTION_TRUE(ch) ((ch) == 'y' || (ch) == 'Y' || (ch) == 't' || (ch) == 'T' || (ch) == '1')
  65
  66 /***********************************************************************
  67  *                    dns_gethostbyname (INTERNAL)
  68  *
  69  *  From hostname(1):
  70  *  "The FQDN is the name gethostbyname(2) returns for the host name returned by gethostname(2)."
  71  *
  72  *  Wine can use this technique only if the thread-safe gethostbyname_r is available.
  73  */
  74 #ifdef  HAVE_LINUX_GETHOSTBYNAME_R_6
  75 static BOOL dns_gethostbyname ( char *name, int *size )
  76 {
  77     struct hostent* host = NULL;
  78     char *extrabuf;
  79     int ebufsize = 1024;
  80     struct hostent hostentry;
  81     int locerr = ENOBUFS, res = ENOMEM;
  82
  83     extrabuf = HeapAlloc( GetProcessHeap(), 0, ebufsize ) ;
  84
  85     while( extrabuf )
  86     {
  87         res = gethostbyname_r ( name, &hostentry, extrabuf, ebufsize, &host, &locerr );
  88         if( res != ERANGE ) break;
  89         ebufsize *= 2;
  90         extrabuf = HeapReAlloc( GetProcessHeap(), 0, extrabuf, ebufsize ) ;
  91     }
  92
  93     if ( res )
  94         WARN ("Error in gethostbyname_r %d (%d)\n", res, locerr);
  95     else if ( !host )
  96     {
  97         WARN ("gethostbyname_r returned NULL host, locerr = %d\n", locerr);
  98         res = 1;
  99     }
 100     else
 101     {
 102         int len = strlen ( host->h_name );
 103         if ( len < *size )
 104         {
 105             strcpy ( name, host->h_name );
 106             *size = len;
 107         }
 108         else
 109         {
 110             memcpy ( name, host->h_name, *size );
 111             name[*size] = 0;
 112             SetLastError ( ERROR_MORE_DATA );
 113             res = 1;
 114         }
 115     }
 116
 117     HeapFree( GetProcessHeap(), 0, extrabuf );
 118     return !res;
 119 }
 120 #else
 121 #  define dns_gethostbyname(name,size) 0
 122 #endif
 123
 124 /***********************************************************************
 125  *                     dns_fqdn (INTERNAL)
 126  */
 127 static BOOL dns_fqdn ( char *name, int *size )
 128 {
 129     if ( gethostname ( name, *size + 1 ) )
 130     {
 131         switch( errno )
 132         {
 133         case ENAMETOOLONG:
 134             SetLastError ( ERROR_MORE_DATA );
 135             break;
 136         default:
 137             SetLastError ( ERROR_INVALID_PARAMETER );
 138             break;
 139         }
 140         return FALSE;
 141     }
 142
 143     if ( !dns_gethostbyname ( name, size ) )
 144         *size = strlen ( name );
 145
 146     return TRUE;
 147 }
 148
 149 /***********************************************************************
 150  *                     dns_hostname (INTERNAL)
 151  */
 152 static BOOL dns_hostname ( char *name, int *size )
 153 {
 154     char *c;
 155     if ( ! dns_fqdn ( name, size ) ) return FALSE;
 156     c = strchr ( name, '.' );
 157     if (c)
 158     {
 159         *c = 0;
 160         *size = (c - name);
 161     }
 162     return TRUE;
 163 }
 164
 165 /***********************************************************************
 166  *                     dns_domainname (INTERNAL)
 167  */
 168 static BOOL dns_domainname ( char *name, int *size )
 169 {
 170     char *c;
 171     if ( ! dns_fqdn ( name, size ) ) return FALSE;
 172     c = strchr ( name, '.' );
 173     if (c)
 174     {
 175         c += 1;
 176         *size -= (c - name);
 177         memmove ( name, c, *size + 1 );
 178     }
 179     return TRUE;
 180 }
 181
 182 /***********************************************************************
 183  *                      _init_attr    (INTERNAL)
 184  */
 185 static inline void _init_attr ( OBJECT_ATTRIBUTES *attr, UNICODE_STRING *name )
 186 {
 187     attr->Length = sizeof (OBJECT_ATTRIBUTES);
 188     attr->RootDirectory = 0;
 189     attr->ObjectName = name;
 190     attr->Attributes = 0;
 191     attr->SecurityDescriptor = NULL;
 192     attr->SecurityQualityOfService = NULL;
 193 }
 194
 195 /***********************************************************************
 196  *           get_use_dns_option
 197  */
 198 static BOOL get_use_dns_option(void)
 199 {
 200     static const WCHAR NetworkW[] = {'S','o','f','t','w','a','r','e','\\',
 201                                      'W','i','n','e','\\','N','e','t','w','o','r','k',0};
 202     static const WCHAR UseDNSW[] = {'U','s','e','D','n','s','C','o','m','p','u','t','e','r','N','a','m','e',0};
 203
 204     char tmp[80];
 205     HANDLE root, hkey;
 206     DWORD dummy;
 207     OBJECT_ATTRIBUTES attr;
 208     UNICODE_STRING nameW;
 209     BOOL ret = TRUE;
 210
 211     _init_attr( &attr, &nameW );
 212     RtlOpenCurrentUser( KEY_READ, &root );
 213     attr.RootDirectory = root;
 214     RtlInitUnicodeString( &nameW, NetworkW );
 215
 216     /* @@ Wine registry key: HKCU\Software\Wine\Network */
 217     if (!NtOpenKey( &hkey, KEY_READ, &attr ))
 218     {
 219         RtlInitUnicodeString( &nameW, UseDNSW );
 220         if (!NtQueryValueKey( hkey, &nameW, KeyValuePartialInformation, tmp, sizeof(tmp), &dummy ))
 221         {
 222             WCHAR *str = (WCHAR *)((KEY_VALUE_PARTIAL_INFORMATION *)tmp)->Data;
 223             ret = IS_OPTION_TRUE( str[0] );
 224         }
 225         NtClose( hkey );
 226     }
 227     NtClose( root );
 228     return ret;
 229 }
 230
 231
 232 /***********************************************************************
 233  *                      COMPUTERNAME_Init    (INTERNAL)
 234  */
 235 void COMPUTERNAME_Init (void)
 236 {
 237     HANDLE hkey = INVALID_HANDLE_VALUE, hsubkey = INVALID_HANDLE_VALUE;
 238     OBJECT_ATTRIBUTES attr;
 239     UNICODE_STRING nameW;
 240     char buf[offsetof( KEY_VALUE_PARTIAL_INFORMATION, Data ) + (MAX_COMPUTERNAME_LENGTH + 1) * sizeof( WCHAR )];
 241     DWORD len = sizeof( buf );
 242     LPWSTR computer_name = (LPWSTR) (buf + offsetof( KEY_VALUE_PARTIAL_INFORMATION, Data ));
 243     NTSTATUS st = STATUS_INTERNAL_ERROR;
 244
 245     TRACE("(void)\n");
 246     _init_attr ( &attr, &nameW );
 247
 248     RtlInitUnicodeString( &nameW, ComputerW );
 249     if ( ( st = NtCreateKey( &hkey, KEY_ALL_ACCESS, &attr, 0, NULL, 0, NULL ) ) != STATUS_SUCCESS )
 250         goto out;
 251
 252     attr.RootDirectory = hkey;
 253     RtlInitUnicodeString( &nameW, ComputerNameW );
 254     if ( (st = NtCreateKey( &hsubkey, KEY_ALL_ACCESS, &attr, 0, NULL, 0, NULL ) ) != STATUS_SUCCESS )
 255         goto out;
 256
 257     st = NtQueryValueKey( hsubkey, &nameW, KeyValuePartialInformation, buf, len, &len );
 258
 259     if ( st != STATUS_SUCCESS || get_use_dns_option() )
 260     {
 261         char hbuf[256];
 262         int hlen = sizeof (hbuf);
 263         char *dot;
 264         TRACE( "retrieving Unix host name\n" );
 265         if ( gethostname ( hbuf, hlen ) )
 266         {
 267             strcpy ( hbuf, default_ComputerName );
 268             WARN( "gethostname() error: %d, using host name %s\n", errno, hbuf );
 269         }
 270         hbuf[MAX_COMPUTERNAME_LENGTH] = 0;
 271         dot = strchr ( hbuf, '.' );
 272         if ( dot ) *dot = 0;
 273         hlen = strlen ( hbuf );
 274         len = MultiByteToWideChar( CP_UNIXCP, 0, hbuf, hlen + 1, computer_name, MAX_COMPUTERNAME_LENGTH + 1 )
 275             * sizeof( WCHAR );
 276         if ( NtSetValueKey( hsubkey, &nameW, 0, REG_SZ, computer_name, len ) != STATUS_SUCCESS )
 277             WARN ( "failed to set ComputerName\n" );
 278     }
 279     else
 280     {
 281         len = (len - offsetof( KEY_VALUE_PARTIAL_INFORMATION, Data ));
 282         TRACE( "found in registry\n" );
 283     }
 284
 285     NtClose( hsubkey );
 286     TRACE(" ComputerName: %s (%u)\n", debugstr_w (computer_name), len);
 287
 288     RtlInitUnicodeString( &nameW, ActiveComputerNameW );
 289     if ( ( st = NtCreateKey( &hsubkey, KEY_ALL_ACCESS, &attr, 0, NULL, REG_OPTION_VOLATILE, NULL ) )
 290          != STATUS_SUCCESS )
 291         goto out;
 292
 293     RtlInitUnicodeString( &nameW, ComputerNameW );
 294     st = NtSetValueKey( hsubkey, &nameW, 0, REG_SZ, computer_name, len );
 295
 296 out:
 297     NtClose( hsubkey );
 298     NtClose( hkey );
 299
 300     if ( st == STATUS_SUCCESS )
 301         TRACE( "success\n" );
 302     else
 303     {
 304         WARN( "status trying to set ComputerName: %x\n", st );
 305         SetLastError ( RtlNtStatusToDosError ( st ) );
 306     }
 307 }
 308
 309
 310 /***********************************************************************
 311  *              GetComputerNameW         (KERNEL32.@)
 312  */
 313 BOOL WINAPI GetComputerNameW(LPWSTR name,LPDWORD size)
 314 {
 315     UNICODE_STRING nameW;
 316     OBJECT_ATTRIBUTES attr;
 317     HANDLE hkey = INVALID_HANDLE_VALUE, hsubkey = INVALID_HANDLE_VALUE;
 318     char buf[offsetof( KEY_VALUE_PARTIAL_INFORMATION, Data ) + (MAX_COMPUTERNAME_LENGTH + 1) * sizeof( WCHAR )];
 319     DWORD len = sizeof( buf );
 320     LPWSTR theName = (LPWSTR) (buf + offsetof( KEY_VALUE_PARTIAL_INFORMATION, Data ));
 321     NTSTATUS st = STATUS_INVALID_PARAMETER;
 322     DWORD err = ERROR_SUCCESS;
 323
 324     TRACE ("%p %p\n", name, size);
 325
 326     _init_attr ( &attr, &nameW );
 327     RtlInitUnicodeString( &nameW, ComputerW );
 328     if ( ( st = NtOpenKey( &hkey, KEY_READ, &attr ) ) != STATUS_SUCCESS )
 329     {
 330         err = RtlNtStatusToDosError ( st );
 331         goto out;
 332     }
 333
 334     attr.RootDirectory = hkey;
 335     RtlInitUnicodeString( &nameW, ActiveComputerNameW );
 336     if ( ( st = NtOpenKey( &hsubkey, KEY_READ, &attr ) ) != STATUS_SUCCESS )
 337     {
 338         err = RtlNtStatusToDosError ( st );
 339         goto out;
 340     }
 341
 342     RtlInitUnicodeString( &nameW, ComputerNameW );
 343     if ( ( st = NtQueryValueKey( hsubkey, &nameW, KeyValuePartialInformation, buf, len, &len ) )
 344          != STATUS_SUCCESS )
 345     {
 346         err = RtlNtStatusToDosError ( st );
 347         goto out;
 348     }
 349
 350     len = (len -offsetof( KEY_VALUE_PARTIAL_INFORMATION, Data )) / sizeof (WCHAR) - 1;
 351     TRACE ("ComputerName is %s (length %u)\n", debugstr_w ( theName ), len);
 352
 353     if ( *size < len + 1 )
 354     {
 355         *size = len + 1;
 356         err = ERROR_BUFFER_OVERFLOW;
 357     }
 358     else
 359     {
 360         memcpy ( name, theName, len * sizeof (WCHAR) );
 361         name[len] = 0;
 362         *size = len;
 363     }
 364
 365 out:
 366     NtClose ( hsubkey );
 367     NtClose ( hkey );
 368
 369     if ( err == ERROR_SUCCESS )
 370         return TRUE;
 371     else
 372     {
 373         SetLastError ( err );
 374         WARN ( "Status %u reading computer name from registry\n", st );
 375         return FALSE;
 376     }
 377 }
 378
 379 /***********************************************************************
 380  *              GetComputerNameA         (KERNEL32.@)
 381  */
 382 BOOL WINAPI GetComputerNameA(LPSTR name, LPDWORD size)
 383 {
 384     WCHAR nameW[ MAX_COMPUTERNAME_LENGTH + 1 ];
 385     DWORD sizeW = MAX_COMPUTERNAME_LENGTH + 1;
 386     unsigned int len;
 387     BOOL ret;
 388
 389     if ( !GetComputerNameW (nameW, &sizeW) ) return FALSE;
 390
 391     len = WideCharToMultiByte ( CP_ACP, 0, nameW, -1, NULL, 0, NULL, 0 );
 392     /* for compatibility with Win9x */
 393     __TRY
 394     {
 395         if ( *size < len )
 396         {
 397             *size = len;
 398             SetLastError( ERROR_BUFFER_OVERFLOW );
 399             ret = FALSE;
 400         }
 401         else
 402         {
 403             WideCharToMultiByte ( CP_ACP, 0, nameW, -1, name, len, NULL, 0 );
 404             *size = len - 1;
 405             ret = TRUE;
 406         }
 407     }
 408     __EXCEPT_PAGE_FAULT
 409     {
 410         SetLastError( ERROR_INVALID_PARAMETER );
 411         ret = FALSE;
 412     }
 413     __ENDTRY
 414
 415     return ret;
 416 }
 417
 418 /***********************************************************************
 419  *              GetComputerNameExA         (KERNEL32.@)
 420  */
 421 BOOL WINAPI GetComputerNameExA(COMPUTER_NAME_FORMAT type, LPSTR name, LPDWORD size)
 422 {
 423     char buf[256];
 424     int len = sizeof(buf) - 1, ret;
 425     TRACE("%d, %p, %p\n", type, name, size);
 426     switch( type )
 427     {
 428     case ComputerNameNetBIOS:
 429     case ComputerNamePhysicalNetBIOS:
 430         ret = GetComputerNameA (name, size);
 431         if (!ret && GetLastError() == ERROR_BUFFER_OVERFLOW)
 432             SetLastError( ERROR_MORE_DATA );
 433         return ret;
 434
 435     case ComputerNameDnsHostname:
 436     case ComputerNamePhysicalDnsHostname:
 437         ret = dns_hostname (buf, &len);
 438         break;
 439     case ComputerNameDnsDomain:
 440     case ComputerNamePhysicalDnsDomain:
 441         ret = dns_domainname (buf, &len);
 442         break;
 443     case ComputerNameDnsFullyQualified:
 444     case ComputerNamePhysicalDnsFullyQualified:
 445         ret = dns_fqdn (buf, &len);
 446         break;
 447     default:
 448         SetLastError (ERROR_INVALID_PARAMETER);
 449         return FALSE;
 450     }
 451
 452     if ( ret )
 453     {
 454         TRACE ("-> %s (%d)\n", debugstr_a (buf), len);
 455         if ( *size < len + 1 )
 456         {
 457             *size = len + 1;
 458             SetLastError( ERROR_MORE_DATA );
 459             ret = FALSE;
 460         }
 461         else
 462         {
 463             memcpy( name, buf, len );
 464             name[len] = 0;
 465             *size = len;
 466             ret = TRUE;
 467         }
 468     }
 469
 470     return ret;
 471 }
 472
 473
 474 /***********************************************************************
 475  *              GetComputerNameExW         (KERNEL32.@)
 476  */
 477 BOOL WINAPI GetComputerNameExW( COMPUTER_NAME_FORMAT type, LPWSTR name, LPDWORD size )
 478 {
 479     char buf[256];
 480     int len = sizeof(buf) - 1, ret;
 481
 482     TRACE("%d, %p, %p\n", type, name, size);
 483     switch( type )
 484     {
 485     case ComputerNameNetBIOS:
 486     case ComputerNamePhysicalNetBIOS:
 487         ret = GetComputerNameW (name, size);
 488         if (!ret && GetLastError() == ERROR_BUFFER_OVERFLOW)
 489             SetLastError( ERROR_MORE_DATA );
 490         return ret;
 491     case ComputerNameDnsHostname:
 492     case ComputerNamePhysicalDnsHostname:
 493         ret = dns_hostname (buf, &len);
 494         break;
 495     case ComputerNameDnsDomain:
 496     case ComputerNamePhysicalDnsDomain:
 497         ret = dns_domainname (buf, &len);
 498         break;
 499     case ComputerNameDnsFullyQualified:
 500     case ComputerNamePhysicalDnsFullyQualified:
 501         ret = dns_fqdn (buf, &len);
 502         break;
 503     default:
 504         SetLastError (ERROR_INVALID_PARAMETER);
 505         return FALSE;
 506     }
 507
 508     if ( ret )
 509     {
 510         unsigned int lenW;
 511
 512         TRACE ("-> %s (%d)\n", debugstr_a (buf), len);
 513
 514         lenW = MultiByteToWideChar( CP_ACP, 0, buf, len, NULL, 0 );
 515         if ( *size < lenW + 1 )
 516         {
 517             *size = lenW + 1;
 518             SetLastError( ERROR_MORE_DATA );
 519             ret = FALSE;
 520         }
 521         else
 522         {
 523             MultiByteToWideChar( CP_ACP, 0, buf, len, name, lenW );
 524             name[lenW] = 0;
 525             *size = lenW;
 526             ret = TRUE;
 527         }
 528     }
 529
 530     return ret;
 531 }
 532
 533 /******************************************************************************
 534  * netbios_char (INTERNAL)
 535  */
 536 static WCHAR netbios_char ( WCHAR wc )
 537 {
 538     static const WCHAR special[] = {'!','@','#','$','%','^','&','\'',')','(','-','_','{','}','~'};
 539     static const WCHAR deflt = '_';
 540     unsigned int i;
 541
 542     if ( isalnumW ( wc ) ) return wc;
 543     for ( i = 0; i < sizeof (special) / sizeof (WCHAR); i++ )
 544         if ( wc == special[i] ) return wc;
 545     return deflt;
 546 }
 547
 548 /******************************************************************************
 549  * SetComputerNameW [KERNEL32.@]
 550  *
 551  * Set a new NetBIOS name for the local computer.
 552  *
 553  * PARAMS
 554  *    lpComputerName [I] Address of new computer name
 555  *
 556  * RETURNS
 557  *    Success: TRUE
 558  *    Failure: FALSE
 559  */
 560 BOOL WINAPI SetComputerNameW( LPCWSTR lpComputerName )
 561 {
 562     UNICODE_STRING nameW;
 563     OBJECT_ATTRIBUTES attr;
 564     HANDLE hkey = INVALID_HANDLE_VALUE, hsubkey = INVALID_HANDLE_VALUE;
 565     int plen = strlenW ( lpComputerName );
 566     int i;
 567     NTSTATUS st = STATUS_INTERNAL_ERROR;
 568
 569     if (get_use_dns_option())
 570     {
 571         /* This check isn't necessary, but may help debugging problems. */
 572         WARN( "Disabled by Wine Configuration.\n" );
 573         WARN( "Set \"UseDnsComputerName\" = \"N\" in HKCU\\Software\\Wine\\Network to enable.\n" );
 574         SetLastError ( ERROR_ACCESS_DENIED );
 575         return FALSE;
 576     }
 577
 578     TRACE( "%s\n", debugstr_w (lpComputerName) );
 579
 580     /* Check parameter */
 581     if ( plen > MAX_COMPUTERNAME_LENGTH )
 582         goto out;
 583
 584     /* This is NT behaviour. Win 95/98 would coerce characters. */
 585     for ( i = 0; i < plen; i++ )
 586     {
 587         WCHAR wc = lpComputerName[i];
 588         if ( wc != netbios_char( wc ) )
 589             goto out;
 590     }
 591
 592     _init_attr ( &attr, &nameW );
 593
 594     RtlInitUnicodeString (&nameW, ComputerW);
 595     if ( ( st = NtOpenKey( &hkey, KEY_ALL_ACCESS, &attr ) ) != STATUS_SUCCESS )
 596         goto out;
 597     attr.RootDirectory = hkey;
 598     RtlInitUnicodeString( &nameW, ComputerNameW );
 599     if ( ( st = NtOpenKey( &hsubkey, KEY_ALL_ACCESS, &attr ) ) != STATUS_SUCCESS )
 600         goto out;
 601     if ( ( st = NtSetValueKey( hsubkey, &nameW, 0, REG_SZ, lpComputerName, ( plen + 1) * sizeof(WCHAR) ) )
 602          != STATUS_SUCCESS )
 603         goto out;
 604
 605 out:
 606     NtClose( hsubkey );
 607     NtClose( hkey );
 608
 609     if ( st == STATUS_SUCCESS )
 610     {
 611         TRACE( "ComputerName changed\n" );
 612         return TRUE;
 613     }
 614
 615     else
 616     {
 617         SetLastError ( RtlNtStatusToDosError ( st ) );
 618         WARN ( "status %u\n", st );
 619         return FALSE;
 620     }
 621 }
 622
 623 /******************************************************************************
 624  * SetComputerNameA [KERNEL32.@]
 625  *
 626  * See SetComputerNameW.
 627  */
 628 BOOL WINAPI SetComputerNameA( LPCSTR lpComputerName )
 629 {
 630     BOOL ret;
 631     DWORD len = MultiByteToWideChar( CP_ACP, 0, lpComputerName, -1, NULL, 0 );
 632     LPWSTR nameW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 633
 634     MultiByteToWideChar( CP_ACP, 0, lpComputerName, -1, nameW, len );
 635     ret = SetComputerNameW( nameW );
 636     HeapFree( GetProcessHeap(), 0, nameW );
 637     return ret;
 638 }
 639
 640 /******************************************************************************
 641  * SetComputerNameExW [KERNEL32.@]
 642  *
 643  */
 644 BOOL WINAPI SetComputerNameExW( COMPUTER_NAME_FORMAT type, LPCWSTR lpComputerName )
 645 {
 646     TRACE("%d, %s\n", type, debugstr_w (lpComputerName));
 647     switch( type )
 648     {
 649     case ComputerNameNetBIOS:
 650     case ComputerNamePhysicalNetBIOS:
 651         return SetComputerNameW( lpComputerName );
 652     default:
 653         SetLastError( ERROR_ACCESS_DENIED );
 654         return FALSE;
 655     }
 656 }
 657
 658 /******************************************************************************
 659  * SetComputerNameExA [KERNEL32.@]
 660  *
 661  */
 662 BOOL WINAPI SetComputerNameExA( COMPUTER_NAME_FORMAT type, LPCSTR lpComputerName )
 663 {
 664     TRACE( "%d, %s\n", type, debugstr_a (lpComputerName) );
 665     switch( type )
 666     {
 667     case ComputerNameNetBIOS:
 668     case ComputerNamePhysicalNetBIOS:
 669         return SetComputerNameA( lpComputerName );
 670     default:
 671         SetLastError( ERROR_ACCESS_DENIED );
 672         return FALSE;
 673     }
 674 }
 675
 676 /***********************************************************************
 677  *              DnsHostnameToComputerNameA         (KERNEL32.@)
 678  */
 679 BOOL WINAPI DnsHostnameToComputerNameA(LPCSTR hostname,
 680     LPSTR computername, LPDWORD size)
 681 {
 682     DWORD len;
 683
 684     FIXME("(%s, %p, %p): stub\n", debugstr_a(hostname), computername, size);
 685
 686     if (!hostname || !size) return FALSE;
 687     len = lstrlenA(hostname);
 688
 689     if (len > MAX_COMPUTERNAME_LENGTH)
 690         len = MAX_COMPUTERNAME_LENGTH;
 691
 692     if (*size < len + 1)
 693     {
 694         *size = len;
 695         return FALSE;
 696     }
 697     if (!computername) return FALSE;
 698
 699     memcpy( computername, hostname, len );
 700     computername[len] = 0;
 701     return TRUE;
 702 }
 703
 704 /***********************************************************************
 705  *              DnsHostnameToComputerNameW         (KERNEL32.@)
 706  */
 707 BOOL WINAPI DnsHostnameToComputerNameW(LPCWSTR hostname,
 708     LPWSTR computername, LPDWORD size)
 709 {
 710     DWORD len;
 711
 712     FIXME("(%s, %p, %p): stub\n", debugstr_w(hostname), computername, size);
 713
 714     if (!hostname || !size) return FALSE;
 715     len = lstrlenW(hostname);
 716
 717     if (len > MAX_COMPUTERNAME_LENGTH)
 718         len = MAX_COMPUTERNAME_LENGTH;
 719
 720     if (*size < len + 1)
 721     {
 722         *size = len;
 723         return FALSE;
 724     }
 725     if (!computername) return FALSE;
 726
 727     memcpy( computername, hostname, len * sizeof(WCHAR) );
 728     computername[len] = 0;
 729     return TRUE;
 730 }