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