Nombre de equipo

Gracias por el dato 'Lope' sin enbargo no se que version de .net usas;
'SergioT' quiere hacer esto en la ver 2003 en la 2005 el nombre de equipo se
saca con un simple my.computername en el 2003 entonces segúna la librería que
das es de la siguiente manera

[dim pc as SystemInformation
messagebox.show pc.computername ]

porque probe como dices y no da :S

bueno yo no hice gran cosa, y graccias por el dato asi todos aprendemos =)

salu2
MaLkaViAn_NeT
http://malkavian-net.webcindario.com/
www.foroschl.tk


"Lope" wrote:

SergioT escribió:

> 1. Como puedo obtener en vb.net el nombre de la computadora en la que esta
> corriendo la aplicacion

SystemInformation.ComputerName

Hola Eduardo

Gracias por la aclaracion, efectivamente tienes toda la razon del mundo en
tu observación, la verdad es que usando la registry se puede tambien, solo
que hay que mejorar el codigo para no tener ese problema, probé lo que
enviaste y con una pequeña observacion de sintaxis que seguro es del vb2005
me funciono muy bien, aqui t mando la version final de mi metodo para el
vb2003

Public Shared Function GetInstanciasLocales() As ArrayList

Dim dmo As New SQLDMO.Application
Dim srvGroup As SQLDMO.ServerGroup
Dim regServer As SQLDMO.RegisteredServer

Dim s As New ArrayList

For Each srvGroup In dmo.ServerGroups
For Each regServer In srvGroup.RegisteredServers
s.Add(regServer.Name)
Next
Next
Return s
End Function

Gracias por tu tiempo

Salu2
Sergio

"Eduardo A. Morcillo [MS MVP VB]" <emorcillo .AT. mvps.org> escribió en el
mensaje news:O$

Gracias por el Environment.MachineName no lo conocia y en cuanto a lo
del SQl t comento que la libreria a la que haces referencia solo t
muestra los servidores en la red en las computadoras Servidoras
(win2000,2003) y no las instancias de la maquina XP en la que estas.
El amigo MaLkaViAn_NeT me dió la idea de hallar las instancias en la
registry del xp en esta misma conversacion

El codigo esta mal, por dos motivos. Uno es que toma el valor "Grupo de
SQL Server" (puede tener otro nombre o ni siquiera existir) como fijo y el
otro es que puede haber varios grupos. La lista completa la puedes obtener
mediante SQLDMO sin tener que complicarte con el registro:

Dim dmo As New SQLDMO.Application()

For Each serverGroup As ServerGroup In dmo.ServerGroups
For Each regServer As RegisteredServer In serverGroup.RegisteredServers
Console.WriteLine(regServer.Name)
Next
Next

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C