carlasanti
26 de Septiembre del 2003

Gracias a quien me responda
Necesito saber como conseguir el nombre de las terminales en una red NT y ademas como enviarle un mensaje a la pc que yo escoja.
Gracias por todo

Caz
26 de Septiembre del 2003

hola chica si me escribes te envio un codigo bueno para saber hasta cual es la Mac Adress

carlasanti
26 de Septiembre del 2003

Gracias caz:
Sabes lo que necesito hacer es lo siguiente:
Abrir una ayuda donde se encuentren los nombres de las pcs de la red. El usuario escogera a quien desea enviarle un mensaje, le escribe y lo envia a la pc correspondiente. Ese es mi problema. Gracias

RAFA
26 de Septiembre del 2003

Para saber el nombre del PC desde codigo usa:

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Global nombrePC As String 'Variable para el nombre del pc
Public Sub RecuperaNombrePc()
Dim strBuff As String
Dim lNum As Long, lTam As Long
strBuff = Space(255)
lTam = Len(strBuff)
lNum = GetComputerName(strBuff, lTam)
nombrePC = Trim(strBuff)
Dim i As Integer
Dim c As Integer
For i = 1 To Len(nombrePC)
c = Asc(Mid(nombrePC, i, 1))
If c = 0 Then
nombrePC = Left(nombrePC, i - 1)
End If
Next i
End Sub
Llama a este procedimiento desde donde necesites