出口计算机信息到CSV

Question

下面的代码输出信息，如：

System Information for: Localhost 

    Model   : {0} 
    Serial Number : {1} 
    Version  : {2} 
    Monitor Model : {3} 
    Monitor Serial : {4} 

如何导出为CSV和具有格式在Excel中，如：

Name, Model, Serial Number, Version, Monitor Model, Monitor serial 

我想每个在自己的细胞中的价值。

代码1：

$ArrComputers = "localhost" 
$OutputLog = ".\output.log" 
$NotRespondingLog = ".\notresponding.log" 
$ErrorActionPreference = "Stop" 
Clear-Host 

ForEach ($Computer in $ArrComputers) { 
    try { 
    $computerSystem = get-wmiobject Win32_ComputerSystem -Computer $Computer 
    $computerBIOS = get-wmiobject Win32_BIOS -Computer $Computer 
    $Version = Get-WmiObject -Namespace "Root\CIMv2" ` 
     -Query "Select * from Win32_ComputerSystemProduct" ` 
     -computer $computer | select -ExpandProperty version 
    $MonitorInfo = gwmi WmiMonitorID -Namespace root\wmi -computername $computer | 
     Select -last 1 @{n="Model"; e={[System.Text.Encoding]::ASCII.GetString($_.UserFriendlyName -ne 00)}}, 
     @{n="Serial Number";e={[System.Text.Encoding]::ASCII.GetString($_.SerialNumberID -ne 00)}} 
    } catch { 
    $Computer | Out-File -FilePath $NotRespondingLog -Append -Encoding UTF8 
    continue 
    } 

    $Header = "System Information for: {0}" -f $computerSystem.Name 

    write-host $Header -BackgroundColor DarkCyan 
    $Header | Out-File -FilePath $OutputLog -Append -Encoding UTF8 

    $Output = (@" 
    ------------------------------------------------------- 

    Model   : {0} 
    Serial Number : {1} 
    Version  : {2} 
    Monitor Model : {3} 
    Monitor Serial : {4} 

    ------------------------------------------------------- 

"@) -f -join $computerSystem.Model, $computerBIOS.SerialNumber, $Version, ` 
    $MonitorInfo.Model, $MonitorInfo."Serial Number" 

    Write-Host $Output 
    $Output | Out-File -FilePath $OutputLog -Append -Encoding UTF8 
} 

Answer 1

删除格式字符串，并简单地将数据导出为CSV：

$data = ForEach ($Computer in $ArrComputers) { 
    try { 
    ... 
    } catch { 
    ... 
    } 

    $props = [ordered]@{ 
    'Name'   = $computerSystem.Name 
    'Model'   = $computerSystem.Model 
    'Serial Number' = $computerBIOS.SerialNumber 
    'Version'  = $Version 
    'Monitor Model' = $MonitorInfo.Model 
    'Monitor Serial' = $MonitorInfo."Serial Number" 
    } 
    New-Object -Type PSCustomObject -Property $props 
} 

$data | Export-Csv 'C:\path\to\output.csv' -NoType 

的New-Object声明是必需的，因为Export-Csv出口对象列表的属性作为CSV文件的字段。

请注意，Excel对于CSV接受的内容比较特别。文件必须必须以逗号分隔（无论在系统的区域设置中配置了什么字段分隔符）。