0

システムに Office をインストールせずに、64 ビット システムで DSOFile を使用して、Office ファイルから Office メタデータ プロパティを取得しようとしています。オンラインで入手した 64 ビット バージョンを登録しましたが、初めて実行したときに動作します。2 回目は PS コンソールがクラッシュします。閉じていることを考えると、なぜそれができるのかわかりません。

(リンク: http://www.keysolutions.com/blogs/kenyee.nsf/d6plinks/KKYE-79KRU6 )

コード:

[System.Reflection.Assembly]::LoadFrom('C:\TEMP\Interop.DSOFile.dll')
function Get-Summary([string]$file) {
    $oled = New-Object -COM DSOFile.OleDocumentProperties
    $oled.Open($file, $true, [DSOFile.dsoFileOpenOptions]::dsoOptionDefault)
    $spd =  $oled.SummaryProperties
    return $spd
    $oled.close()
}
Get-Summary ('Z:\SCRIPTS\TestFiles\color-difference.xls')

エラー:

A share violation has occurred. (Exception from HRESULT: 0x80030020 
(STG_E_SHAREVIOLATION))
At Z:\SCRIPTS\test03.ps1:7 char:5
+     $oled.Open($file, $true, [DSOFile.dsoFileOpenOptions]::dsoOptionD ...
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo          : OperationStopped: (:) [], COMException
+ FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

編集:

次のように関数内にオブジェクトを作成することで回避しました。

[System.Reflection.Assembly]::LoadFrom('C:\TEMP\Interop.DSOFile.dll')
function Get-Summary([string]$item) {
    $oled = New-Object -TypeName DSOFile.OleDocumentPropertiesClass
    $oled.Open($item)
    $spd = [PSCustomObject]@{
        Title                = $oled.SummaryProperties.Title
        Subject              = $oled.SummaryProperties.Subject
        Author               = $oled.SummaryProperties.Author
        DateCreated          = $oled.SummaryProperties.DateCreated
        LastSavedBy          = $oled.SummaryProperties.LastSavedBy
        DateLastSaved        = $oled.SummaryProperties.DateLastSaved
        Keywords             = $oled.SummaryProperties.Keywords
    }
    $spd
    $oled.close($item)
}
$officeInfo = Get-Summary('Z:\SCRIPTS\TestFiles\color-difference.xls')
$officeInfo
4

1 に答える 1