Discussion :

[thegage]

Bonjour,

Je voudrais savoir comment si il ya un probleme sur mon code pour effectuer une commande CL a distance pour supprimer un utilisateur depuis un poste de travail sur l'AS400, j'ai essayé toute les solutions mais ca na rien donner il ya toujours des erreurs!! j'utilise le module ADODBAPI pour utiliser le driver OLE DB de microsoft voici mon 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
import win32com.client
import adodbapi
adodbapi.adodbapi.verbose = True
constr = "Provider=IBMDA400; DATA SOURCE='AS400';User ID='xxx';Password='xxxx'" 
Trusted_Connection=yes;"
sp_name='EXEC COMMAND DLTUSRPRF USRPRF("TOTO")'
#cc=win32com.client.Dispatch('adodb.connection')
#c.Open(constr)
 
cmd=win32com.client.Dispatch('ADODB.Command')
cmd.ActiveConnection = constr
#cmd.CommandType = win32com.client.constants.adCmdText
cmd.CommandText = sp_name
cmd.CommandType = win32com.client.constants.adCmdText
cmd.Execute()

j'ai effectué des recherche sur le net mais rien!

[thegage]

enfin j'ai pu trouver la solution!

Correction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
import win32com.client
import adodbapi
adodbapi.adodbapi.verbose = True
conn = win32com.client.Dispatch('adodb.connection')
conn.ConnectionString = "Provider=IBMDA400; DATA SOURCE='AS400';User ID='xxxx';Password='xxxxx'" 
Trusted_Connection=yes;"
sp_name="{{QSYS/DLTUSRPRF USRPRF(TOTO)}}"
conn.Open()
 
cmd=win32com.client.Dispatch('ADODB.Command')
cmd.ActiveConnection = conn
cmd.CommandText = sp_name
cmd.Execute()