Mensajes

[Enter your Password:]

Buenas, el mismo usuario tiene acceso a ambos servidores?

bueno me explico mejor para que me entiendas:

tengo 2 servidores:

1: srvlotus/ser
2: srvdoc/doc

tengo configurado en el notes los LOCATIONS para que acceda a cada uno segun el que ponga, por ejemplo:

Enter your Password: *****
For User: ( en este desplegable existen 2 usuarios)
(Administrador Lotus/doc | Administrador Lotus/Ser| other)
At Location: :(en este desplegable existen 2 valores)
(BIZ|GES)


Entonces segun lo que introduzca en el formulario de ADMIN NOTES entra con un usuario o con otro en su respectivo servidor y con su respectivo ID, esto lo tengo señalado en la parte del LOTUS NOTES donde pone Address Book/Advanced/Locations
aqui estan los dos Locations donde vienen los datos que corresponde a cada location que es el servidor al que apunta, su Id correspondiente y su usuario.


el problema es que en el codigo de Visual basic si hago debug encuentro que a veces en la variable S2 tenemos lo siguiente:
"CN=Administrador Lotus/O=ser"

y otras veces:

"CN=Administrador Lotus/O=doc"

he notado que segun estoy trabajando con notes y accedo a un servidor u otro es cuando se cambia este valor, entonces, en VB funciona mi codigo solo para el servidor al que apunte, los dos funcionan bien pero si tienen respectivamente su servidor correcto con su usuario.
Existe alguna manera de decirle al Objeto NotesSession que se inicializa con un usuario determinado? por que intento modificar S2.EffectiveUser ( por ejemplo) y me dice que es una propiedad de solo lectura.

Como bien he dicho el codigo funciona respectivamente del servidor al que apunte S2, si pudieras como decirme como modificar S2 antes o despues de inicializar(s2.Initialize) para que coja un usuario u otro tendriamos el problema resuelto. es realmente lo que hace Notes antes de entrar a los servidores cuando te pide la contraseña. Espero haberme explicado bien ahora. Un saludo y Gracias

Existe alguna manera desde VB de llamar al comando de lotus para que encripte la password? m... no se si me explico, grabar los datos en el documento y luego procesar el campo HTTPPasword para que lo encripte, es posible? Un saludo y muchas gracias!!

**MODIFICADO***

Bueno ya he conseguido lo que queria, cambiando el campo y aplicando otro comando que es:
Call doc.ComputeWithForm(False, True)
 Call doc.Save(True, False)
ahora tengo otro problema, intento a acceder a otro servidor distinto y me saca el siguiente mensaje

Código (vb) [Seleccionar] Expandir

s2.Initialize
Set dB2 = s2.GetDatabase("server2", "names.nsf") -> linea que falla
Set v2 = dB2.GetView("ListadoUsuarios")


Error '-2147217233(80041af)' en tiempo de ejecucion:
Password or other security violation for database server2!!names.nsf

que ocurre Aqui? los IDs son distintos para cada servidor, es posible que me este cojiendo el del primer servidor o algo, no entiendo podríais ayudarme?
he comprobado que s2 es igual a lo que era s1!! y no puede ser igual porque el usuario no es el mismo, aunque la contraseña si es igual es como si intentara acceder con el mismo usuario a otra base de datos alojada en otro servidor sin permisos...como podría cambiar s2?Un saludo
GRACIAS!!!

jejej,te aconsejo  que busques sobre SOCKETS y como bien ha dicho 3D1 un poquito de TCP/IP
yo exactamente diria que quieres  programar un "crazy horse" o_O

Gracias Kasi, tengo otra duda, tengo un campo que es HTTPPasword y usa un tipo de encriptacion, como puedo averiguar este tipo de encriptacion? necesito saberlo para poder realizar la aplicacion de VB el fin de essta aplicación es cambiar el password a todos los usuarios al a vez. te comento:

yo cuando entro en 1 usuario, me sale el formulario de la persona a editar.
despues introduces todos los datos para la aplicación web y uno de ellos es el HTTPPasword, pero cuando lo intruduzco y guardo el documento, la clave se cambia, no encuentro ninguna similitud de contraseñas para poder sacar la formula de cifrado. por ejemplo te doy una lista de passwords que he probado:

a:(420965F2DA150B44CBFADD695AB5BBE9)
b:(355EF2217E5693DFACA55CA86AB93B35)
c:(2EE502C509FD9B1DDD624C0C948B2D42)
d:(8E93A29BE8FB2D528FD3E06422AC2B25)
ab:(A271DD471E3AF870120B21F6DE2817A8)

como puedo sacar esta formula? Un saludo y gracias!

bueno entonces al fin y al cabo es lo mismo si trabajamos con documentos, digamos que en el diseño del lotus me he creado una vista que se llama ListadoUsuarios, es una vista donde sale el nombre  la contraseña y todo relacionado con los usuarios, ahora me gustaria por ejemplo cambiar el nombre del usuario o la contraseña o cualquier campo, jeje esto es por necesidad necesito cambiarle la contraseña a todos los usuarios mediante una mascara por ejemplo 111aa423 que sea todo aleatorio,
entonces digamos que he puesto esto

Código (vb) [Seleccionar] Expandir

dim s as new NotesSession
dim db as NotesDatabase
dim v as NotesView
dim doc as NotesDocument
Dim subj As Variant

set db = s.GetDatabase("Server", "names.nsf")
set v = db.GetView("ListadoUsuarios")

set doc = v.getFirstDocument()
while not doc is nothing

'aqui tendria que realizar la modificación de el/los campos de la vista que quiero
subj = doc.GetItemValue("LastName")
MsgBox subj(0)
Set doc = v.GetNextDocument(doc)
wend

Cual es la sintaxis para acceder directamente al campo por ejemplo LastName de la vista ListadoUsuarios? Un saludo y gracias a los 2 me ha servido mucho vuestra ayuda

Buenas Gente, como podría acceder a una base de datos LOTUS y modificarla desde cualquier lenguaje de programación? Por ejemplo yo suelo programar en VB pero no me importa si me lo dais en otro lenguaje, he encontrado varias cosas pero son solo para hacer vistas a la bbdd no modificables. de momento he visto estas 2 maneras:

connstr = "Driver={Lotus NotesSQL driver (*.nsf)};"
connstr = connstr & "Database=names.nsf;Server="Server;"
connstr = connstr & "Uid=Usuario;" & "Pwd=password"

he podido ver los campos de 1 vista mediante un recordset, el problema es que no lo puedo modificar, existe alguna manera que no sea desde el propio lotus? Un saludo y gracias!

Hola gente, mi duda es facil pero no consigo encontrar la solucion:

- Cuando compilo mi aplicación se genera un *.exe  todo perfectamente, lo que no entiendo es por que debajo del nombre, la descripcion del tipo de archivo pone BCN alguien sabe como puedo quitar esa descripción? me sale igual en todos los que compilo y no se como quitarla o cambiarla. Un saludo

****modificado****
OK en las opciones de la compilación viene una pestaña que pone compañia. Ahí estaba . Gracias Un saludo

Gracias de momento me compila, pero que limitaciones tiene esto? por ejemplo

Código (vb) [Seleccionar] Expandir

Type cuenta
    numCuenta As String
    movimientos() As estructuraISM
    numMovimientos As Integer
End Type

Type Banco
    cuentas() As cuenta
    numCuentas As Integer
End Type

es muy probable que cada cuenta tenga mas de 300 movimientos, esto daria algun problema? si yo voy redimensionando poco a poco? o al final si son muchos el programa se cuelga por ser demasiados?

y como la hago crecer dinamicamente? si asignarle el tamaño?

Código (vb) [Seleccionar] Expandir

Type cuenta
    numCuenta As String
    movimientos() As estructuraISM
    numMovimientos As Integer
End Type

Type Banco
    cuentas() As cuenta
    numCuentas As Integer
End Type

Hola gente me he visto con el problema de que no puedo crear tipos de datos que contengan mas de 64 K como puedo solucionar esto? Necesito crear los 3 tipos siguientes:

Código (vb) [Seleccionar] Expandir


Type estructuraISM
     identificacion As String
     Banco As String
     oficina As String
     numCuenta As String
     fechaInicial As String
     fechaFinal As String
     debeHaber As String 'D=1 H=2
     importeInicial As String
     clave As String
     modalidad As String
     nombreEmpresa As String
     libre As String
     fechaOperacion As String
     fechaValor As String
     conceptoComun As String
     codigosBBVA As String
     importe As String
     nDocumento As String
     referencia1 As String
     referencia2 As String
     codigoDato As String
     concepto1 As String
     concepto2 As String
     talon As String
     nApuntesDebe As String
     totalImportesDebe As String
     nApuntesHaber As String
     totalImportesHaber As String
     cSaldoFinal As String
     saldoFinal As String
     claveDivisa As String
     nRegistros As String
     numero As String
End Type
Type cuenta
    numCuenta As String
    movimientos(100000) As estructuraISM
    numMovimientos As Integer
End Type

Type Banco
    cuentas(20) As cuenta
    numCuentas As Integer
End Type

como puedo conseguir que compile y que funcione? Es necesario que tengan los limites que le he establecido. un saludo y Gracias!