Mmett: Created page with ' <# .SYNOPSIS Skript joonistab C ketta kasutatud ruumi kohta Excelisse sektordiagrammi. NB! Skript ei tööta eestikeelsete keeleseatetega (ht…'

2012-01-26T15:11:30Z

Created page with '<source lang="powershell"> <# .SYNOPSIS Skript joonistab C ketta kasutatud ruumi kohta Excelisse sektordiagrammi. NB! Skript ei tööta eestikeelsete keeleseatetega (ht…'

New page

<source lang="powershell">

<#
.SYNOPSIS
Skript joonistab C ketta kasutatud ruumi kohta Excelisse sektordiagrammi.
NB! Skript ei tööta eestikeelsete keeleseatetega (http://support.microsoft.com/default.aspx?scid=kb;en-us;320369)

.NOTES
Autor: Mario Mett
#>

# Loome uue Exceli objekti, workbook'i ja worksheet'i.
$excel = New-Object -ComObject Excel.Application
$excel.visible = $true
$workbook = $excel.Workbooks.Add()
$worksheet = $workbook.Worksheets.Add()
$worksheet1 = $workbook.worksheets.Item(1)

# Küsime C: ketta vaba ruumi ja kogu suuruse.
$disk = Get-WMIObject Win32_LogicalDisk -filter "DeviceID='C:'" | select FreeSpace,Size

[long]$size = $disk.Size;
[long]$freespace = $disk.FreeSpace;
$used = $size - $freespace

# Täidame esimese veeru graafiku legendidega
$worksheet.cells.item(1,2)="Free"
$worksheet.cells.item(1,3)="Used"

# Täidame teise veeru graafku pealkirja ja vajalike väärtustega
$worksheet.cells.item(2,1)="C: disk usage"
$worksheet.cells.item(2,2)=$freespace
$worksheet.cells.item(2,3)=$used

# Määrame graafiku tüübi ja kust info võetakse.
$range = $worksheet1.UsedRange
$range.EntireColumn.AutoFit()
$workbook.charts.add()
$workbook.ActiveChart.chartType=[microsoft.office.interop.excel.xlChartType]::xlPie
$workbook.ActiveChart.SetSourceData($range)

# Salvestame faili
$workbook.SaveAs("C_disk_usage.xlsx")

PowerShell: Mario Mett, disk usage.ps1 - Revision history

Mmett: Created page with ' <# .SYNOPSIS Skript joonistab C ketta kasutatud ruumi kohta Excelisse sektordiagrammi. NB! Skript ei tööta eestikeelsete keeleseatetega (ht…'