powershell 操作Excel 附加释放资源

$strPath="C:\powershell\test.xls"

$objexcel=New-Object -ComObject excel.application

$objexcel.Visible=$false

$workbook=$objexcel.Workbooks.add()

$sheet=$workbook.worksheets.item(1)

$x=2

$strComputer="."

$objwmi=Get-WmiObject -Class win32_share

$sheet.cells.item(1,1)=("Name of Share")

$sheet.cells.item(1,2)=("Description of share")

$sheet.cells.item(1,3)=("Type of share")

foreach($objshare in $objwmi)

{

$sheet.cells.item($x,1)=$objshare.Name

$sheet.cells.item($x,2)=$objshare.Description

$sheet.cells.item($x,3)=$objshare.type

$x++

}

$range=$sheet.usedrange

$range.Entirecolumn.autofit()

$objexcel.ActiveWorkbook.SaveAs($strPath)

$objexcel.quit()

$range=$null

$sheet=$null

$workbook=$null

$objexcel=$null

[gc]::collect()