batch en arrire plan

Version imprimable

16/04/2014, 16h03
ouabsi

batch en arrire plan

je cherche à executer un .bat en arriere plan ( sans apparaitre la cmd )
vos idée ?
merci

:salut:
En Vbscript on peut le faire voici un exemple :
WLanScript.vbs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Call WLAN_Networks()
'**************************************************************************************************
 Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'**************************************************************************************************
Sub WLAN_Networks()
    If Executer("netsh wlan show All > Wlan_tmp.txt & cmd /U /C Type Wlan_tmp.txt > Wlan_Networks.txt",0) = 0 Then
        Call Executer("Start Wlan_Networks.txt & Del Wlan_tmp.txt",0)
    End If
End Sub

[VBS] Installation silencieuse de Notepad++ sans aucune fenêtre en Vbscript

Un autre exemple :
Installation silencieuse de Notepad++ sans aucune fenêtre en Vbscript

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Dim MaCmd
MaCmd = "Start /Wait E:\Test\SilentInstall\npp.6.5.5.Installer.exe /S"&_
" & echo Notepad++ est installe avec sucees > LogInstall.txt & Start LogInstall.txt"
Call Executer(MaCmd,0)
'**************************************************************************************************
Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'****************************************************************************************************

16/04/2014, 19h28
ouabsi

2 pièce(s) jointe(s)

merciiiii
maintenant je cherche à executer un fichier.vbs lors de l'extraction d'un SFX,
j'essaye avec un fichier.bat et ça marche , mais avec le .vbs ça fonctionne pas , je sais pas pourquoi ,
il retourne : le fichier spécifié est introuvable
heeelp :)
Pièce jointe 143187
Pièce jointe 143188
16/04/2014, 19h33
hackoofr

:salut:
Postez le code du vbscript et ainsi du batch pour voir mieux les choses :mouarf:
16/04/2014, 19h38
ouabsi

c'est pas un problme de code
je dis que lorque je lance un .bat avec SFX ça marche
mais lorsque je lance .vbs ça marche pas , pourquoi ?
16/04/2014, 19h51
hackoofr

Citation:

Envoyé par ouabsi

c'est pas un problme de code
je dis que lorque je lance un .bat avec SFX ça marche
mais lorsque je lance .vbs ça marche pas , pourquoi ?

Le problème vient du code vbscript car il ne trouve pas le fichier à exécuter
16/04/2014, 19h53
ouabsi

nn , lorsque je double click sur le .vbs directement ça marche bien
mais lorque je le lance avec SFX , ça marche pas

Lancer un fichier.bat à partir d'un vbscript fichier.vbs sans afficher la console

:salut:
Lancer un fichier.bat à partir d'un vbscript fichier.vbs sans afficher la console

les deux fichiers sont intégrées ensemble dans le SFX
la décompression du SFX se fait dans le dossier temporaire

Un exemple d'un batch :
fichier.bat

Code:

1
2
3
@echo off
netsh wlan show All > Wlan_tmp.txt & cmd /U /C Type Wlan_tmp.txt > Wlan_Networks.txt
Start Wlan_Networks.txt & Del Wlan_tmp.txt

qui va être lancé par ce Vbscript :
fichier.vbs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'Ce Vbscript lance le fichier.bat sans afficher la console
'fichier.bat doit-être dans le même répertoire de ce vbscript
Call Executer("fichier.bat",0)
'**************************************************************************************************
 Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'**************************************************************************************************

Le lien du fichier SFX à télécharger et à tester

Pour le téléchargement du SFX , vous deviez faire ceci en cliquant avec le bouton droit sur le lien :

http://www.ec75.org/documents/images...sfirefoxpc.gif

17/04/2014, 12h25
ouabsi

merci