Visual Basic - Nombre del PC

Life is soft - evento anual de software empresarial
 
Vista:

Nombre del PC

Publicado por Alberto (9 intervenciones) el 12/09/2003 14:13:08
como puedo saber el nombre de un equipo a traves de codigo en visual. Debe haber alguna instruccion que te lo diga pero no la encuentro.
De hecho lo que quiero tb si es posible es que me devuelva la ruta de un archivo, pero la ruta de red no la local.
Osea , si busco el archivo hola.txt que me devuelva " \\PC1\C\ " , en lugar de " C:\ "

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 109
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Nombre del PC

Publicado por Yamil Bracho (226 intervenciones) el 12/09/2003 16:15:40
Hay una funcion en el Win32 API que te retorna el nombre de la maquina. El codigo seria (Lo tome de una aplicacion que tengo en Access)

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompName, lngLen)
Else
fOSMachineName = ""
End If
End Function

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar