Te env�o unas instrucciones que me envi� un buen amigo que env�a usuario y contrase�a desde VB. No se si te servir� (s� poquito de VB); pero por si acaso... Saludos, Xavier ---------------------------------------------------------------------------- ------------------------------ Como saltarse la petici�n de login al as400 del CA400.
Situaci�n . Cuando rearranca una maquina y se hace una conexion al as400 , el navegador detecta que no hay un entorno arrancado y aun pasandole el login y la contrase�a a nuestra conexion ADO, aparece la pantalla de login as as400. Esto puede solucionarse de dos maneras. O crear un usuario igual al de windows en el as400 e indicarle al navigator que se conecte con ese usuario y hacer de navegador a traves de dll que instala CA400. En este caso en nuestro programa VB debemos agregar la referencia IBM AS400/ Client Access Express Activex Object Library que apunta a la libreria path de instalacion de CA400 \shared\cwbx.dll. "c:\archivos de programa\ibm\clientaccess\shared\cwbx.dll" por ejemplo Creamos una rutina llamada Signon por ejemplo option explicit Dim AS400 As New cwbx.AS400System Dim sistema As New cwbx.systemNames ' si queremos usarlas en nuestro programa las dimensionaremos en el formulario ' o globalmente ------------------------------------- sub form Load() AS400.Define sistema.DefaultSystem If Not CNAS400.HasSignedOn Then ' se comprueba si esta conectado Signon endif end sub ------------------------------------- Sub Signon '''''''''''''AS400.Define sistema.DefaultSystem ' esto solo se puede hacer una unica vez, casca si es ejecutado mas veces AS400.WindowHandle = Me.hWnd AS400.UserID = myuser AS400.Password = mypass AS400.PromptMode = cwbcoPromptNever AS400.Signon end sub nota . Si es usado un remotecommand puede indicarse en el systemname lo siguiente rmt.systemname=sistema.defaultsystem ---------------------------------------------------------------------------- ------------------------------ ----- Original Message ----- From: "H�ctor Gonz�lez Gea" <[EMAIL PROTECTED]> To: "Forum AS400" <[EMAIL PROTECTED]> Sent: Tuesday, February 11, 2003 11:05 PM Subject: Ejecutar un Programa de AS400 desde un Pc con Visual Basic > Necesito llamar a un programa del AS400 pasandole unos par�metros, pero > necesito decirle que usuario lo va a ejecutar para que coja toda su > configuraci�n de librerias, etc. > Lo estaba haciendo con el programa que instala el CA (RMTCMD) pero no se > como pasarle lo del usuario. Me coje el que tengo definido en el navegador. > He intentado (CWBLOGON) pero como si nada. > Estuve mirando lo del FTP y lo del ADO, pero necesito m�s informaci�n. Donde > la puedo obtener o se me la pasais. > Un saludo. > > > _____________________________________________________ > Forum.HELP400 es un servicio m�s de NEWS/400. > � Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED]?body=LEAVE > > _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]?body=LEAVE
