Lecture régistre pour vérifier que PowerShell est installé

Bonjour la communauté,

Je peine à trouver comment démarrer sur cette problématique vbs. N'ayant jamais fait de vbs, soyez donc indulgents.:lol:
Je cherche à écrire un programme vbs pouvant fonctionner sur la plupart des versions de MS Windows (XP, Vista, 7...).
Le programme doit vérifier si PowerShell est installé sur le poste et lister les versions installées s'il en détecte.

Quelq'un aurait des idées pour m'aider à démarrer?

Merci,

Essaye ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

On Error Resume Next Set o = CreateObject("WScript.Shell") value = o.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\")   If Err.Number = 0 Then MsgBox(Err.Number & " => PowerShell OK.") Else MsgBox(Err.Number & " => PowerShell KO") End If

---

;)

Citation:

---

Envoyé par sachadee

Essaye ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

On Error Resume Next Set o = CreateObject("WScript.Shell") value = o.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\")   If Err.Number = 0 Then MsgBox(Err.Number & " => PowerShell OK.") Else MsgBox(Err.Number & " => PowerShell KO") End If

---

;)

---

Merci, Le code fonctionne bien, il ne me reste plus qu'à voir comment l'adapter pour détecter toutes les versions de PowerShell. Pour le moment il ne remonte qu'un "OK" pour PowerShell 1

Tiens je t'ai fait un autre exemple un peu plus précis (Bien que n'étant pas spécialiste des versions de PS) :

Enfin les version trouvé sont afficher :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

On Error Resume Next dim msg Set o = CreateObject("WScript.Shell")   value1 = o.RegRead("HKLM\Software\Microsoft\PowerShell\1\install") value3 = o.RegRead("HKLM\Software\Microsoft\PowerShell\3\install")   If value1 Then msg = "Powershell version : " & o.RegRead("HKLM\SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine\PowerShellVersion") & " => OK" If value3 Then msg =msg & vbCrLf & "Powershell version : " & o.RegRead("HKLM\SOFTWARE\Microsoft\PowerShell\3\PowerShellEngine\PowerShellVersion") & " => OK" if (not(value1 or value3)=1) Then msg = "Powershell KO"   wscript.echo(msg)

---

;)