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.