void
InitializeHostName(
    char **valuePtr,
    int *lengthPtr,
    Tcl_Encoding *encodingPtr)
{


    Tcl_DString ds;
    Tcl_DStringInit(&ds);









    if (TclpHasSockets(NULL) == TCL_OK) {
	/*
	 * The buffer size of 256 is recommended by the MSDN page that
	 * documents gethostname() as being always adequate.
	 */
	
	Tcl_DString inDs;
	
	Tcl_DStringInit(&inDs);
	Tcl_DStringSetLength(&inDs, 256);
	if (gethostname(Tcl_DStringValue(&inDs),
		Tcl_DStringLength(&inDs)) == 0) {
	    Tcl_ExternalToUtfDString(NULL, Tcl_DStringValue(&inDs), -1,
		    &ds);
	}
	Tcl_DStringFree(&inDs);
    } else {
	/*
	 * Check for the netbios name
	 */
	WCHAR wbuf[MAX_COMPUTERNAME_LENGTH + 1];
	DWORD length = MAX_COMPUTERNAME_LENGTH + 1;
	if (GetComputerNameW(wbuf, &length) != 0) {
	    /*
	     * Convert string from native to UTF then change to lowercase.
	     */
	    Tcl_UtfToLower(Tcl_WinTCharToUtf((TCHAR *)wbuf, -1, &ds));
	}
    }

    *encodingPtr = Tcl_GetEncoding(NULL, "utf-8");
    *lengthPtr = Tcl_DStringLength(&ds);
    *valuePtr = ckalloc((*lengthPtr) + 1);
    memcpy(*valuePtr, Tcl_DStringValue(&ds), (size_t)(*lengthPtr)+1);