$strComputer = « . »
$Excel = Nouveau-Objet - COM Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add ()
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item (1.1) = « ordinateur »
$Sheet.Cells.Item (1.2) = « lettre d'entraînement »
$Sheet.Cells.Item (1.3) = « description »
$Sheet.Cells.Item (1.4) = « système de fichiers »
$Sheet.Cells.Item (1.5) = « taille en gigaoctet »
$Sheet.Cells.Item (1.6) = « l'espace libre en gigaoctet »
$WorkBook = $Sheet.UsedRange
$WorkBook.Interior.ColorIndex = 8
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
$intRow = 2
$colItems = Obtiennent-wmiObject - classer « Win32_LogicalDisk » - `le la « racine \ CIMV2 » de namespace
- computername $strComputer
foreach ($objItem dans $colItems) {
$Sheet.Cells.Item ($intRow, 1) = $objItem.SystemName
$Sheet.Cells.Item ($intRow, 2) = $objItem.DeviceID
$Sheet.Cells.Item ($intRow, 3) = $objItem.Description
$Sheet.Cells.Item ($intRow, 4) = $objItem.FileSystem
$Sheet.Cells.Item ($intRow, 5) = $objItem.Size/1GB
$Sheet.Cells.Item ($intRow, 6) = $objItem.FreeSpace/1GB
$intRow = $intRow + 1
$WorkBook.EntireColumn.AutoFit ()
}
$intRow = $intRow + 1
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item ($introw, 1) = « produit »
$Sheet.Cells.Item ($introw, 2) = « fournisseur »
$Sheet.Cells.Item ($introw, 3) = « version »
$Sheet.Cells.Item ($introw, 4) = « installent la date »
$introw = $introw + 1
$Keys = Obtiennent-ChildItem HKLM : \ Logiciel \ Microsoft \ Windows \ CurrentVersion \ désinstallent
$Items = $keys | foreach-objet {Obtenir-ItemProperty $_.PsPath} | où-objet {($_.DisplayName - mise à jour de notmatch « |Ne $null de Hotfix ») - et ($_.DisplayName -)}
foreach ($item dans $items) {
$Sheet.Cells.Item ($intRow, 1) = $Item.DisplayName
$Sheet.Cells.Item ($intRow, 2) = $Item.Publisher
$Sheet.Cells.Item ($intRow, 3) = $Item.DisplayVersion
$Sheet.Cells.Item ($intRow, 4) = $Item.InstallDate
$intRow = $intRow + 1
}
$WorkBook.EntireColumn.AutoFit ()
Espace libre
|