Envoie arguments de [HTA à VBS]

Bonjour/Bonsoir,
Voici comment envoyé un (ou des) argument(s) de [HTA à VBS] | [VBS à HTA]

**** Envoie argument HTA à VBS ****
Le HTA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<head>
    <HTA:APPLICATION
        ID="myhta" 
        APPLICATIONNAME="HTA Test"
    >
</head>
 
<script language="VBScript">
    
TestVar1 = Inputbox ("Que veut tu envoyé au vbs ? [HTA argument to VBS")
Dim strParams
strParams = strParams & " " & Chr(34) & TestVar1 & Chr(34)
Set WS = CreateObject("WScript.Shell")
WS.Run "MY.vbs" & strParams
 
</script>

Le VBS (nommé MY.vbs) :

Code:

1
2
3
4
5
6
Set Shell = CreateObject("WScript.Shell")
If WScript.Arguments.Length >0 Then 
  Shell.Popup "L'argument reçu est : " &  WScript.Arguments.Item(0)  
Else 
  Shell.Popup "No argument specified."  
End If

**** Fin Envoie argument HTA à VBS ****

**** Envoie argument VBS à HTA ****
Le VBS :

Code:

1
2
3
4
5
TestVar1 = Inputbox ("Que veut tu envoyé au HTA ? [VBS argument to HTA")
Dim strParams
strParams = strParams & " " & Chr(34) & TestVar1 & Chr(34)
Set WS = Wscript.CreateObject("WScript.Shell")
WS.Run "myhta.hta" & strParams

Le HTA (nommé myhta.hta) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<head>
    <HTA:APPLICATION
        ID="myhta" 
        APPLICATIONNAME="myhta"
    >
</head>
 
<script language="VBScript">
    
    Sub Window_OnLoad()
        a = Split(myhta.CommandLine, Chr(34))
        MsgBox "L'argurment est = " & a(3)
    End Sub
</script>

**** Fin Envoie argument VBS à HTA****

:pc:

Envoie arguments de [HTA à VBS] | [VBS à HTA]