Получение информации о файле

[lettterssino]

Добрый день, подскажите я всю голову изломал и даже зачатка нет того, как сделать. Суть в том, что надо из msi/msp файлов получить ProductCode и PatchGuid.К примеру есть Guid в свойстве файла, но как его получить не знаю

 

[SealAlbinos]

Думаю это то что вам нужно _FileGetProperty

 

[lettterssino]

Думаю это то что вам нужно _FileGetProperty

Нет, в данном случае он будет бесполезен.

 

[IMStrelcov]

Тут гляньте.

$sMSI = FileOpenDialog("MSI Properties", @ScriptDir, "Windows Installer Files (*.msi)")

$oInstaller = ObjCreate("WindowsInstaller.Installer")
$oDB = $oInstaller.OpenDataBase($sMSI, 0)
$oView = $oDB.OpenView("SELECT Property,Value FROM Property")

$oView.Execute()

$oCount = 0


While @error = 0
    $oRecords = $oView.Fetch
        If Not (IsObj($oRecords)) Then ExitLoop ;<======

    $oPropValue = $oRecords.StringData(2)
    $oPropName = $oRecords.StringData(1)

    If $oPropName <> "" Then
        $oCount += 1
        ConsoleWrite($oPropName & " = " & $oPropValue & @CRLF)
    EndIf
WEnd

 

[lettterssino]

Тут гляньте.

$sMSI = FileOpenDialog("MSI Properties", @ScriptDir, "Windows Installer Files (*.msi)")

$oInstaller = ObjCreate("WindowsInstaller.Installer")
$oDB = $oInstaller.OpenDataBase($sMSI, 0)
$oView = $oDB.OpenView("SELECT Property,Value FROM Property")

$oView.Execute()

$oCount = 0


While @error = 0
    $oRecords = $oView.Fetch
        If Not (IsObj($oRecords)) Then ExitLoop ;<======

    $oPropValue = $oRecords.StringData(2)
    $oPropName = $oRecords.StringData(1)

    If $oPropName <> "" Then
        $oCount += 1
        ConsoleWrite($oPropName & " = " & $oPropValue & @CRLF)
    EndIf
WEnd

Да , для msi это идеально. Но вот как из msp выдергивать вообще не получается.