lancer un programme as/400 via VB6

bonjour
je souhaiterais savoir si quelqu'un sait comment exécuter un programme as400 à partir de vb6.
j'ai récupéré le code ci-dessous qui marche bien mais je suis obligé de mettre en dur le profil et le mot de passe.

ce que je voudrais c'est faire la même chose mais avec une connexion automatique à partir du profil windows, ce dernier étant synchroniser avec l'as400 (c-à-d me connecter sans reneigner en dur le profil et le mot de passe).

voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub main()   Dim systemnames As New cwbx.systemnames Dim as400 As New cwbx.AS400System Dim cmd As New cwbx.Command   ' if default system, then code : ' as400.Define systemNames.DefaultSystem   as400.Define "myas400.company.com"   as400.UserID = "XXXX" as400.Password = "YYYYYY" as400.PromptMode = cwbcoPromptNever as400.Signon   ' Set the System property of the command object Set cmd.System = as400 cmd.Run "CALL MYLIB/MYPGM PARM(XXXX YYYYY)"   End Sub

---

Merci pour votre aide et désolé si je me trompe de forum c'est la première fois

Utilise alors des inputbox pour que l'utilisateur renseigne (puisque tu ne les veux pas en dur) !

A partir du profil windows, tout ce que l'on peut récuperer c'est le code utilisé au log, impossible de toute façon récupérer le mot de passe de la session. C'est voulu par microsoft.

Code:

---

1 2 3 4 5 6 7 8 9

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function GetLoggedUser() As String Dim UsrName As String Dim lRet As Long UsrName = String(255, 0) lRet = GetUserName(UsrName, Len(UsrName)) GetLoggedUser = Left(UsrName, InStr(UsrName, Chr(0)) - 1) End Function

---

Bonjour
Tout d'abord merci pour vos réponses que je résume dans ce message.
Sur client access (as400), il possible de configurer une session qui se connecte automatiquement en utilisant le profil et mot de passe windows, ainsi la saisie du profil et MDP de ne fait qu'une seul fois.
Donc ce que je voudrais faire, c'est utilser la connexion windows pour se connecter sans pour cela réafficher une fenêtre de saisie du profil et MDP.

Merci pour votre aide

Je n'ai pas d'expérience dans ce domaine mais...

J'ai entendu dire qu'il faudrait utiliser MSXML pour établir la connexion.

Peut-être qu'en cherchant sur les mots connexion et msxml, tu aurais une chance de trouver ton bonheur.