Componentes de una red

[rolando]

Buenas noches,

Hay alguna función con la que pueda cargar un array con los nombres de las pc's que integran una red?.

Gracias.

Rolando

[Willi Quintana]

Se me ocurre que cada vez que entre un usuario con su pc, lo registres en una dbf, verificas la fecha, horam ip, macaddress etc..
Salu2

[rolando]

Buen día,

Gracias por la respuesta, pero no es lo que necesito.

Por ejemplo, tengo tres pc's conectadas en red. (PC1, PC2 y PC3).

Necesito que al iniciar mi sistema, en un array cargar los nombres de las pc's integrantes de la red, es decir que, en el caso de este ejemplo en el array quede así:

{ "PC1" , "PC2" , "PC3" }

Gracias.

Rolando

[QAZWSX2K]

yo hace unos meses hice un programa que me colocaba en una dbf todas las impresoras que hubieran en una red, no lo encuentro pero basicamente se basada en un winexec el cual ejecuta el comando de windows "net view" luego hacia otro net con el resultado de este, espero te sirva la idea

[rolando]

Hola,

Gracias por responder.

Efectivamente, si voy al dos y ejecuto el comando "net view", muestra el nombre de las pc's conectadas en red. Pero ¿como hago para "meterlos" en un array?.

Gracias.

Rolando

[QAZWSX2K]

le hace salida a un txt y lees el txt con "net view > cosa.txt" y luego haces un append from SDF a la dbf

[rolando]

Muchas Gracias.

Voy a hacerlo así, leeré el archivo con memoread para pasarlo a una variable que luego procesaré para extraerle todos los nombres de pc y pasarlos al array.

De Nuevo Gracias por la ayuda.

Rolando

[Biel EA6DD]

Si son pc conectados a un dominio, puedes recuperar los nombres con Active Directory Provider.

Code: Select all  Expand view  RUN

FUNCTION Main()
   LOCAL oAdoCommand,oAdoConnection,oRs,aPc:={}
   oAdoCommand:=CreateObject("ADODB.Command")
   oAdoConnection:=CreateObject("ADODB.Connection")
   oAdoConnection:Provider:="ADsDSOObject"
   oAdoConnection:Open("Active Directory Provider")
   oAdoCommand:ActiveConnection:=oAdoConnection
   oAdoCommand:CommandText:="Select name from 'LDAP://NOMBRE DOMINIO' Where objectCategory='computer'"
   oRs:=oAdoCommand:Execute()
   oRs:MoveFirst()
   DO WHILE !oRs:Eof()
         aAdd(aPc,oRs:Fields("Name"):Value)
         oRs:MoveNext()
   ENDDO
   FOR i:=1 TO Len(aPc)
        ?aPc[1]
   NEXT
   RETURN NIL