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?