Discussion :

[Valveur]

Bonjour,
Je viens à vous car ça fait un moment que je suis sur ce problème.
Je travail sous XP, j'ai un programme progam1.vbs qui appel un program2.vbs avec passage d'arguments qui lui se trouve sur un poste distant.
En sachant que j'ai tout les droits sur mon réseau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' program1.vbs
Set oShell = CreateObject("WScript.Shell")
Dim strName, numUser, numIP, strCommand
'
strName = "Denis"
numUser = "0800888"
numIP = "10.50.106.105"
'
strCommand = "PsExec.exe -u fr\admin \\" & numIP & " -i C:\Windows\system32\cscript.exe \\" & numIP & "\c$\program2.vbs " & strName & " " & numUser
'
oShell.Run(strCommand), 1, True
'
MsgBox("Terminé")
Set oShell = Nothing

Et voilà mon deuxième programme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' program2.vbs
Set oShell = CreateObject("WScript.Shell")
Dim args, strName, numUser
Set args = WScript.Arguments
'
strName = args(0)
numUser = args(1)
'
MsgBox("agrs 0 = " & numIPPrinter & vbCrLf & _
"agrs 1 = " & strDriverName)
Set oShell = Nothing

La ligne de commande : PsExec.exe -u fr\admin \\10.50.106.105 -i C:\Windows\system32\cscript.exe \\10.50.106.105\c$\program2.vbs Denis 0800888 dans une fenêtre DOS marche bien, je vois la le résultat.
Mais si j'exécute program1.vbs, la fenêtre se ferme automatiquement.
Ou est mon erreur?

[omen999]

salut,
(ligne 11)

Code :

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

oShell.Run strCommand, 1, True

pour plus d'explication : http://www.developpez.net/forums/d13...fenetre-shell/
(mon message)

[Valveur]

Merci Omen999, je vais de ce pas regarder ton lien.