PowerShell.com
Library » Script Library » VMware » Slideshow

VMware Slideshow

  1. $erroractionpreference = "SilentlyContinue" 
  2. $XL = New-Object -comobject Excel.Application 
  3. $TimeStamp = date 
  4. $XL.visible = $True 
  5. $WrkbkB = $XL.Workbooks.Add() 
  6. $WrkShtC = $WrkbkB.Worksheets.Item(1) 
  7. $WrkShtC.Cells.Item(1,1) = "DataCenter Name" 
  8. $WrkShtC.Cells.Item(1,2) = "Cluster Name" 
  9. $WrkShtC.Cells.Item(1,3) = "Virtual Machine Name" 
  10. $WrkShtC.Cells.Item(1,4) = "Status" 
  11. $WrkShtC.Cells.Item(1,5) = "IP Address" 
  12. $WrkShtC.Cells.Item(1,6) = "Operating System" 
  13. $WrkShtC.Cells.Item(1,7) = "Memory" 
  14. $WrkShtC.Cells.Item(1,8) = "Provisioned Disk Space" 
  15.  
  16. $d = $WrkShtC.UsedRange 
  17. $Global:Row = 2 
  18. $DataCents = Get-DataCenter |select-object Name 
  19. foreach ($DataCent in $DataCents) 
  20. { 
  21.     $DataCent.name 
  22.     $DNme = $DataCent.name 
  23.     $WrkShtC.Cells.Item($Global:Row,1) = $DNme 
  24.  
  25.    ClustFunc 
  26.     
  27. } 
  28.  
  29. function global:ClustFunc () 
  30. { 
  31.     Get-DataCenter -name "$DNme" | Get-Cluster | select-object Name 
  32.     $Clusts = Get-DataCenter -name "$DNme" | Get-Cluster | select-object Name 
  33.     foreach ($Clust in $Clusts) 
  34.     { 
  35.         $CNme = $Clust.name 
  36.         VMFunc $CNme 
  37.         #$WrkShtC.Cells.Item(1,6) = $Global:Row 
  38.     } 
  39.      
  40. } 
  41. $Global:Row 
  42. function global:VMFunc () 
  43. { 
  44.     Get-Cluster -name "$CNme" | Get-VM 
  45.     $WrkShtC.Cells.Item($Global:Row,2) = $CNme 
  46.     $VirMachs = Get-Cluster -name "$CNme" | Get-VM | Select-object Name 
  47.     foreach($VirMach in $VirMachs) 
  48.     { 
  49.         $VMNme = $VirMach.name 
  50.         $WrkShtC.Cells.Item($Global:Row,3) = $VMNme 
  51.         $VMDet = Get-vm -name "$VMNme" 
  52.         $WrkShtC.Cells.Item($Global:Row,4) = $VMDet.PowerState 
  53.         $WrkShtC.Cells.Item($Global:Row,5) = $VMDet.guest.ipaddress 
  54.         $WrkShtC.Cells.Item($Global:Row,6) = $VMDet.guest.osfullname 
  55.         $WrkShtC.Cells.Item($Global:Row,7) = $VMDet.MemoryMB 
  56.         $WrkShtC.Cells.Item($Global:Row,8) = $VMDet.ProvisionedSpaceGB 
  57.         $Global:Row = $Global:Row + 1    
  58.      } 
  59.      
  60. } 
  61. $d.Interior.ColorIndex = 10 
  62. $d.Font.ColorIndex = 15 
  63. $d.Font.Bold = $True 
  64. $d.EntireColumn.AutoFit() 
  65. $WrkShtC.Cells.Item(3,10) = "Script Admin" 
  66. $WrkShtC.Cells.Item(3,10).Font.ColorIndex = 3 
  67. $WrkShtC.Cells.Item(3,10).Font.Bold = $True 
  68. $WrkShtC.Cells.Item(3,10).EntireColumn.AutoFit() 
  69. $WrkShtC.Cells.Item(3,11) = "Phani Ghanta" 
  70. $WrkShtC.Cells.Item(3,11).Font.ColorIndex = 3 
  71. $WrkShtC.Cells.Item(3,11).Font.Bold = $True 
  72. $WrkShtC.Cells.Item(3,11).EntireColumn.AutoFit() 
  73. $XL.DisplayAlerts = False 
  74. $WrkbkB.DisplayAlerts = False 
  75. $Pver = "" 
  76. $WrkbkB.SaveAs("F:\$($(get-date).tostring('yyyy-MM-dd'))_VirtualMachinesStatus.xls") 
  77. $Xl.workbooks.close() 
  78. $XL.Quit() 
 
Loading...
View all files
Concentrated Tech NSoftware Dell Compellent Sponsored by Idera and Concentrated Tech and NSoftware and Dell Compellent
Copyright 2011 PowerShell.com. All rights reserved.