Probleme recuperation d'une valeur : script vbs -> .bat

Version imprimable

Bonjour,
voila mon probleme j'utilise un script vbs suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
strComputer = "."
strCarteReseau1 = "Broadcom"
strCarteReseau2 = "Intel"
strCarteReseau3 = "3COM"
strCarteValidee = ""


Set objWMIService = GetObject&#40;"winmgmts&#58;" _
    & "&#123;impersonationLevel=impersonate&#125;!\\" & strComputer & "\root\cimv2"&#41;

RechercheTypeCarte strCarteReseau1
RechercheTypeCarte strCarteReseau2
RechercheTypeCarte strCarteReseau3


WScript.Echo "La carte trouvée est une carte "& strCarteValidee

j'aimerais ensuite l'appeler dans un .bat et recuperer cette variable strCarteValidee

pour valider un select
l'ancien est celui ci

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
@ECHO OFF
c&#58;
cd \common
    ECHO.
    ECHO Choose your Network Card&#58;
    ECHO 1&#41; 3Com
    ECHO 2&#41; Broadcom
    ECHO 3&#41; Intel
    ECHO.
    CHOICE /C&#58;123 /N
    IF ERRORLEVEL 3 GOTO N_Intel
    IF ERRORLEVEL 2 GOTO N_Broadcom
    IF ERRORLEVEL 1 GOTO N_3Com  
 


    &#58;N_3Com
	copy 3com_p.ini protocol.ini
	woop system.ini /C=xxx.dos /N=el90x.dos &#91;COLOR&#58;09,08&#93;
    GOTO Fin

    &#58;N_Broadcom
	copy broad_p.ini protocol.ini
	woop system.ini /C=xxx.dos /N=B57.dos &#91;COLOR&#58;09,08&#93;
    GOTO Fin

    &#58;N_Intel
	copy intel_p.ini protocol.ini
	woop system.ini /C=xxx.dos /N=e1000.dos &#91;COLOR&#58;09,08&#93;

    &#58;Fin

ainsi j'automatiserai cette etape, plus rien a taper pour l'utilisateur
mais je ne sais pas comment faire pour recuperer ce champ dans un .bat
ligne de code a rajouter dans le .bat ou le vbs ???? :?:

09/05/2005, 18h44
Laurent Dardenne

VBS peut manipuler des variables d'environnment avec WshEnvironment mais peut être pas en créer/modifier

Sinon utilise :
- Setx.exe, prg externe
- la base de registre
- un fichier ASCII externe
- programme pipe ?
10/05/2005, 12h35
Laurent Dardenne

Si tu as trouvé une solution peux-tu la proposer ? Cela pourra re-servir.
Merci

voila la soluce

code du .bat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
@echo off

cscript TestCarte.vbs
goto Label_%ERRORLEVEL% 
&#58;Label_0
echo choix 1
goto fin
&#58;Label_1
echo choix 2
goto fin
&#58;Label_2
echo choix3
goto fin
&#58;Label_3
echo choix4
&#58;fin

le .vbs est le suivant

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
strComputer = "."
strCarteReseau1 = "Broadcom"
strCarteReseau2 = "Intel"
strCarteReseau3 = "3COM"
strCarteValidee = ""

Set objWMIService = GetObject&#40;"winmgmts&#58;" _
    & "&#123;impersonationLevel=impersonate&#125;!\\" & strComputer & "\root\cimv2"&#41;

RechercheTypeCarte strCarteReseau1
RechercheTypeCarte strCarteReseau2
RechercheTypeCarte strCarteReseau3


WScript.Echo "La carte trouvée est une carte "& strCarteValidee


if &#40; strCarteValidee ="3COM"&#41;Then
WScript.quit 1
End If

if &#40; strCarteValidee = "Broadcom"&#41;Then
WScript.quit 2
End If

if &#40; strCarteValidee = "Intel"&#41;Then
WScript.quit 3
End If

j'ai utilisé le renvoi d'erreur