Componentes de una red

Componentes de una red

Postby rolando » Tue Apr 15, 2008 12:28 am

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 :D
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Postby Willi Quintana » Tue Apr 15, 2008 12:50 am

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
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Postby rolando » Tue Apr 15, 2008 1:00 pm

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 :D
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Postby QAZWSX2K » Tue Apr 15, 2008 6:41 pm

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
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby rolando » Tue Apr 15, 2008 9:02 pm

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 :D
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Postby QAZWSX2K » Tue Apr 15, 2008 9:15 pm

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
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby rolando » Tue Apr 15, 2008 9:58 pm

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 :D
User avatar
rolando
 
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Postby Biel EA6DD » Wed Apr 16, 2008 6:51 am

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
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 61 guests