0

我正在搜索特定事件的计算机事件日志列表。此列表包含 7,000 多个系统。我很想让它利用运行空间。我有以下代码，但它不起作用。看起来返回为空，当然会导致 CSV 导出失败。

有什么建议么？

谢谢！

# Max Runspaces
$Throttle = 5 #threads

# What is the total number of events to pull?
$eventMax = 10

# Which event log do we want to pull from?
$eventLog = "System"

$eventEntryID = "7023"

$eventMessage = "The Windows Modules Installer service terminated with the following error: 
The configuration registry database is corrupt."

# What is our source file, the one with ll the file names.
$computers = Get-Content "c:\temp\Louis\hostsins.txt"

# What is our CSV file
$outFile = "c:\temp\Louis\SearchEventLogResultsINS.csv"

$ScriptBlock = {
    Param (
        [string]$sComputer
    )

    $RunResult = Get-WinEvent -Oldest  -ComputerName $sComputer -FilterHashtable @{LogName = $eventLog; ID = $eventEntryID;} | 
                 where{$_.Message -eq $eventMessage} | 
                 Select machinename, TimeCreated, ID, LevelDisplayname, Message 
    write-host $RunResult

    Return $RunResult
}

$RunspacePool = [RunspaceFactory]::CreateRunspacePool(1, $Throttle)
$RunspacePool.Open()
$Jobs = @()

$computers | % {

   write-host $_

   $Job = [powershell]::Create().AddScript($ScriptBlock).AddArgument($_)
   $Job.RunspacePool = $RunspacePool
   $Jobs += New-Object PSObject -Property @{
        RunNum = $_
        Pipe = $Job
        Result = $Job.BeginInvoke()
   }
}

Write-Host "Running.." -NoNewline
Do {
    Write-Host "." -NoNewline
    Start-Sleep -Seconds 1
} While ( $Jobs.Result.IsCompleted -contains $false)
Write-Host "All jobs completed!"

$Results = @()
ForEach ($Job in $Jobs){
    $Results += $Job.Pipe.EndInvoke($Job.Result)
}

$Results | Export-Csv $outFile
4

1 回答 1

1

看起来您在运行空间之外声明变量并尝试在运行空间中使用它们。

我看到您使用 .addargument($_) 传入每台计算机。虽然没有别的。运行空间非常适合速度，但由于此类问题，不太方便。

如需更多阅读内容，请查看Dave Wyatt 的帖子，其中包括其他参考资料。一定要翻阅关于initialsessionstate、runspacefactory、runspacepool和powershell的MSDN文档，在提示符下探索和试验各种属性和方法。

我试图重新编写您的代码，但尚未对其进行测试，但这应该为您说明一种解决方法：

# Max Runspaces
$Throttle = 5 #threads

#Throw the stuff you want to pass in into a hashtable or whatever vehicle meets your needs
$params = @{
    eventMax = 10
    eventLog = "System"
    eventEntryID = "7023"
    eventmessage = "The Windows Modules Installer service terminated with the following error: 
The configuration registry database is corrupt."
    computer = $_
}

# What is our source file, the one with ll the file names.
$computers = Get-Content "c:\temp\Louis\hostsins.txt"

# What is our CSV file
$outFile = "c:\temp\Louis\SearchEventLogResultsINS.csv"

$ScriptBlock = {
    Param (
        [System.Collections.Hashtable]$hash
    )


    $RunResult = Get-WinEvent -Oldest  -ComputerName $hash.computer -FilterHashtable @{LogName = $hash.eventLog; ID = $hash.eventEntryID;} | 
                 where{$_.Message -eq $hash.eventMessage} | 
                 Select machinename, TimeCreated, ID, LevelDisplayname, Message 
    write-host $RunResult

    Return $RunResult
}

$RunspacePool = [RunspaceFactory]::CreateRunspacePool(1, $Throttle)
$RunspacePool.Open()
$Jobs = @()

$computers | % {

    $params = @{
        eventLog = "System"
        eventEntryID = "7023"
        eventmessage = "The Windows Modules Installer service terminated with the following error: 
    The configuration registry database is corrupt."
        computer = $_
    }

   write-host $_


   $Job = [powershell]::Create().AddScript($ScriptBlock).AddArgument($params)
   $Job.RunspacePool = $RunspacePool
   $Jobs += New-Object PSObject -Property @{
        RunNum = $_
        Pipe = $Job
        Result = $Job.BeginInvoke()
   }
}

Write-Host "Running.." -NoNewline
Do {
    Write-Host "." -NoNewline
    Start-Sleep -Seconds 1
} While ( $Jobs.Result.IsCompleted -contains $false)
Write-Host "All jobs completed!"

$Results = @()
ForEach ($Job in $Jobs){
    $Results += $Job.Pipe.EndInvoke($Job.Result)
}

$Results | Export-Csv $outFile

干杯!

于 2014-04-17T18:10:56.933 回答