Discussion :

[pinpin_du_net]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:
cd \common
    ECHO.
    ECHO Choose your Network Card:
    ECHO 1) 3Com
    ECHO 2) Broadcom
    ECHO 3) Intel
    ECHO.
    CHOICE /C:123 /N
    IF ERRORLEVEL 3 GOTO N_Intel
    IF ERRORLEVEL 2 GOTO N_Broadcom
    IF ERRORLEVEL 1 GOTO N_3Com  
 


    :N_3Com
	copy 3com_p.ini protocol.ini
	woop system.ini /C=xxx.dos /N=el90x.dos [COLOR:09,08]
    GOTO Fin

    :N_Broadcom
	copy broad_p.ini protocol.ini
	woop system.ini /C=xxx.dos /N=B57.dos [COLOR:09,08]
    GOTO Fin

    :N_Intel
	copy intel_p.ini protocol.ini
	woop system.ini /C=xxx.dos /N=e1000.dos [COLOR:09,08]

    :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 ???? :

[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 ?

[Laurent Dardenne]

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

[pinpin_du_net]

voila la soluce

code du .bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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% 
:Label_0
echo choix 1
goto fin
:Label_1
echo choix 2
goto fin
:Label_2
echo choix3
goto fin
:Label_3
echo choix4
:fin

le .vbs est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

RechercheTypeCarte strCarteReseau1
RechercheTypeCarte strCarteReseau2
RechercheTypeCarte strCarteReseau3


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


if ( strCarteValidee ="3COM")Then
WScript.quit 1
End If

if ( strCarteValidee = "Broadcom")Then
WScript.quit 2
End If

if ( strCarteValidee = "Intel")Then
WScript.quit 3
End If

j'ai utilisé le renvoi d'erreur