Autor
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:
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.
En línea
