Discussion :

[billybob2]

Bonjour à tous,

J'ai un script vbs que je voudrais convertir en Powershell.

Je n'arrive pas à trouver le code correspondant en PowerShell:

Code vb :

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

1
2
3
Dim Installer : Set Installer = CreateObject("WindowsInstaller.Installer")
Dim Record : Set Record = Installer.FileHash(FilePath, 0)
Dim FileHash : FileHash = Record.StringData(1) & vbTab & Record.StringData(2) & vbTab & Record.StringData(3) & vbTab & Record.StringData(4)

La variable FilePath est initialisée avec le nom du fichier(avec le chemin) à traiter.

Est-ce que quelqu'un sait comment invoquer la méthode FileHash de l'objet WindowsInstaller.Installer et récupérer les 4 enregistrements ?

Merci d'avance.

[ericlm128]

Hi,

Code powershell :

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

1
2
3
4
$filePath = "c:\test\file.txt"
$installer = New-Object -ComObject WindowsInstaller.Installer
$record = $installer.FileHash($filePath, 0)
$fileHash = $record.StringData(1) + "`t"+ $record.StringData(2) + "`t"+ $record.StringData(3) + "`t"+ $record.StringData(4)

[billybob2]

Hi,

Sorry but I got an error :
I changed $filePath = "G:\DIVERS\MIG_ORCA\MIG_ORCA.docx".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Method invocation failed because [System.__ComObject] does not contain a method named 'FileHash'.
At G:\DIVERS\MIG_ORCA\test.ps1:3 char:1
+ $record = $installer.FileHash($filePath, 0)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : MethodNotFound
 
You cannot call a method on a null-valued expression.
At G:\DIVERS\MIG_ORCA\test.ps1:4 char:1
+ $fileHash = $record.StringData(1) + "`t"+ $record.StringData(2) + "`t"+ $record. ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : InvokeMethodOnNull

[ericlm128]

C'est étrange.
Le code fonctionne sur mon Windows 10, quelle est ton OS ?

[billybob2]

Ce script est sur un Windows 2008 r2.

[ericlm128]

Sur mon poste, si je fait un msiexec j'ai cette version de Windows Installer : Windows ® Installer version 5.0.19041.1


Voici ce qui est dit sur le site de Microsoft pour méthode FileHash de Windows Installer (section Configuration requise) : https://docs.microsoft.com/fr-fr/win...h#requirements
Windows Installer 5.0 sur Windows Server 2012, Windows 8, Windows Server 2008 R2 ou Windows 7. Windows Installer 4.0 ou Windows Installer 4.5 sur Windows Server 2008 ou Windows Vista. programme d’installation Windows sur Windows Server 2003 ou Windows XP

Merci de vérifier que tu as le prérequis.

[billybob2]

Salut et merci pour ton aide.

La version Windows ® Installer. V 5.0.7601.24535 est installée sur le PC.
De plus le script .vbs fonctionne correctement sur ce poste.

Voici les seules méthodes/propriétés disponibles de l'objet Installer :

[ericlm128]

Un objet com n'expose pas ses méthodes comme ceci. Aussi la liste affiché ne veux pas dire grand chose.
Sur le même poste tu dispose bien de la méthode via le vbs c'est cela ?
Ça me parais vraiment louche.

[ericlm128]

Si tu test mon bout de script sur un poste Windows 10, tu arrive bien à le faire fonctionner ?
Concernant le message d'erreur, il semble bien qu'il n'arrive pas à trouver l'objet com Windowsinstaller.
Tu as quelle version de powershell ?
Peut être que ma syntaxe est trop "moderne"...

[billybob2]

Je te confirme que le script vbs fonctionne sur cette machine Windows 2008R2.
La version Powershell de cette machine est la version 4.0.

Effectivement ton script fonctionne sous W10.

Il faut peut être utiliser une autre syntaxe avec la version PowerShell 4.0.

[ericlm128]

Je n'ai pas ton environnement et je n'ai pas la réponse à ce dysfonctionnement.
Tu peux essayer quelque syntaxe légèrement différente.

Code powershell :

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

1
2
$installer = New-Object -ComObject "WindowsInstaller.Installer"
$installer = New-Object -Com WindowsInstaller.Installer

Tu peux aussi vérifier si d'autre objet com fonctionne pour vérifier la syntaxe

Code powershell :

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

1
2
$WSH = New-Object -Com WScript.Shell
$WSH.Run("Explorer.exe")

[billybob2]

Bonjour,

résultat des courses:
pour les 2 syntaxes proposées aucune ne fonctionne.

Pour le test explorer, cela fonctionne.

En cherchant sur le net , j'ai vu que l'on pouvait appeler des méthodes d'objet Com comme ceci mais celà ne fonctionne pas :

Code PowerShell :

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

$Installer.GetType().InvokeMember("FileHash", "InvokeMethod", $null, $installer, @(($filePath), 0))

Code :

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

1
2
3
4
5
6
Method invocation failed because [System.__ComObject] does not contain a method named 'StringData'.
At G:\DIVERS\MIG_ORCA\test.ps1:5 char:1
+ $fileHash = $record.StringData(1) + "`t"+ $record.StringData(2) + "`t"+ $record. ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) [], RuntimeException
    + FullyQualifiedErrorId : MethodNotFound

[ericlm128]

Tu peux vérifier si WindowsInstaller est présent dans le registre

Code powershell :

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

1
2
3
4
5
6
7
8
9
# https://docs.microsoft.com/en-us/answers/questions/386716/powershell-list-of-object-comobject-names.html
function Get-ProgId {
    param ($filter = '.')
    Get-ChildItem -Path 'REGISTRY::HKey_Classes_Root\clsid\*\progid' |
    foreach {if ($_.name -match '\\ProgID$') { $_.GetValue('') }} |
    Where-Object {$_ -match $filter}
}
 
Get-ProgId installer

Code :

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

1
2
3
4
WindowsInstaller.Message
WindowsInstaller.Installer
Workspace.Installer.1
Microsoft.Update.Installer.1

[ericlm128]

Je cherche un visualiseur d'object COM présent car malgré ce que tu dit je pense que l’objet COM WindowsInstaller n'est pas disponible.

Sinon la je sèche sur ton problème, et je n'ai pas ce type d'OS pour enquêter. Si tu as un autre OS identique tu pourrais tester pour voir...

[ericlm128]

A si une autre idée, tu pourrais lancer le bout de code dans un processus 32 bits et un autre dans un processus 64 bits (Powershell ise, par exemple)
Certain objet ne sont disponible que pour une architecture

https://stackoverflow.com/questions/...008-r2-but-non

[billybob2]

Bonjour,

Voici le résultat du test:

Code :

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

1
2
3
4
WindowsInstaller.Message
WindowsInstaller.Installer
Microsoft.Update.Installer.1

J'ai aussi lancé le test sous PowerShell(x86) mais j'ai la même erreur :

Code :

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

1
2
Method invocation failed because [System.__ComObject] does not contain a method named 'FileHash'

Maintenant , j'ai une solution en exécutant le script sous Windows 10.
Donc encore merci pour ton aide , je laisse ce post actif si quelqu'un a une autre piste.

[ericlm128]

J'ai bonne espoir en ce post : https://www.developpez.net/forums/d2.../#post11859901