Cambiar el nombre a la PC

hola amigos
tengo un pequeño problema a ver si me pueden ayudar
trato de cambir el nombre a una pc desde codigo pero no parece que
funciona
bien
el codigo es el siguiente
Public Declare Function SetComputerName Lib "kernel32" Alias
"SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command3_Click()
If SetComputerName(TxtServerNuevo.Text) Then
MsgBox "Reinicie el PC"
Shell "shutdown -t 1 -f -s"
End If
End Sub
el problema que cuando arranco el pc, en las propiedades del sistema me
sale
el nuevo nombre, el SQL SERVER deja de funcionar, pero cuando uso de nuevo
el
codigo para volver al nombre anterior el sql no funciona, pero cambio
desde
las propiedades del sistema el nombre al nombre al anterior el sql vuelve
a
funcionar
es como si el cambio de nombre usando las instrucciones dadas con el
setcomputername, ojo que si cambio el nombre de la maquina deja de
funcionar
el sql server, pero si la vuelvo a la que tenia antes, vuelve a funcionar
el
sql server