Resuelto, un boceto de como:
Código:
function consulta(campo,nombre)
cadena = nombre
cadena1 = campo
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
'strPathtoTextFile = "C:\users\mua\desktop\scripts"
strPathtoTextFile ="\\loto\compartida"
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=YES;FMT=Delimited"""
strFile = "inventario.csv"
'msgbox "Select * FROM inventario.csv where Alias_interno = " & "'" & cadena & "'"
objRecordset.Open "Select * FROM inventario.csv where " & cadena1 & "= " & "'" & cadena & "'",objConnection, adOpenStatic, adLockOptimistic, adCmdText
Do Until objRecordset.EOF
document.write objRecordset.Fields.Item("Alias_interno")
'Wscript.Echo objRecordset.Fields.Item("FirstName")
'Wscript.Echo objRecordset.Fields.Item("Department")
'Wscript.Echo objRecordset.Fields.Item("HireDate")
objRecordset.MoveNext
Loop
end function
salu2