Nombre de mi servidor.

Dim SysInf As SystemInformation
MsgBox(SysInf.ComputerName())

Gracias Harlold V.

Pero mi problema es que no dispongo de espacio de nombre
System.Windows.Forms . Ya que estoy realizando un proyecto de Servicio
de Windows.

Hay alguno otra manera de averiguar-lo?

Graicas por todo.

"Harold V" escribió en el mensaje
news:

Dim SysInf As SystemInformation
MsgBox(SysInf.ComputerName())

David Cebrian wrote:

Estoy realizando ne VB.NET un servicio de windows, que se va a
conectar a una BBDD SQL Server que se encuentra en la misma maquina,
alguien me puede decir como averiguo el nombre de la maquina?.

Un saludo y gracias por todo.

System.Environment.MachineName ?

Saludos,
Alex

Si pudieras agregar un modulo:

Module Module1
Public Const MAX_COMPUTERNAME_LENGTH As Long = 31
Public Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
End Module

luego:

Protected Overrides Sub OnStart(ByVal args() As String)
' Agregar código aquí para iniciar el servicio. Este método debería
poner en movimiento
' los elementos para que el servicio pueda funcionar.
Call PcName()
End Sub

Sub PcName()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = Microsoft.VisualBasic.Strings.StrConv (dwLen, "X")
'Get the computer name
GetComputerName(strString, dwLen)
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox(strString)
End Sub

Gracias Harold,

Por si te sirve a ti, o a otra persona, he encontrado una manera mas
facil de realizar la misma operación sin unsar el windows.system.forms, no
se si esta bien echo, pero me funciona.


Dim ComputerName as string
ComputerName = system.net.dns.GetHostName()


"Harold V" escribió en el mensaje
news:

Si pudieras agregar un modulo:

Module Module1
Public Const MAX_COMPUTERNAME_LENGTH As Long = 31
Public Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
End Module

luego:

Protected Overrides Sub OnStart(ByVal args() As String)
' Agregar código aquí para iniciar el servicio. Este método

debería

poner en movimiento
' los elementos para que el servicio pueda funcionar.
Call PcName()
End Sub

Sub PcName()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = Microsoft.VisualBasic.Strings.StrConv (dwLen, "X")
'Get the computer name
GetComputerName(strString, dwLen)
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox(strString)
End Sub