Discussion :

[Serry99]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

[Delbeke]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Serry99]

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

[AlainTech]

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.