Discussion :

[koKoTis]

Bonjour, j'ai un script VBS qui lit un clé dans le registre, la clé qui référence la version de windows:

Code :

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

1
2
3
4
5
6
7
8
Set WshShell = Wscript.CreateObject("Wscript.Shell")
 
valueOS = WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & "ProductName")
 
If valueOS = "Vista" Then
 
Else
End if

Je voudrai exécuter un code si la mot vista se trouve dans la chaine pouriez vous m'aider ?

[SfJ5Rpw8]

Voir la fonction InStr par exemple ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
valueOS = "Avec Vista" 
TestVista
valueOS = "Sans le dernier OS à la mode" 
TestVista
 
 
Sub TestVista
	if InStr(ValueOS,"Vista") > 0 Then
		MsgBox "La chaine : " & vbcrlf & ValueOS & vbcrlf & "Contient Vista"
        else
		MsgBox "La chaine : " & vbcrlf & ValueOS & vbcrlf & "NE Contient PAS Vista"
 
	End if
end sub

[koKoTis]

merci beaucoup

N'y auarit-il pas moeyen de faire ca sans le commande Sub, par ce que je veut placer mon script das un menu dans un:

Code :

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

1
2
3
Sub Etiquette1 
 
End Sub

[koKoTis]

J'ai essayer de simplifier mais ca me renvoie une erreur:

Code :

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

1
2
3
4
5
6
7
8
valueOS = WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & "ProductName")
 
 
 
	if InStr(ValueOS,"Vista") > 0 Then
		MsgBox "La chaine : " & vbcrlf & ValueOS & vbcrlf & "Contient Vista"
        else		
	End if

Voyez vous ce qui ne va pas ?

[koKoTis]

ah ok il manquer l'objet WshShell:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
set WshShell = WScript.CreateObject("WScript.Shell")               
 
 
valueOS = WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & "ProductName")
 
 
 
	if InStr(ValueOS,"Vista") > 0 Then
		MsgBox "La chaine : " & vbcrlf & ValueOS & vbcrlf & "Contient Vista"
        else		
	End if

Merci encore

[koKoTis]

Mais le script n'ignore pas la casse, n'y aurait-il pas moyen de lui faire ignorer ?

[SfJ5Rpw8]

Sub c'est l'instruction qui permet d'effectuer la déclaration d'une procédure...

ce qui est important pour toi dans le code ci dessus c'est l'instruction InStr...

tiens un peu de lecture :

http://tahe.developpez.com/web/vbscript/