Discussion :

[Monsieur_Dom]

Bonjour à tous.
je suis en train de mettre en place un script mais je me heurte a un problème de type cosmetique...
je cherche à faire des encadrés en batch et j'avoue avoir des difficultés avec des variables à longueur... variable
l'idée serait de faire une modification sur la variable du genre :

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
33
34
35
36
37
38
39
40
41
42
43
@echo off
CLS
	REM RECHERCHE DU NOM DU SYSTEME
	VER | FIND /i "version 5.1" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS XP
	
	VER | FIND /i "version 5.2" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS SERVER 2003
	
	VER | FIND /i "version 6.0.6002" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS VISTA OU WINDOWS SERVER 2008
	
	VER | FIND /i "version 6.1.7601" > nul 
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS 7
	
	VER | FIND /i "version 6.1.7600" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS SERVER 2008-R2
	
	VER | FIND /i "version 6.2.9200" > nul    
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS 8 
	
	VER | FIND /i "version 6.2.9201" > nul    
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS SERVER 2012

set affi=
set affi=                                       º


setlocal enabledelayedexpansion
set VrCompt=-1
:boucle
set /a VrCompt+=1
set test2=!WIN:~%VrCompt%,1!
set affi1=%affi:~[%VrCompt%]%
if not "%test2%"=="" goto boucle

echo %affi1%

	ECHO  º                                                                            º
	ECHO  º     SYSTEME MICROSOFT             : %Win%%affi1%                                  
	ECHO  º                                                                            º
pause

Mais je n'arrive pas à avoir le formatage visuel comme je le souhaiterais (caracteère d'échappement...???).
Sinon il y a toujours la solution des errorlevels avec une comparaison du nombre de caracteres ... mais je n'aime pas du tout cette solution... pas optimisée, lente et galère à mettre en place pour la totalité de mes variables....

merci pour votre aide.
Cordialment

Monsieur DOM

[sachadee]

Salut Monsieur_Dom,

Affiche une fenêtre windows en VSB, c'est pratique, jolie et surtout super simple !

Tu cree un fichier .vsb qui contient la commande MsgBox "ton_texte ta_variable"
et ensuite tu apelle ce vbs à l'aide de start et voilà

Voici ton code modifie

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
33
34
35
36
37
38
@echo off
CLS
	REM RECHERCHE DU NOM DU SYSTEME
	VER | FIND /i "version 5.1" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS XP
	
	VER | FIND /i "version 5.2" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS SERVER 2003
	
	VER | FIND /i "version 6.0.6002" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS VISTA OU WINDOWS SERVER 2008
	
	VER | FIND /i "version 6.1.7601" > nul 
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS 7
	
	VER | FIND /i "version 6.1.7600" > nul
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS SERVER 2008-R2
	
	VER | FIND /i "version 6.2.9200" > nul    
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS 8 
	
	VER | FIND /i "version 6.2.9201" > nul    
	IF %ERRORLEVEL%==0 SET WIN=WINDOWS SERVER 2012


setlocal enabledelayedexpansion
set VrCompt=-1
:boucle
set /a VrCompt+=1
set test2=!WIN:~%VrCompt%,1!
set affi1=%affi:~[%VrCompt%]%
if not "%test2%"=="" goto boucle

(Echo MsgBox "SYSTEME MICROSOFT       :  %Win%%affi1%")>RESPOSTA.VBS

START RESPOSTA.VBS
GOTO:EOF
endlocal

C'est pas beau ça une jolie fenêtre windows !

[hackoofr]

une autre solution mais en Vbscript :

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
33
34
35
36
37
38
39
40
MsgBox FindOSType("."),64,"Système d'exploitation"
Function FindOSType(strComputer)
'Defining Variables
    Dim objWMI, objItem, colItems
    Dim OSVersion, OSName, ProductType
 
'Get the WMI object and query results
    Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48)
 
'Get the OS version number (first two) and OS product type (server or desktop) 
    For Each objItem in colItems
        OSVersion = Left(objItem.Version,3)
        ProductType = objItem.ProductType
    Next
'Time to convert numbers into names
    Select Case OSVersion
    Case "6.1"
        OSName = "Windows 7"
    Case "6.0" 
        OSName = "Windows Vista"
    Case "5.2" 
        OSName = "Windows 2003"
    Case "5.1" 
        OSName = "Windows XP"
    Case "5.0" 
        OSName = "Windows 2000"
    Case "4.0" 
        OSName = "Windows NT 4.0"
    Case Else
        OSName = "Windows 9x"
    End Select
 
'Return the OS name
    FindOSType = OSName
 
'Clear the memory
    Set colItems = Nothing
    Set objWMI = Nothing
End Function

[Monsieur_Dom]

Merci de votre réponse...
... et désolé de ne m'être connecté avant ce soir... je teste ce code

ps : Ne connaissant pas le vb et autodidacte en informatique, je me suis intéressé qu'au batch pour le moment ( ok c'est vieillot mais cela fonctionne encore pas trop mal )...