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.
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. :rolleyes: