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
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 61 guests