AS/400 - Acceder desde pc a libreria de AS400

Hola a todos

lo que intento es que al iniciar el PC se me haga un mapeado o me de acceso a una carpeta (libreira) del AS400. Si lo hago manualmente, es decir abriendo "My PC" y escribiendo la direccion " \AS400qdlsesarchivos " me pide nombre de usuario y contraseña, una vez autentificado ya accedo. Alguien sabe como hacer que esto se haga automaticamente?

Gracias por adelantado
Didac

Veras el as400 exige siempre el usuario y la contraseña para conectarse a el.

El acceder a las carpetas compartidas tipo PC del as400 no es una excepción.

Una forma de hacerlo es modificando a través del “operations navigator” la forma de conexión y para ello debes de sincronizar el usuario y contraseña PC con el usuario y contraseña AS400, todo esto aceptando el riesgo que con lleva.

Pero si la conexión la necesitas para ejecutar un programa o leer algo cuando la maquina arranca, créate un programa y embebe el usuario y la contraseña.

En primer lugar darte las gracias por la respuesta.
El problema es que no puedo usar el mismo usuario del Pc en el AS.
Podrias indicarme como hacer, para poder embeber el usuario y contraseña en un programa, para acceder al AS400.

Gracias
Didac

En ADO

Private conexion_192_168_xxx_xxx As New ADODB.Connection
Private CONEXION_LECTURA_ESCRITURA As New ADODB.Command
Private registros As New ADODB.Recordset
Private registro1 As New ADODB.Recordset

Private xqry As String

Dim FOR1 As Integer
Dim FOR2 As Integer
Dim FOR3 As Integer


'variable para excel
Private hoja_excel As Object
Private LINEA As Integer
Private LINEA_INICIO As Integer
Private COLUMNA As Integer



Option Explicit


Private Sub Form_Load()

'-------------------
'CONECTAR CON BASE DE DATOS
'-------------------
conexion_192_168_xxx_xxx.Open "Provider=IBMDA400;Data Source=192.168.xxx.xxx;", "usuario", "contraseña"

Set CONEXION_LECTURA_ESCRITURA.ActiveConnection = conexion_192_168_xxx_xxx

End sub

==============================================================

ODBC

Option Explicit

Private CONEXION_LECTURA_ESCRITURA As rdoConnection
Private ENTORNO_LECTURA_ESCRITURA As rdoEnvironment
Private RESULTADO As rdoResultset

Private xqry As String
Private PR_sentencia As String
Private PR_usuario As String


Private Sub contraseña_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call F10_Click
End If
End Sub

Private Sub F10_Click()

PR_sentencia = "UID=" & usuario_programa & ";PWD=" & contraseña & ";"
'-------------------
'CONECTAR CON BASE DE DATOS
'-------------------
Set ENTORNO_LECTURA_ESCRITURA = rdoEngine.rdoCreateEnvironment("", "", "")

Set CONEXION_LECTURA_ESCRITURA = ENTORNO_LECTURA_ESCRITURA.OpenConnection(DSNAME:="AS400", Prompt:=rdDriverCompleteRequired, Connect:=PR_sentencia)

ENDSUB

==============================================================
FTP

Fichero bat
Echo off
Cls
ftp –s c:fichero.txt 192.168.xxx.xxx
cls
exit

fichero txt
usario
contraseña
put c:carpeta_pcfichero_pc /qdls/mi_carpeta_en_as400/fichero_pc
quit