使用服务帐户运行时出现 Powershell Word SaveAs 命令错误

Question

这几天让我发疯......我有一个 powershell 脚本，它使用 Word SaveAs 互操作将目标目录中的所有 .doc 文件转换为 PDF。
该脚本在登录用户的上下文中运行时工作正常，但当我尝试执行时出现“您不能在空值表达式上调用方法。”错误使用服务帐户的脚本（通过任务计划程序，以其他用户身份运行）...服务帐户具有本地管理员权限。

异常发生在这一行：$Doc.SaveAs([ref]$Name.value,[ref]17)

我的代码如下，我不是世界上最好的编码器，所以任何建议都将不胜感激。 谢谢。

try
{
$FileSource = 'D:\PROCESSOR\NewArrivals\*.doc'
$SuccessPath = 'D:\PROCESSOR\Success\'
$docextn='.doc'
$Files=Get-ChildItem -path $FileSource
$counter = 0
$filesProcessed = 0
$Word = New-Object -ComObject Word.Application

#check files exist to be processed.
$WordFileCount = Get-ChildItem $FileSource -Filter *$docextn -File| Measure-Object | %{$_.Count} -ErrorAction Stop

If ($WordFileCount -gt 0) {

  Foreach ($File in $Files) {
    $Name="$(($File.FullName).substring(0, $File.FullName.lastIndexOf("."))).pdf"

    $Doc = $Word.Documents.Open($File.FullName)
    $Doc.SaveAs([ref]$Name.value,[ref]17)
    $Doc.Close()

    if ($counter -gt 100) {
        $counter = 0
        $Word.Quit()
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word)
        $Word = New-Object -ComObject Word.Application
    }
    $counter = $counter + 1
    $filesProcessed = $filesProcessed + 1
}
}
$Word.Quit()
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word)
}

catch
{
}
finally
{
}

Answer 1

如果您确定服务帐户可以访问 Word，那么我认为您在执行 SaveAs() 时遇到的异常是在 [ref] 中。 只有 AKAIK 2010 以下的 Office 版本需要[ref]，以上版本不需要。

接下来我认为你的代码可以稍微整理一下，例如通过释放finally 块内的com 对象（$Doc 和$Word），因为它总是被执行。 此外，无需执行两次Get-ChildItem。

类似这样的：

$SuccessPath    = 'D:\PROCESSOR\Success'
$FileSource     = 'D:\PROCESSOR\NewArrivals'
$filesProcessed = 0

try {
    $Word = New-Object -ComObject Word.Application
    $Word.Visible = $false
    # get a list of FileInfo objects that have the .doc extension and loop through
    Get-ChildItem -Path $FileSource -Filter '*.doc' -File | ForEach-Object {
        # change the extension to pdf for the output file
        $pdf = [System.IO.Path]::ChangeExtension($_.FullName, '.pdf')
        $Doc = $Word.Documents.Open($_.FullName)

        # Check Version of Office Installed. Pre 2010 versions need the [ref]
        if ($word.Version -gt '14.0') {
            $Doc.SaveAs($pdf, 17)
        }
        else {
            $Doc.SaveAs([ref]$pdf,[ref]17)
        }
        $Doc.Close($false)
        $filesProcessed++
    }
}
finally {
    # cleanup code
    if ($Word) {
        $Word.Quit()
        $null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($Doc)
        $null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($Word)
        [System.GC]::Collect()
        [System.GC]::WaitForPendingFinalizers()
        $Word = $null
    }
}

然后，有$SuccessPath的问题。你永远不会使用它。您是否打算将 PDF 文件保存在该路径中？如果是，换行

$pdf = [System.IO.Path]::ChangeExtension($_.FullName, '.pdf')

进入

$pdf = Join-Path -Path $SuccessPath -ChildPath ([System.IO.Path]::ChangeExtension($_.Name, '.pdf'))

希望有帮助