Necesito cambiar el nombre del host

[David Vans]

Hola
Estoy creando una aplicacion que permita cambiar el nombre del host de mi maquina local. uso esto pero no me cambia nada ni reiniciando.

Código [Seleccionar] Expandir

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" ( _
ByVal lpComputerName As String) As Long
Public Function CambiarNombreOrdenador(NombreOrdenador As String) As Boolean
    Dim lResult As Long
    Dim fRV As Boolean
    lResult = SetComputerName(NombreOrdenador)
    If lResult <> 0 Then
        fRV = True
    Else
        fRV = False
    End If
    CambiarNombreOrdenador = fRV
End Function

No se si esta bien hecho o hay otra forma.