Mit Batchdatei Informationen auslesen und diese strukturiert in Excel ausgeben

$ComputerSystem = Get-WmiObject -class win32_ComputerSystem
$DiskDrive = Get-WmiObject -class win32_DiskDrive
$VideoController = Get-WmiObject -class cim_PCVideoController
$Processor = Get-WmiObject -class win32_Processor
$OperatingSystem = Get-WmiObject -class win32_OperatingSystem
$Bios = Get-WmiObject -class win32_Bios
$NetworkAdapter = Get-WmiObject Win32_NetworkAdapterConfiguration
$excel = new-object -comobject excel.application
$excel.visible = $false
$workbook = $excel.workbooks.add()
$workbook.workSheets.item(3).delete()
$workbook.WorkSheets.item(2).delete()
$workbook.WorkSheets.item(1).Name = "RechnerInventar"  
$sheet = $workbook.WorkSheets.Item("RechnerInventar")  
$x = 2
$lineStyle = "microsoft.office.interop.excel.xlLineStyle" -as [type]  
$colorIndex = "microsoft.office.interop.excel.xlColorIndex" -as [type]  
$borderWeight = "microsoft.office.interop.excel.xlBorderWeight" -as [type]  
$chartType = "microsoft.office.interop.excel.xlChartType" -as [type]  
For($b = 1 ; $b -le 17 ; $b++) {
$sheet.cells.item(1,$b).font.bold = $true
$sheet.cells.item(1,$b).borders.ColorIndex = $colorIndex::xlColorIndexAutomatic
$sheet.cells.item(1,$b).borders.weight = $borderWeight::xlMedium }
For($a = 1 ; $a -le 2 ; $a++) {
$sheet.cells.item($a,1).font.bold = $true
$sheet.cells.item($a,1).borders.ColorIndex = $colorIndex::xlColorIndexAutomatic
$sheet.cells.item($a,1).borders.weight = $borderWeight::xlMedium }
$sheet.cells.item(1,1) = "Computername"  
$sheet.cells.item(1,2) = "Hersteller"  
$sheet.cells.item(1,3) = "Modell"  
$sheet.cells.item(1,4) = "Domain"  
$sheet.cells.item(1,5) = "RAM in GB"  
$sheet.cells.item(1,6) = "System Typ"  
$sheet.cells.item(1,7) = "Festpl. Vol. in GB"  
$sheet.cells.item(1,8) = "Grafikkarte"  
$sheet.cells.item(1,9) = "Prozessor"  
$sheet.cells.item(1,10) = "Proz. Geschw."  
$sheet.cells.item(1,11) = "Proz. Kerne"  
$sheet.cells.item(1,12) = "Betriebssystem"  
$sheet.cells.item(1,13) = "BIOS Datum"  
$sheet.cells.item(1,14) = "IPv4 Adresse"  
$sheet.cells.item(1,15) = "Subnetzmaske"  
$sheet.cells.item(1,16) = "Standard Gateway"  
$sheet.cells.item(1,17) = "MAC Adresse"  
Foreach($process in $ComputerSystem) {
$sheet.cells.item($x,1) = $process.Name
$sheet.cells.item($x,2) = $process.Manufacturer
$sheet.cells.item($x,3) = $process.Model
$sheet.cells.item($x,4) = $process.Domain
$sheet.cells.item($x,5) = [Math]::Round($process.TotalPhysicalMemory/1GB, 2)
$sheet.cells.item($x,6) = $process.SystemType
$x++ } #end foreach
Foreach($process in $DiskDrive) {
$sheet.cells.item($x2,7) =[Math]::Round($process.Size/1GB,2)
$x++ } #end foreach
Foreach($process in $VideoController) {
$sheet.cells.item($x2,8) = $process.Name
$x++ } #end foreach
Foreach($process in $Processor) {
$sheet.cells.item($x2,9) = $process.Name.Trim()
$sheet.cells.item($x2,10) = $process.CurrentClockSpeed
$sheet.cells.item($x2,11) = $process.NumberOfCores
$x++ } #end foreach
Foreach($process in $OperatingSystem) {
$sheet.cells.item($x2,12) = $process.Name
$x++ } #end foreach
Foreach($process in $Bios) {
$sheet.cells.item($x2,13) = $process.Version
$x++ } #end foreach
Foreach($process in $NetworkAdapter) {
$sheet.cells.item($x2,14) = $process.IPAddress
$sheet.cells.item($x2,15) = $process.IPSubnet
$sheet.cells.item($x2,16) = $process.DefaultIPGateway
$sheet.cells.item($x2,17) = $process.MACAddress
$x++ } #end foreach
$range = $sheet.usedRange
$range.EntireColumn.AutoFit() | out-null
IF(Test-Path "F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx") {  
Remove-Item "F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx"  
$Excel.ActiveWorkbook.SaveAs("F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx") }  
ELSE { $Excel.ActiveWorkbook.SaveAs("F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx") }  

IF(Test-Path "F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx") {  
Remove-Item "F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx"  
$Excel.ActiveWorkbook.SaveAs("F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx") }  
ELSE { $Excel.ActiveWorkbook.SaveAs("F:\HOME\SPRINGMANN\RechnerInventarIVS\Script\ComputerInfo.xlsx") }  

$x = 2