Tester si un mot se trouve dans un chaine de caractére

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

Code:

---

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 ?

Voir la fonction InStr par exemple ...

Code:

---

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

---

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:

---

1 2 3

Sub Etiquette1   End Sub

---

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

Code:

---

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 ?

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/

ah ok il manquer l'objet WshShell:

Code:

---

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 ;)

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