Aide Execution d'un VBS sur un poste distant
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:
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:
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?
