Discussion :

[lakcil]

Bonjour la communauté,

Je peine à trouver comment démarrer sur cette problématique vbs. N'ayant jamais fait de vbs, soyez donc indulgents.
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,

[sachadee]

Essaye ça :

Code :

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

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

[lakcil]

Essaye ça :

Code :

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

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

[sachadee]

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 :

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

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)