Cambiar el nombre a la PC

07/04/2009 - 23:26 por Jorge Ochoa | Informe spam
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
 

Leer las respuestas

#1 Maxi
08/04/2009 - 01:14 | Informe spam
Hola, que quiere decir que deja de funcionar el SQL server?

Si cambia el nombre de la maquina ademas debera en el SQL correr el
siguiente script

SP_DROPSERVER 'OLDSERVERNAME'

SP_ADDSERVER 'NEWSERVERNAME',LOCAL

Reiniciar el servicio



Maxi Accotto
Microsoft MVP en SQL Server
Consultor en SQL Server



"Jorge Ochoa" escribió en el mensaje
de noticias:
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

Preguntas similares