Need Help in Powershell

spiceuser-ess2w · 2021-02-09T18:28:08.000Z

Hi all,

I am a powershell script beginer and sorry about my english

I have a powershell script that collect last 20 APP and SYS event log from a list of computers in a text file that returning me nothing in my excel file.

the code look like::

#################################################################

$EventLogErr = invoke-command -computer $StrComputer -scriptblock {(“Application”,“System” | %{Get-Eventlog -EntryType Error -Newest 20 -LogName $_})}

#Populate Event Log Sheet

foreach ($Computer in $StrComputer)

{
$Sheet8.Cells.Item($intRowSoft, 1) = $StrComputer
$Sheet8.Cells.Item($intRowSoft, 2) = $EventLogErr.EntryType
$intRowSoft = $intRowSoft + 1

}

##########################################

Any idea?

Neally · 2021-02-09T23:28:35.000Z

Welcome

If you post code, please use the ‘Insert Code’ button. Please and thank you!

PLEASE READ BEFORE POSTING! Read if you're new to the PowerShell forum! Programming & Development

Hi, and welcome to the PowerShell forum! Don’t apologize for being a “noob” or “newbie” or “n00b.” There’s just no need – nobody will think you’re stupid, and the forums are all about asking questions. Just ask! Use a descriptive subject. Don’t say “Need help” or “PowerShell Help”, actually summarize what the problem is. It helps the rest of us keep track of which problem is which. Don’t post massive scripts. We’re all volunteers and we don’t have time to read all that, nor will we copy…

Neally · 2021-02-09T23:32:24.000Z

spiceuser-ess2w:

Where did you declare the actual Excel file?

foreach ($Computer in $StrComputer) {
    $Sheet8.Cells.Item($intRowSoft, 1) = $StrComputer
    $Sheet8.Cells.Item($intRowSoft, 2) = $EventLogErr.EntryType
    $intRowSoft = $intRowSoft + 1                   
}

this foreach makes no sense either as you are using ’ $StrComputer’ rather than ‘$computer’ ?

spiceuser-ess2w · 2021-02-10T00:03:52.000Z

# ==============================================================================================
# 
# Microsoft PowerShell Source File -- Created with SAPIEN Technologies PrimalScript 2007
# 
# NAME: Server/Workstation Inventory (CompInv_v2.ps1)
# 
# AUTHOR: Jesse Hamrick
# DATE  : 2/25/2009
# Web  : www.PowerShellPro.com
# COMMENT: Script Inventories Computers and sends results to an excel file.
# 
# Script found: https://github.com/smbambling/scripts_powershell/blob/master/Inventory%20Check/CompInv_v2.ps1
# Modify: Benoit Blais
# Date: 8 february 2021
# Version: 2021.1
# Modifications : Un-Hide Hard disk tab and Un-Hide Network tab
#                 Add software tab
#                 Add some goodies 
# Special thank you to Jesse Hamrick to share this script that I push a little bit further to learn and help somoene else
# 
# ==============================================================================================

# ==============================================================================================
# Functions Section
# ==============================================================================================
# Function Name 'WMILookup' - Gathers info using WMI and places results in Excel
# ==============================================================================================

Function	WMILookup
			{
				foreach ($StrComputer in $colComputers)
				{
					$GenItems1 = gwmi Win32_ComputerSystem -Comp $StrComputer
					$GenItems2 = gwmi Win32_OperatingSystem -Comp $StrComputer
					$SysItems1 = gwmi Win32_BIOS -Comp $StrComputer
					$SysItems2 = gwmi Win32_TimeZone -Comp $StrComputer
					$SysItems3 = gwmi Win32_WmiSetting -Comp $StrComputer
					$ProcItems1 = gwmi Win32_Processor -Comp $StrComputer
					$MemItems1 = gwmi Win32_PhysicalMemory -Comp $StrComputer
					$memItems2 = gwmi Win32_PhysicalMemoryArray -Comp $StrComputer
					$DiskItems = gwmi Win32_LogicalDisk -Comp $StrComputer
                    $Softwares = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -Class Win32_Product | select Name,Version,InstallDate,Vendor,IdentifyingNumber | sort Name} 
                    $ReleaseID = invoke-command -computer $StrComputer -scriptblock {Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion' -Name ReleaseID }
                    $InstallDate = invoke-command -computer $StrComputer -scriptblock {([WMI]'').ConvertToDateTime((Get-WmiObject Win32_OperatingSystem).InstallDate)}
                    $LastBootTime = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -ClassName win32_operatingsystem} 
                    $CurrentUser = invoke-command -computer $StrComputer -scriptblock {Get-WmiObject –Class Win32_ComputerSystem}
                    $Culture = invoke-command -computer $StrComputer -scriptblock {get-culture}
                    $WinSystemLocale = invoke-command -computer $StrComputer -scriptblock {get-winsystemlocale}
                    $EventLogErr = invoke-command -computer $StrComputer -scriptblock {("Application","System" | %{Get-Eventlog -EntryType Error -Newest 20 -LogName $_})}
                    $WindowsKey = invoke-command -computer $StrComputer -scriptblock {(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey} 
                    $Printers = invoke-command -computer $StrComputer -scriptblock {Get-Printer | select Name,Type,DriverName,PortName,Shared}
					$NetItems = gwmi Win32_NetworkAdapterConfiguration -Comp $StrComputer |`
					where{$_.IPEnabled -eq "True"}
				    
					

                    # Populate General Sheet(1) with information
					foreach ($objItem in $GenItems1)
					{
						$Sheet1.Cells.Item($intRow, 1) = $StrComputer
						Switch($objItem.DomainRole)
						{
							0{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Workstation"}
							1{$Sheet1.Cells.Item($intRow, 2) = "Member Workstation"}
							2{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Server"}
							3{$Sheet1.Cells.Item($intRow, 2) = "Member Server"}
							4{$Sheet1.Cells.Item($intRow, 2) = "Back-up Domain Controller"}
							5{$Sheet1.Cells.Item($intRow, 2) = "Primary Domain Controller"}
							default{"Undetermined Domain Role"}
						}
						$Sheet1.Cells.Item($intRow, 3) = $objItem.Manufacturer
						$Sheet1.Cells.Item($intRow, 4) = $objItem.Model
						$Sheet1.Cells.Item($intRow, 5) = $objItem.SystemType
						$Sheet1.Cells.Item($intRow, 6) = $objItem.NumberOfProcessors
						$Sheet1.Cells.Item($intRow, 7) = $objItem.TotalPhysicalMemory / 1024 / 1024 /1024
                  
					}
	
					foreach ($objItem in $GenItems2)
					{
						$Sheet1.Cells.Item($intRow, 8) = $objItem.Caption
                        $Sheet1.Cells.Item($intRow, 10) = $objItem.csdversion
                        $Sheet1.Cells.Item($intRow, 11) = $InstallDate
					}
                        
                    foreach ($Computer in $StrComputer)
					{
						$Sheet1.Cells.Item($intRow, 9) = $ReleaseID.ReleaseID
                        $Sheet1.Cells.Item($intRow, 12) = $LastBootTime.lastbootuptime
                        $Sheet1.Cells.Item($intRow, 13) = $CurrentUser.UserName
                        $Sheet1.Cells.Item($intRow, 14) = $Culture
                        $Sheet1.Cells.Item($intRow, 15) = $WinSystemLocale
                        $Sheet1.Cells.Item($intRow, 16) = $WindowsKey

					}
						
					                                                                  
                   
			
					#Populate Systems Sheet
					foreach ($objItem in $SysItems1)
					{
						$Sheet2.Cells.Item($intRow, 1) = $StrComputer
						$Sheet2.Cells.Item($intRow, 2) = $objItem.SMBIOSbiosVersion
						$Sheet2.Cells.Item($intRow, 3) = $objItem.Manufacturer
                        $Sheet2.Cells.Item($intRow, 4) = $objItem.Name
                        $Sheet2.Cells.Item($intRow, 5) = $objItem.SerialNumber
                        $Sheet2.Cells.Item($intRow, 6) = $objItem.Version
					}
					
					foreach ($objItem in $SysItems2)
					{	
						$Sheet2.Cells.Item($intRow, 7) = $objItem.Caption
					}
					
					foreach ($objItem in $SysItems3)
					{
						$Sheet2.Cells.Item($intRow, 8) = $objItem.BuildVersion
					}
				
					#Populate Processor Sheet		
					foreach ($objItem in $ProcItems1)
					{
						$Sheet3.Cells.Item($intRowCPU, 1) = $StrComputer
						$Sheet3.Cells.Item($intRowCPU, 2) = $objItem.DeviceID+" "+$objItem.Name
						$Sheet3.Cells.Item($intRowCPU, 3) = $objItem.Description
						$Sheet3.Cells.Item($intRowCPU, 4) = $objItem.family
						$Sheet3.Cells.Item($intRowCPU, 5) = $objItem.currentClockSpeed
						$Sheet3.Cells.Item($intRowCPU, 6) = $objItem.l2cacheSize
						$Sheet3.Cells.Item($intRowCPU, 7) = $objItem.UpgradeMethod
						$Sheet3.Cells.Item($intRowCPU, 8) = $objItem.SocketDesignation
						$intRowCPU = $intRowCPU + 1
					}
				
					#Populate Memory Sheet
					$bankcounter = 1
					foreach ($objItem in $memItems2)
					{
						$MemSlots = $objItem.MemoryDevices +1
							
						foreach ($objItem in $MemItems1)
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							if($objItem.BankLabel -eq "")
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.DeviceLocator
							}
							Else
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.BankLabel
							}
							$Sheet4.Cells.Item($intRowMem, 4) = $objItem.Capacity/1024/1024
							$Sheet4.Cells.Item($intRowMem, 5) = $objItem.FormFactor
							$Sheet4.Cells.Item($intRowMem, 6) = $objItem.TypeDetail
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
						while($bankcounter -lt $MemSlots)	
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							$Sheet4.Cells.Item($intRowMem, 3) = "is Empty"
							$Sheet4.Cells.Item($intRowMem, 4) = ""
							$Sheet4.Cells.Item($intRowMem, 5) = ""
							$Sheet4.Cells.Item($intRowMem, 6) = ""
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
					}
			
			
					#Populate Disk Sheet
					foreach ($objItem in $DiskItems)
					{
						$Sheet5.Cells.Item($intRowDisk, 1) = $StrComputer
						Switch($objItem.DriveType)
						{
							2{$Sheet5.Cells.Item($intRowDisk, 2) = "Floppy"}
							3{$Sheet5.Cells.Item($intRowDisk, 2) = "Fixed Disk"}
							5{$Sheet5.Cells.Item($intRowDisk, 2) = "Removable Media"}
							default{"Undetermined Drive Type"}
						}
						$Sheet5.Cells.Item($intRowDisk, 3) = $objItem.DeviceID
						$Sheet5.Cells.Item($intRowDisk, 4) = $objItem.Size/1024/1024
						$Sheet5.Cells.Item($intRowDisk, 5) = $objItem.FreeSpace/1024/1024
						$intRowDisk = $intRowDisk + 1
					}
		
					#Populate Network Sheet
					foreach ($objItem in $NetItems)
					{
						$Sheet6.Cells.Item($intRowNet, 1) = $StrComputer
						$Sheet6.Cells.Item($intRowNet, 2) = $objItem.Caption+" (enabled)"
						$Sheet6.Cells.Item($intRowNet, 3) = $objItem.DHCPEnabled
						$Sheet6.Cells.Item($intRowNet, 4) = $objItem.IPAddress
						$Sheet6.Cells.Item($intRowNet, 5) = $objItem.IPSubnet
						$Sheet6.Cells.Item($intRowNet, 6) = $objItem.DefaultIPGateway
						$Sheet6.Cells.Item($intRowNet, 7) = $objItem.DNSServerSearchOrder
						$Sheet6.Cells.Item($intRowNet, 8) = $objItem.FullDNSRegistrationEnabled
						$Sheet6.Cells.Item($intRowNet, 9) = $objItem.WINSPrimaryServer
						$Sheet6.Cells.Item($intRowNet, 10) = $objItem.WINSSecondaryServer
						$Sheet6.Cells.Item($intRowNet, 11) = $objItem.WINSEnableLMHostsLookup
						$intRowNet = $intRowNet + 1
					}

                    #Populate Softwares Sheet
                    foreach ($Softwares in $Softwares)
					{
						$Sheet7.Cells.Item($intRowSoft, 1) = $StrComputer
						$Sheet7.Cells.Item($intRowSoft, 2) = $Softwares.Name 
						$Sheet7.Cells.Item($intRowSoft, 3) = $Softwares.Version
						$Sheet7.Cells.Item($intRowSoft, 4) = $Softwares.InstallDate
                        $Sheet7.Cells.Item($intRowSoft, 5) = $Softwares.Vendor
                        $Sheet7.Cells.Item($intRowSoft, 6) = $Softwares.IdentifyingNumber
                        #$Sheet7.Cells.Item($intRowSoft, 7) = $Softwares.License
						$intRowSoft = $intRowSoft + 1
                        
					}

                    #Populate Event Log Sheet
                    foreach ($objitem in $EventLogErr)
					{
						$Sheet8.Cells.Item($intRowSoft, 1) = $StrComputer
                        $Sheet8.Cells.Item($intRowSoft, 2) = $objitem.EntryType
						$intRowSoft = $intRowSoft + 1
                        
					}

                    #Populate Printers Sheet
                    foreach ($objitem in $Printers)
					{
						$Sheet9.Cells.Item($intRowSoft, 1) = $StrComputer
                        $Sheet9.Cells.Item($intRowSoft, 2) = $objitem.Name
						$intRowSoft = $intRowSoft + 1
                        
					}
		
					$intRow = $intRow + 1
					$intRowCPU = $intRowCPU + 1
					$intRowMem = $intRowMem + 1
					$intRowDisk = $intRowDisk + 1
					$intRowNet = $intRowNet + 1
                    $intRowSoft = $intRowSoft + 1
				}
			}

# ==============================================================================================
# Function Name 'WMILookupCred'-Uses Alternative Credential-Gathers info using WMI.
# ==============================================================================================
Function	WMILookupCred
			{
				foreach ($StrComputer in $colComputers)
				{
					$GenItems1 = gwmi Win32_ComputerSystem -Comp $StrComputer -Credential $cred
					$GenItems2 = gwmi Win32_OperatingSystem -Comp $StrComputer -Credential $cred
					$SysItems1 = gwmi Win32_BIOS -Comp $StrComputer -Credential $cred
					$SysItems2 = gwmi Win32_TimeZone -Comp $StrComputer -Credential $cred
					$SysItems3 = gwmi Win32_WmiSetting -Comp $StrComputer -Credential $cred
					$ProcItems1 = gwmi Win32_Processor -Comp $StrComputer -Credential $cred
					$MemItems1 = gwmi Win32_PhysicalMemory -Comp $StrComputer -Credential $cred
					$memItems2 = gwmi Win32_PhysicalMemoryArray -Comp $StrComputer -Credential $cred
					$DiskItems = gwmi Win32_LogicalDisk -Comp $StrComputer -Credential $cred
                    $Softwares = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -Class Win32_Product | select Name,Version,InstallDate,Vendor,IdentifyingNumber | sort Name} 
                    $ReleaseID = invoke-command -computer $StrComputer -scriptblock {Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion' -Name ReleaseID }
                    $InstallDate = invoke-command -computer $StrComputer -scriptblock {([WMI]'').ConvertToDateTime((Get-WmiObject Win32_OperatingSystem).InstallDate)}
                    $LastBootTime = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -ClassName win32_operatingsystem}
                    $CurrentUser = invoke-command -computer $StrComputer -scriptblock {Get-WmiObject –Class Win32_ComputerSystem}
                    $Culture = invoke-command -computer $StrComputer -scriptblock {get-culture}
                    $WinSystemLocale = invoke-command -computer $StrComputer -scriptblock {get-winsystemlocale}
                    $WindowsKey = invoke-command -computer $StrComputer -scriptblock {(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey} 
					$NetItems = gwmi Win32_NetworkAdapterConfiguration -Comp $StrComputer -Credential $cred |`
					where{$_.IPEnabled -eq "True"}
                    
		
					# Populate General Sheet(1) with information
					foreach ($objItem in $GenItems1)
					{
						$Sheet1.Cells.Item($intRow, 1) = $StrComputer
						Switch($objItem.DomainRole)
							{
							0{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Workstation"}
							1{$Sheet1.Cells.Item($intRow, 2) = "Member Workstation"}
							2{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Server"}
							3{$Sheet1.Cells.Item($intRow, 2) = "Member Server"}
							4{$Sheet1.Cells.Item($intRow, 2) = "Back-up Domain Controller"}
							5{$Sheet1.Cells.Item($intRow, 2) = "Primary Domain Controller"}
							default{"Undetermined Domain Role"}
							}
						$Sheet1.Cells.Item($intRow, 3) = $objItem.Manufacturer
						$Sheet1.Cells.Item($intRow, 4) = $objItem.Model
						$Sheet1.Cells.Item($intRow, 5) = $objItem.SystemType
						$Sheet1.Cells.Item($intRow, 6) = $objItem.NumberOfProcessors
						$Sheet1.Cells.Item($intRow, 7) = $objItem.TotalPhysicalMemory / 1024 / 1024 /1024
					}
					
					foreach ($objItem in $GenItems2)
					{
						$Sheet1.Cells.Item($intRow, 8) = $objItem.Caption
						$Sheet1.Cells.Item($intRow, 10) = $objItem.csdversion
                        $Sheet1.Cells.Item($intRow, 11) = $InstallDate
					}

                    foreach ($Computer in $StrComputer)
					{
						$Sheet1.Cells.Item($intRow, 9) = $ReleaseID.ReleaseID
                        $Sheet1.Cells.Item($intRow, 12) = $LastBootTime.lastbootuptime
                        $Sheet1.Cells.Item($intRow, 13) = $CurrentUser.UserName
                        $Sheet1.Cells.Item($intRow, 14) = $Culture
                        $Sheet1.Cells.Item($intRow, 15) = $WinSystemLocale
                        $Sheet1.Cells.Item($intRow, 16) = $WindowsKey
					}
						
				
					#Populate Systems Sheet
					foreach ($objItem in $SysItems1)
					{
						$Sheet2.Cells.Item($intRow, 1) = $StrComputer
						$Sheet2.Cells.Item($intRow, 2) = $objItem.SMBIOSbiosVersion
						$Sheet2.Cells.Item($intRow, 3) = $objItem.Manufacturer
                        $Sheet2.Cells.Item($intRow, 4) = $objItem.Name
                        $Sheet2.Cells.Item($intRow, 5) = $objItem.SerialNumber
                        $Sheet2.Cells.Item($intRow, 6) = $objItem.Version
					}
					
					foreach ($objItem in $SysItems2)
					{	
						$Sheet2.Cells.Item($intRow, 7) = $objItem.Caption
					}
					
					foreach ($objItem in $SysItems3)
					{
						$Sheet2.Cells.Item($intRow, 8) = $objItem.BuildVersion
					}
				
					#Populate Processor Sheet		
					foreach ($objItem in $ProcItems1)
					{
						$Sheet3.Cells.Item($intRowCPU, 1) = $StrComputer
						$Sheet3.Cells.Item($intRowCPU, 2) = $objItem.DeviceID+" "+$objItem.Name
						$Sheet3.Cells.Item($intRowCPU, 3) = $objItem.Description
						$Sheet3.Cells.Item($intRowCPU, 4) = $objItem.family
						$Sheet3.Cells.Item($intRowCPU, 5) = $objItem.currentClockSpeed
						$Sheet3.Cells.Item($intRowCPU, 6) = $objItem.l2cacheSize
						$Sheet3.Cells.Item($intRowCPU, 7) = $objItem.UpgradeMethod
						$Sheet3.Cells.Item($intRowCPU, 8) = $objItem.SocketDesignation
						$intRowCPU = $intRowCPU + 1
					}
				
					#Populate Memory Sheet
					$bankcounter = 1
					foreach ($objItem in $memItems2)
					{
						$MemSlots = $objItem.MemoryDevices +1
							
						foreach ($objItem in $MemItems1)
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							if($objItem.BankLabel -eq "")
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.DeviceLocator
							}
							Else
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.BankLabel
							}
							$Sheet4.Cells.Item($intRowMem, 4) = $objItem.Capacity/1024/1024
							$Sheet4.Cells.Item($intRowMem, 5) = $objItem.FormFactor
							$Sheet4.Cells.Item($intRowMem, 6) = $objItem.TypeDetail
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
						while($bankcounter -lt $MemSlots)	
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							$Sheet4.Cells.Item($intRowMem, 3) = "is Empty"
							$Sheet4.Cells.Item($intRowMem, 4) = ""
							$Sheet4.Cells.Item($intRowMem, 5) = ""
							$Sheet4.Cells.Item($intRowMem, 6) = ""
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
					}
								
					#Populate Disk Sheet
					foreach ($objItem in $DiskItems)
					{
						$Sheet5.Cells.Item($intRowDisk, 1) = $StrComputer
						Switch($objItem.DriveType)
						{
							2{$Sheet5.Cells.Item($intRowDisk, 2) = "Floppy"}
							3{$Sheet5.Cells.Item($intRowDisk, 2) = "Fixed Disk"}
							5{$Sheet5.Cells.Item($intRowDisk, 2) = "Removable Media"}
							default{"Undetermined Drive Type"}
						}
						$Sheet5.Cells.Item($intRowDisk, 3) = $objItem.DeviceID
						$Sheet5.Cells.Item($intRowDisk, 4) = $objItem.Size/1024/1024
						$Sheet5.Cells.Item($intRowDisk, 5) = $objItem.FreeSpace/1024/1024
						$intRowDisk = $intRowDisk + 1
					}
							
					#Populate Network Sheet
					foreach ($objItem in $NetItems)
					{
						$Sheet6.Cells.Item($intRowNet, 1) = $StrComputer
						$Sheet6.Cells.Item($intRowNet, 2) = $objItem.Caption+" (enabled)"
						$Sheet6.Cells.Item($intRowNet, 3) = $objItem.DHCPEnabled
						$Sheet6.Cells.Item($intRowNet, 4) = $objItem.IPAddress
						$Sheet6.Cells.Item($intRowNet, 5) = $objItem.IPSubnet
						$Sheet6.Cells.Item($intRowNet, 6) = $objItem.DefaultIPGateway
						$Sheet6.Cells.Item($intRowNet, 7) = $objItem.DNSServerSearchOrder
						$Sheet6.Cells.Item($intRowNet, 8) = $objItem.FullDNSRegistrationEnabled
						$Sheet6.Cells.Item($intRowNet, 9) = $objItem.WINSPrimaryServer
						$Sheet6.Cells.Item($intRowNet, 10) = $objItem.WINSSecondaryServer
						$Sheet6.Cells.Item($intRowNet, 11) = $objItem.WINSEnableLMHostsLookup
						$intRowNet = $intRowNet + 1
					}

                    #Populate Softwares Sheet
					foreach ($objItem in $Softwares)
					{
						$Sheet7.Cells.Item($intRowSoft, 1) = $StrComputer
						$Sheet7.Cells.Item($intRowSoft, 2) = $Softwares.Name
						$Sheet7.Cells.Item($intRowSoft, 3) = $Softwares.Version
						$Sheet7.Cells.Item($intRowSoft, 4) = $Softwares.InstallDate
                        $Sheet7.Cells.Item($intRowSoft, 5) = $Softwares.Vendor
                        $Sheet7.Cells.Item($intRowSoft, 6) = $Softwares.IdentifyingNumber
						$intRowSoft = $intRowSoft + 1
					}
							
					$intRow = $intRow + 1
					$intRowCPU = $intRowCPU + 1
					$intRowMem = $intRowMem + 1
					$intRowDisk = $intRowDisk + 1
					$intRowNet = $intRowNet + 1
                    $intRowSoft = $intRowSoft + 1
				}
			}

# =============================================================================================
# Function Name 'ListComputers' - Enumerates ALL computer objects in AD
# ==============================================================================================
Function 	ListComputers
			{
				$strCategory = "computer"
				$objDomain = New-Object System.DirectoryServices.DirectoryEntry
				$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
				$objSearcher.SearchRoot = $objDomain
				$objSearcher.Filter = ("(objectCategory=$strCategory)")
				$colProplist = "name"
				foreach ($i in $colPropList)
				{
					$objSearcher.PropertiesToLoad.Add($i)
				}
				$colResults = $objSearcher.FindAll()

				foreach ($objResult in $colResults)
				{
					$objComputer = $objResult.Properties; $objComputer.name
				}
			}

# ==============================================================================================
# Function Name 'ListServers' - Enumerates ALL Servers objects in AD
# ==============================================================================================
Function	ListServers
			{
				$strCategory = "computer"
				$strOS = "Windows*Server*"
				$objDomain = New-Object System.DirectoryServices.DirectoryEntry
				$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
				$objSearcher.SearchRoot = $objDomain
				$objSearcher.Filter = ("(&(objectCategory=$strCategory)(OperatingSystem=$strOS))")
				$colProplist = "name"
				foreach ($i in $colPropList)
				{
					$objSearcher.PropertiesToLoad.Add($i)
				}
				$colResults = $objSearcher.FindAll()
				foreach ($objResult in $colResults)
				{
					$objComputer = $objResult.Properties;
					$objComputer.name
				}
}

# ========================================================================
# Function Name 'ListTextFile' - Enumerates Computer Names in a text file
# Create a text file and enter the names of each computer. One computer
# name per line. Supply the path to the text file when prompted.
# ========================================================================
Function	ListTextFile
			{
				$strText = Read-Host "Enter the path for the text file"
				$colComputers = Get-Content $strText
			}

# ========================================================================
# Function Name 'SingleEntry' - Enumerates Computer from user input
# ========================================================================
Function	ManualEntry
			{
				$colComputers = Read-Host "Enter Computer Name or IP" 
			}

# ==============================================================================================
# Script Body
# ==============================================================================================
$erroractionpreference = "SilentlyContinue"

#Gather info from user.
Write-Host "********************************" 	-ForegroundColor Green
Write-Host "Computer Inventory Script" 			-ForegroundColor Green
Write-Host "By: Jesse Hamrick" 					-ForegroundColor Green
Write-Host "Created: 04/15/2009" 				-ForegroundColor Green
Write-Host "Contact: www.PowerShellPro.com" 	-ForegroundColor Green
Write-Host "********************************" 	-ForegroundColor Green
Write-Host " "
Write-Host "Admin rights are required to enumerate information." 	-ForegroundColor Green
Write-Host "Would you like to use an alternative credential?"		-ForegroundColor Green
$credResponse = Read-Host "[Y] Yes, [N] No"
	If($CredResponse -eq "y")
	{
		$cred = Get-Credential DOMAIN\USER
	}
Write-Host " "
Write-Host "Which computer resources would you like in the report?"	-ForegroundColor Green
$strResponse = Read-Host "[1] All Domain Computers, [2] All Domain Servers, [3] Computer names from a File, [4] Choose a Computer manually"
	If    ($strResponse -eq "1"){$colComputers = ListComputers | Sort-Object}
	elseif($strResponse -eq "2"){$colComputers = ListServers | Sort-Object}
	elseif($strResponse -eq "3"){. ListTextFile}
	elseif($strResponse -eq "4"){. ManualEntry}
	else{Write-Host "You did not supply a correct response, `
	Please run script again." -foregroundColor Red}				
Write-Progress -Activity "Getting Inventory" -status "Running..." -id 1

#New Excel Application
$Excel = New-Object -Com Excel.Application
$Excel.visible = $True

 

# Create 6 worksheets
$Excel = $Excel.Workbooks.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()

# Assign each worksheet to a variable and
# name the worksheet.
$Sheet1 = $Excel.Worksheets.Item(1)
$Sheet2 = $Excel.WorkSheets.Item(2)
$Sheet3 = $Excel.WorkSheets.Item(3)
$Sheet4 = $Excel.WorkSheets.Item(4)
$Sheet5 = $Excel.WorkSheets.Item(5)
$Sheet6 = $Excel.WorkSheets.Item(6)
$Sheet7 = $Excel.WorkSheets.Item(7)
$Sheet8 = $Excel.WorkSheets.Item(8)
$Sheet9 = $Excel.WorkSheets.Item(9)
$Sheet1.Name = "General"
$Sheet2.Name = "System"
$Sheet3.Name = "Processor"
$Sheet4.Name = "Memory"
$Sheet5.Name = "Disk"
$Sheet6.Name = "Network"
$Sheet7.Name = "Softwares"
$Sheet8.Name = "EventLog"
$Sheet9.Name = "Printers"

#Create Heading for General Sheet
$Sheet1.Cells.Item(1,1) = "Device_Name"
$Sheet1.Cells.Item(1,2) = "Role"
$Sheet1.Cells.Item(1,3) = "HW_Make"
$Sheet1.Cells.Item(1,4) = "HW_Model"
$Sheet1.Cells.Item(1,5) = "HW_Type"
$Sheet1.Cells.Item(1,6) = "CPU_Count"
$Sheet1.Cells.Item(1,7) = "Memory_GB"
$Sheet1.Cells.Item(1,8) = "Operating_System"
$Sheet1.Cells.Item(1,9) = "Release_ID"
$Sheet1.Cells.Item(1,10) = "SP_Level"
$Sheet1.Cells.Item(1,11) = "OS_Install_Date"
$Sheet1.Cells.Item(1,12) = "Last_Boot_Time"
$Sheet1.Cells.Item(1,13) = "Current_UserName"
$Sheet1.Cells.Item(1,14) = "Get_Culture"
$Sheet1.Cells.Item(1,15) = "Win_System_Locale"
$Sheet1.Cells.Item(1,16) = "Windows_Key"

#Create Heading for System Sheet
$Sheet2.Cells.Item(1,1) = "Device_Name"
$Sheet2.Cells.Item(1,2) = "SMBIOSBIOSVersion"
$Sheet2.Cells.Item(1,3) = "Manufacturer"
$Sheet2.Cells.Item(1,4) = "BIOS_Name"
$Sheet2.Cells.Item(1,5) = "HW_Serial_#"
$Sheet2.Cells.Item(1,6) = "BIOS_Version"
$Sheet2.Cells.Item(1,7) = "Time_Zone"
$Sheet2.Cells.Item(1,8) = "WMI_Version"

#Create Heading for Processor Sheet
$Sheet3.Cells.Item(1,1) = "Device_Name"
$Sheet3.Cells.Item(1,2) = "Processor(s)"
$Sheet3.Cells.Item(1,3) = "Type"
$Sheet3.Cells.Item(1,4) = "Family"
$Sheet3.Cells.Item(1,5) = "Speed_MHz"
$Sheet3.Cells.Item(1,6) = "Cache_Size_MB"
$Sheet3.Cells.Item(1,7) = "Interface"
$Sheet3.Cells.Item(1,8) = "#_of_Sockets"

#Create Heading for Memory Sheet
$Sheet4.Cells.Item(1,1) = "Device_Name"
$Sheet4.Cells.Item(1,2) = "Bank_#"
$Sheet4.Cells.Item(1,3) = "Label"
$Sheet4.Cells.Item(1,4) = "Capacity_MB"
$Sheet4.Cells.Item(1,5) = "Form"
$Sheet4.Cells.Item(1,6) = "Type"

#Create Heading for Disk Sheet
$Sheet5.Cells.Item(1,1) = "Device_Name"
$Sheet5.Cells.Item(1,2) = "Disk_Type"
$Sheet5.Cells.Item(1,3) = "Drive_Letter"
$Sheet5.Cells.Item(1,4) = "Capacity_MB"
$Sheet5.Cells.Item(1,5) = "Free_Space_MB"

#Create Heading for Network Sheet
$Sheet6.Cells.Item(1,1) = "Device_Name"
$Sheet6.Cells.Item(1,2) = "Network_Card"
$Sheet6.Cells.Item(1,3) = "DHCP_Enabled"
$Sheet6.Cells.Item(1,4) = "IP_Address"
$Sheet6.Cells.Item(1,5) = "Subnet_Mask"
$Sheet6.Cells.Item(1,6) = "Default_Gateway"
$Sheet6.Cells.Item(1,7) = "DNS_Servers"
$Sheet6.Cells.Item(1,8) = "DNS_Reg"
$Sheet6.Cells.Item(1,9) = "Primary_WINS"
$Sheet6.Cells.Item(1,10) = "Secondary_WINS"
$Sheet6.Cells.Item(1,11) = "WINS_Lookup"

#Create Heading for Softwares Sheet
$Sheet7.Cells.Item(1,1) = "Device_Name"
$Sheet7.Cells.Item(1,2) = "Softwares"
$Sheet7.Cells.Item(1,3) = "Version"
$Sheet7.Cells.Item(1,4) = "Install Date"
$Sheet7.Cells.Item(1,5) = "Vendor"
$Sheet7.Cells.Item(1,6) = "Identifying Number"

#Create Heading for Event Log Sheet
$Sheet8.Cells.Item(1,1) = "Device_Name"

#Create Heading for Printers Sheet
$Sheet9.Cells.Item(1,1) = "Device_Name"

$colSheets = ($Sheet1, $Sheet2, $Sheet3, $Sheet4, $Sheet5, $Sheet6, $Sheet7, $Sheet8)
foreach ($colorItem in $colSheets)
{
	$intRow = 2
	$intRowCPU = 2
	$intRowMem = 2
	$intRowDisk = 2
	$intRowNet = 2
    $intRowSoft = 2
	$WorkBook = $colorItem.UsedRange
	$WorkBook.Interior.ColorIndex = 20
	$WorkBook.Font.ColorIndex = 11
	$WorkBook.Font.Bold = $True
    
}

If($credResponse -eq "y"){WMILookupCred}
Else{WMILookup}

#Auto Fit all sheets in the Workbook
foreach ($colorItem in $colSheets)
{
	$WorkBook = $colorItem.UsedRange															
	$WorkBook.EntireColumn.AutoFit()
    $WorkBook.AutoFilter()
    
	clear
}
Write-Host "*******************************" -ForegroundColor Green
Write-Host "The Report has been completed. " -ForeGroundColor Green
Write-Host "*******************************" -ForegroundColor Green
# ========================================================================
# END of Script
# ========================================================================

spiceuser-ess2w:

Hi all,

I am a powershell script beginer and sorry about my english

I have a powershell script that collect last 20 APP and SYS event log from a list of computers in a text file that returning me nothing in my excel file.

the code look like::

#################################################################

$EventLogErr = invoke-command -computer $StrComputer -scriptblock {(“Application”,“System” | %{Get-Eventlog -EntryType Error -Newest 20 -LogName $_})}

#Populate Event Log Sheet

foreach ($Computer in $StrComputer)

{
$Sheet8.Cells.Item($intRowSoft, 1) = $StrComputer
$Sheet8.Cells.Item($intRowSoft, 2) = $EventLogErr.EntryType
$intRowSoft = $intRowSoft + 1

}

##########################################

Any idea?

spiceuser-ess2w · 2021-02-10T00:07:06.000Z

This is the entire code that I found a part on internet and I try to put gravy on it.I

I am a beginner with powershell, grab code here and there and put it together to try to make it work.

Two bugs still remail: Event Tab and Printer Tab.

After, I start to learn on another code for a fantaisy of mine.

Thanks for your help

Neally · 2021-02-10T00:09:22.000Z

Powershell is not great with excel, you only copied part of it, you have to manually create a com object to be able to access excel.
Alternatively you can look into the ‘importExcel’ module in the powershell gallery and see if that will help.
Good luck.

spiceuser-ess2w · 2021-02-10T00:30:00.000Z

The entire code will be unlock maybe soon." Uh-oh! Something about your post, or this topic, triggered our moderation system. Our super-fast community managers will review it as soon as possible."

Neally · 2021-02-10T00:40:33.000Z

Yeah I’m not reading all this

Look at this Line:

#New Excel Application
$Excel = New-Object -Com Excel.Application

^ that’s creating the new excel file via com object as I mentioned. Your code does not have that, it’s needed

spiceuser-ess2w · 2021-02-10T00:43:13.000Z

OK, But at now everything else work fine. Only Event and Printers tab that no data feed in it.

But I will try with your suggestion

spiceuser-ess2w · 2021-02-10T02:10:48.000Z

Finally, I found what’s going on with my script. I forgot to change variable name in my script in Printer and Event sections.

Let me finalized some things and I will get all code again

spiceuser-ess2w · 2021-02-10T02:45:31.000Z

# ==============================================================================================
# 
# Microsoft PowerShell Source File -- Created with SAPIEN Technologies PrimalScript 2007
# 
# NAME: Server/Workstation Inventory (CompInv_v2.ps1)
# 
# AUTHOR: Jesse Hamrick
# DATE  : 2/25/2009
# Web  : www.PowerShellPro.com
# COMMENT: Script Inventories Computers and sends results to an excel file.
# 
# Script found: https://github.com/smbambling/scripts_powershell/blob/master/Inventory%20Check/CompInv_v2.ps1
# Modify: Benoit Blais
# Date: 8 february 2021
# Version: 2021.1
# Modifications : Un-Hide Hard disk tab and Un-Hide Network tab
#                 Add software tab
#                 Add some goodies 
# Special thank you to Jesse Hamrick to share this script that I push a little bit further to learn and help somoene else
# 
# ==============================================================================================

# ==============================================================================================
# Functions Section
# ==============================================================================================
# Function Name 'WMILookup' - Gathers info using WMI and places results in Excel
# ==============================================================================================

Function	WMILookup
			{
				foreach ($StrComputer in $colComputers)
				{
					$GenItems1 = gwmi Win32_ComputerSystem -Comp $StrComputer
					$GenItems2 = gwmi Win32_OperatingSystem -Comp $StrComputer
					$SysItems1 = gwmi Win32_BIOS -Comp $StrComputer
					$SysItems2 = gwmi Win32_TimeZone -Comp $StrComputer
					$SysItems3 = gwmi Win32_WmiSetting -Comp $StrComputer
					$ProcItems1 = gwmi Win32_Processor -Comp $StrComputer
					$MemItems1 = gwmi Win32_PhysicalMemory -Comp $StrComputer
					$memItems2 = gwmi Win32_PhysicalMemoryArray -Comp $StrComputer
					$DiskItems = gwmi Win32_LogicalDisk -Comp $StrComputer
                    $Softwares = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -Class Win32_Product | select Name,Version,InstallDate,Vendor,IdentifyingNumber | sort Name} 
                    $ReleaseID = invoke-command -computer $StrComputer -scriptblock {Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion' -Name ReleaseID }
                    $InstallDate = invoke-command -computer $StrComputer -scriptblock {([WMI]'').ConvertToDateTime((Get-WmiObject Win32_OperatingSystem).InstallDate)}
                    $LastBootTime = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -ClassName win32_operatingsystem} 
                    $CurrentUser = invoke-command -computer $StrComputer -scriptblock {Get-WmiObject –Class Win32_ComputerSystem}
                    $Culture = invoke-command -computer $StrComputer -scriptblock {get-culture}
                    $WinSystemLocale = invoke-command -computer $StrComputer -scriptblock {get-winsystemlocale}
                    $EventLogErr = invoke-command -computer $StrComputer -scriptblock {("Application","System" | %{Get-Eventlog -EntryType Error -Newest 20 -LogName $_})}
                    $WindowsKey = invoke-command -computer $StrComputer -scriptblock {(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey} 
                    $Printers = invoke-command -computer $StrComputer -scriptblock {Get-Printer | select Name,Type,DriverName,PortName,Shared}
					$NetItems = gwmi Win32_NetworkAdapterConfiguration -Comp $StrComputer |`
					where{$_.IPEnabled -eq "True"}
				    
					

                    # Populate General Sheet(1) with information
					foreach ($objItem in $GenItems1)
					{
						$Sheet1.Cells.Item($intRow, 1) = $StrComputer
						Switch($objItem.DomainRole)
						{
							0{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Workstation"}
							1{$Sheet1.Cells.Item($intRow, 2) = "Member Workstation"}
							2{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Server"}
							3{$Sheet1.Cells.Item($intRow, 2) = "Member Server"}
							4{$Sheet1.Cells.Item($intRow, 2) = "Back-up Domain Controller"}
							5{$Sheet1.Cells.Item($intRow, 2) = "Primary Domain Controller"}
							default{"Undetermined Domain Role"}
						}
						$Sheet1.Cells.Item($intRow, 3) = $objItem.Manufacturer
						$Sheet1.Cells.Item($intRow, 4) = $objItem.Model
						$Sheet1.Cells.Item($intRow, 5) = $objItem.SystemType
						$Sheet1.Cells.Item($intRow, 6) = $objItem.NumberOfProcessors
						$Sheet1.Cells.Item($intRow, 7) = $objItem.TotalPhysicalMemory / 1024 / 1024 /1024
                  
					}
	
					foreach ($objItem in $GenItems2)
					{
						$Sheet1.Cells.Item($intRow, 8) = $objItem.Caption
                        $Sheet1.Cells.Item($intRow, 10) = $objItem.csdversion
                        $Sheet1.Cells.Item($intRow, 11) = $InstallDate
					}
                        
                    foreach ($Computer in $StrComputer)
					{
						$Sheet1.Cells.Item($intRow, 9) = $ReleaseID.ReleaseID
                        $Sheet1.Cells.Item($intRow, 12) = $LastBootTime.lastbootuptime
                        $Sheet1.Cells.Item($intRow, 13) = $CurrentUser.UserName
                        $Sheet1.Cells.Item($intRow, 14) = $Culture
                        $Sheet1.Cells.Item($intRow, 15) = $WinSystemLocale
                        $Sheet1.Cells.Item($intRow, 16) = $WindowsKey

					}
						
					                                                                  
                   
			
					#Populate Systems Sheet
					foreach ($objItem in $SysItems1)
					{
						$Sheet2.Cells.Item($intRow, 1) = $StrComputer
						$Sheet2.Cells.Item($intRow, 2) = $objItem.SMBIOSbiosVersion
						$Sheet2.Cells.Item($intRow, 3) = $objItem.Manufacturer
                        $Sheet2.Cells.Item($intRow, 4) = $objItem.Name
                        $Sheet2.Cells.Item($intRow, 5) = $objItem.SerialNumber
                        $Sheet2.Cells.Item($intRow, 6) = $objItem.Version
					}
					
					foreach ($objItem in $SysItems2)
					{	
						$Sheet2.Cells.Item($intRow, 7) = $objItem.Caption
					}
					
					foreach ($objItem in $SysItems3)
					{
						$Sheet2.Cells.Item($intRow, 8) = $objItem.BuildVersion
					}
				
					#Populate Processor Sheet		
					foreach ($objItem in $ProcItems1)
					{
						$Sheet3.Cells.Item($intRowCPU, 1) = $StrComputer
						$Sheet3.Cells.Item($intRowCPU, 2) = $objItem.DeviceID+" "+$objItem.Name
						$Sheet3.Cells.Item($intRowCPU, 3) = $objItem.Description
						$Sheet3.Cells.Item($intRowCPU, 4) = $objItem.family
						$Sheet3.Cells.Item($intRowCPU, 5) = $objItem.currentClockSpeed
						$Sheet3.Cells.Item($intRowCPU, 6) = $objItem.l2cacheSize
						$Sheet3.Cells.Item($intRowCPU, 7) = $objItem.UpgradeMethod
						$Sheet3.Cells.Item($intRowCPU, 8) = $objItem.SocketDesignation
						$intRowCPU = $intRowCPU + 1
					}
				
					#Populate Memory Sheet
					$bankcounter = 1
					foreach ($objItem in $memItems2)
					{
						$MemSlots = $objItem.MemoryDevices +1
							
						foreach ($objItem in $MemItems1)
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							if($objItem.BankLabel -eq "")
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.DeviceLocator
							}
							Else
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.BankLabel
							}
							$Sheet4.Cells.Item($intRowMem, 4) = $objItem.Capacity/1024/1024
							$Sheet4.Cells.Item($intRowMem, 5) = $objItem.FormFactor
							$Sheet4.Cells.Item($intRowMem, 6) = $objItem.TypeDetail
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
						while($bankcounter -lt $MemSlots)	
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							$Sheet4.Cells.Item($intRowMem, 3) = "is Empty"
							$Sheet4.Cells.Item($intRowMem, 4) = ""
							$Sheet4.Cells.Item($intRowMem, 5) = ""
							$Sheet4.Cells.Item($intRowMem, 6) = ""
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
					}
			
			
					#Populate Disk Sheet
					foreach ($objItem in $DiskItems)
					{
						$Sheet5.Cells.Item($intRowDisk, 1) = $StrComputer
						Switch($objItem.DriveType)
						{
							2{$Sheet5.Cells.Item($intRowDisk, 2) = "Floppy"}
							3{$Sheet5.Cells.Item($intRowDisk, 2) = "Fixed Disk"}
							5{$Sheet5.Cells.Item($intRowDisk, 2) = "Removable Media"}
							default{"Undetermined Drive Type"}
						}
						$Sheet5.Cells.Item($intRowDisk, 3) = $objItem.DeviceID
						$Sheet5.Cells.Item($intRowDisk, 4) = $objItem.Size/1024/1024
						$Sheet5.Cells.Item($intRowDisk, 5) = $objItem.FreeSpace/1024/1024
						$intRowDisk = $intRowDisk + 1
					}
		
					#Populate Network Sheet
					foreach ($objItem in $NetItems)
					{
						$Sheet6.Cells.Item($intRowNet, 1) = $StrComputer
						$Sheet6.Cells.Item($intRowNet, 2) = $objItem.Caption+" (enabled)"
						$Sheet6.Cells.Item($intRowNet, 3) = $objItem.DHCPEnabled
						$Sheet6.Cells.Item($intRowNet, 4) = $objItem.IPAddress
						$Sheet6.Cells.Item($intRowNet, 5) = $objItem.IPSubnet
						$Sheet6.Cells.Item($intRowNet, 6) = $objItem.DefaultIPGateway
						$Sheet6.Cells.Item($intRowNet, 7) = $objItem.DNSServerSearchOrder
						$Sheet6.Cells.Item($intRowNet, 8) = $objItem.FullDNSRegistrationEnabled
						$Sheet6.Cells.Item($intRowNet, 9) = $objItem.WINSPrimaryServer
						$Sheet6.Cells.Item($intRowNet, 10) = $objItem.WINSSecondaryServer
						$Sheet6.Cells.Item($intRowNet, 11) = $objItem.WINSEnableLMHostsLookup
						$intRowNet = $intRowNet + 1
					}

                    #Populate Softwares Sheet
                    foreach ($Softwares in $Softwares)
					{
						$Sheet7.Cells.Item($intRowSoft, 1) = $StrComputer
						$Sheet7.Cells.Item($intRowSoft, 2) = $Softwares.Name 
						$Sheet7.Cells.Item($intRowSoft, 3) = $Softwares.Version
						$Sheet7.Cells.Item($intRowSoft, 4) = $Softwares.InstallDate
                        $Sheet7.Cells.Item($intRowSoft, 5) = $Softwares.Vendor
                        $Sheet7.Cells.Item($intRowSoft, 6) = $Softwares.IdentifyingNumber
                        #$Sheet7.Cells.Item($intRowSoft, 7) = $Softwares.License
						$intRowSoft = $intRowSoft + 1
                        
					}

                    #Populate Event Log Sheet
                    foreach ($Error in $EventLogErr)
					{
						$Sheet8.Cells.Item($intRowErr, 1) = $StrComputer
                        $Sheet8.Cells.Item($intRowErr, 2) = $Error.TimeGenerated
                        $Sheet8.Cells.Item($intRowErr, 3) = $Error.EntryType
                        $Sheet8.Cells.Item($intRowErr, 4) = $Error.Source
                        $Sheet8.Cells.Item($intRowErr, 5) = $Error.InstanceID
                        $Sheet8.Cells.Item($intRowErr, 6) = $Error.Message
						$intRowErr = $intRowErr + 1
                        
					}

                    #Populate Printers Sheet
                    foreach ($objItem in $Printers)
					{
						$Sheet9.Cells.Item($intRowPrt, 1) = $StrComputer
                        $Sheet9.Cells.Item($intRowPrt, 2) = $objItem.Name
                        $Sheet9.Cells.Item($intRowPrt, 3) = $objItem.DriverName
                        $Sheet9.Cells.Item($intRowPrt, 4) = $objItem.PortName
                        $Sheet9.Cells.Item($intRowPrt, 5) = $objItem.Shared
						$intRowPrt = $intRowPrt + 1
                        
					}
		
					$intRow = $intRow + 1
					$intRowCPU = $intRowCPU + 1
					$intRowMem = $intRowMem + 1
					$intRowDisk = $intRowDisk + 1
					$intRowNet = $intRowNet + 1
                    $intRowSoft = $intRowSoft + 1
				}
			}

# ==============================================================================================
# Function Name 'WMILookupCred'-Uses Alternative Credential-Gathers info using WMI.
# ==============================================================================================
Function	WMILookupCred
			{
				foreach ($StrComputer in $colComputers)
				{
					$GenItems1 = gwmi Win32_ComputerSystem -Comp $StrComputer -Credential $cred
					$GenItems2 = gwmi Win32_OperatingSystem -Comp $StrComputer -Credential $cred
					$SysItems1 = gwmi Win32_BIOS -Comp $StrComputer -Credential $cred
					$SysItems2 = gwmi Win32_TimeZone -Comp $StrComputer -Credential $cred
					$SysItems3 = gwmi Win32_WmiSetting -Comp $StrComputer -Credential $cred
					$ProcItems1 = gwmi Win32_Processor -Comp $StrComputer -Credential $cred
					$MemItems1 = gwmi Win32_PhysicalMemory -Comp $StrComputer -Credential $cred
					$memItems2 = gwmi Win32_PhysicalMemoryArray -Comp $StrComputer -Credential $cred
					$DiskItems = gwmi Win32_LogicalDisk -Comp $StrComputer -Credential $cred
                    $Softwares = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -Class Win32_Product | select Name,Version,InstallDate,Vendor,IdentifyingNumber | sort Name} 
                    $ReleaseID = invoke-command -computer $StrComputer -scriptblock {Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion' -Name ReleaseID }
                    $InstallDate = invoke-command -computer $StrComputer -scriptblock {([WMI]'').ConvertToDateTime((Get-WmiObject Win32_OperatingSystem).InstallDate)}
                    $LastBootTime = invoke-command -computer $StrComputer -scriptblock {Get-CimInstance -ClassName win32_operatingsystem}
                    $CurrentUser = invoke-command -computer $StrComputer -scriptblock {Get-WmiObject –Class Win32_ComputerSystem}
                    $Culture = invoke-command -computer $StrComputer -scriptblock {get-culture}
                    $WinSystemLocale = invoke-command -computer $StrComputer -scriptblock {get-winsystemlocale}
                    $EventLogErr = invoke-command -computer $StrComputer -scriptblock {("Application","System" | %{Get-Eventlog -EntryType Error -Newest 20 -LogName $_})}
                    $WindowsKey = invoke-command -computer $StrComputer -scriptblock {(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey} 
                    $Printers = invoke-command -computer $StrComputer -scriptblock {Get-Printer | select Name,Type,DriverName,PortName,Shared}
					$NetItems = gwmi Win32_NetworkAdapterConfiguration -Comp $StrComputer -Credential $cred |`
					where{$_.IPEnabled -eq "True"}
                    
		
					# Populate General Sheet(1) with information
					foreach ($objItem in $GenItems1)
					{
						$Sheet1.Cells.Item($intRow, 1) = $StrComputer
						Switch($objItem.DomainRole)
							{
							0{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Workstation"}
							1{$Sheet1.Cells.Item($intRow, 2) = "Member Workstation"}
							2{$Sheet1.Cells.Item($intRow, 2) = "Stand Alone Server"}
							3{$Sheet1.Cells.Item($intRow, 2) = "Member Server"}
							4{$Sheet1.Cells.Item($intRow, 2) = "Back-up Domain Controller"}
							5{$Sheet1.Cells.Item($intRow, 2) = "Primary Domain Controller"}
							default{"Undetermined Domain Role"}
							}
						$Sheet1.Cells.Item($intRow, 3) = $objItem.Manufacturer
						$Sheet1.Cells.Item($intRow, 4) = $objItem.Model
						$Sheet1.Cells.Item($intRow, 5) = $objItem.SystemType
						$Sheet1.Cells.Item($intRow, 6) = $objItem.NumberOfProcessors
						$Sheet1.Cells.Item($intRow, 7) = $objItem.TotalPhysicalMemory / 1024 / 1024 /1024
					}
					
					foreach ($objItem in $GenItems2)
					{
						$Sheet1.Cells.Item($intRow, 8) = $objItem.Caption
						$Sheet1.Cells.Item($intRow, 10) = $objItem.csdversion
                        $Sheet1.Cells.Item($intRow, 11) = $InstallDate
					}

                    foreach ($Computer in $StrComputer)
					{
						$Sheet1.Cells.Item($intRow, 9) = $ReleaseID.ReleaseID
                        $Sheet1.Cells.Item($intRow, 12) = $LastBootTime.lastbootuptime
                        $Sheet1.Cells.Item($intRow, 13) = $CurrentUser.UserName
                        $Sheet1.Cells.Item($intRow, 14) = $Culture
                        $Sheet1.Cells.Item($intRow, 15) = $WinSystemLocale
                        $Sheet1.Cells.Item($intRow, 16) = $WindowsKey
					}
						
				
					#Populate Systems Sheet
					foreach ($objItem in $SysItems1)
					{
						$Sheet2.Cells.Item($intRow, 1) = $StrComputer
						$Sheet2.Cells.Item($intRow, 2) = $objItem.SMBIOSbiosVersion
						$Sheet2.Cells.Item($intRow, 3) = $objItem.Manufacturer
                        $Sheet2.Cells.Item($intRow, 4) = $objItem.Name
                        $Sheet2.Cells.Item($intRow, 5) = $objItem.SerialNumber
                        $Sheet2.Cells.Item($intRow, 6) = $objItem.Version
					}
					
					foreach ($objItem in $SysItems2)
					{	
						$Sheet2.Cells.Item($intRow, 7) = $objItem.Caption
					}
					
					foreach ($objItem in $SysItems3)
					{
						$Sheet2.Cells.Item($intRow, 8) = $objItem.BuildVersion
					}
				
					#Populate Processor Sheet		
					foreach ($objItem in $ProcItems1)
					{
						$Sheet3.Cells.Item($intRowCPU, 1) = $StrComputer
						$Sheet3.Cells.Item($intRowCPU, 2) = $objItem.DeviceID+" "+$objItem.Name
						$Sheet3.Cells.Item($intRowCPU, 3) = $objItem.Description
						$Sheet3.Cells.Item($intRowCPU, 4) = $objItem.family
						$Sheet3.Cells.Item($intRowCPU, 5) = $objItem.currentClockSpeed
						$Sheet3.Cells.Item($intRowCPU, 6) = $objItem.l2cacheSize
						$Sheet3.Cells.Item($intRowCPU, 7) = $objItem.UpgradeMethod
						$Sheet3.Cells.Item($intRowCPU, 8) = $objItem.SocketDesignation
						$intRowCPU = $intRowCPU + 1
					}
				
					#Populate Memory Sheet
					$bankcounter = 1
					foreach ($objItem in $memItems2)
					{
						$MemSlots = $objItem.MemoryDevices +1
							
						foreach ($objItem in $MemItems1)
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							if($objItem.BankLabel -eq "")
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.DeviceLocator
							}
							Else
							{
								$Sheet4.Cells.Item($intRowMem, 3) = $objItem.BankLabel
							}
							$Sheet4.Cells.Item($intRowMem, 4) = $objItem.Capacity/1024/1024
							$Sheet4.Cells.Item($intRowMem, 5) = $objItem.FormFactor
							$Sheet4.Cells.Item($intRowMem, 6) = $objItem.TypeDetail
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
						while($bankcounter -lt $MemSlots)	
						{
							$Sheet4.Cells.Item($intRowMem, 1) = $StrComputer
							$Sheet4.Cells.Item($intRowMem, 2) = "Bank " +$bankcounter
							$Sheet4.Cells.Item($intRowMem, 3) = "is Empty"
							$Sheet4.Cells.Item($intRowMem, 4) = ""
							$Sheet4.Cells.Item($intRowMem, 5) = ""
							$Sheet4.Cells.Item($intRowMem, 6) = ""
							$intRowMem = $intRowMem + 1
							$bankcounter = $bankcounter + 1
						}
					}
								
					#Populate Disk Sheet
					foreach ($objItem in $DiskItems)
					{
						$Sheet5.Cells.Item($intRowDisk, 1) = $StrComputer
						Switch($objItem.DriveType)
						{
							2{$Sheet5.Cells.Item($intRowDisk, 2) = "Floppy"}
							3{$Sheet5.Cells.Item($intRowDisk, 2) = "Fixed Disk"}
							5{$Sheet5.Cells.Item($intRowDisk, 2) = "Removable Media"}
							default{"Undetermined Drive Type"}
						}
						$Sheet5.Cells.Item($intRowDisk, 3) = $objItem.DeviceID
						$Sheet5.Cells.Item($intRowDisk, 4) = $objItem.Size/1024/1024
						$Sheet5.Cells.Item($intRowDisk, 5) = $objItem.FreeSpace/1024/1024
						$intRowDisk = $intRowDisk + 1
					}
							
					#Populate Network Sheet
					foreach ($objItem in $NetItems)
					{
						$Sheet6.Cells.Item($intRowNet, 1) = $StrComputer
						$Sheet6.Cells.Item($intRowNet, 2) = $objItem.Caption+" (enabled)"
						$Sheet6.Cells.Item($intRowNet, 3) = $objItem.DHCPEnabled
						$Sheet6.Cells.Item($intRowNet, 4) = $objItem.IPAddress
						$Sheet6.Cells.Item($intRowNet, 5) = $objItem.IPSubnet
						$Sheet6.Cells.Item($intRowNet, 6) = $objItem.DefaultIPGateway
						$Sheet6.Cells.Item($intRowNet, 7) = $objItem.DNSServerSearchOrder
						$Sheet6.Cells.Item($intRowNet, 8) = $objItem.FullDNSRegistrationEnabled
						$Sheet6.Cells.Item($intRowNet, 9) = $objItem.WINSPrimaryServer
						$Sheet6.Cells.Item($intRowNet, 10) = $objItem.WINSSecondaryServer
						$Sheet6.Cells.Item($intRowNet, 11) = $objItem.WINSEnableLMHostsLookup
						$intRowNet = $intRowNet + 1
					}

                    #Populate Softwares Sheet
					foreach ($objItem in $Softwares)
					{
						$Sheet7.Cells.Item($intRowSoft, 1) = $StrComputer
						$Sheet7.Cells.Item($intRowSoft, 2) = $Softwares.Name
						$Sheet7.Cells.Item($intRowSoft, 3) = $Softwares.Version
						$Sheet7.Cells.Item($intRowSoft, 4) = $Softwares.InstallDate
                        $Sheet7.Cells.Item($intRowSoft, 5) = $Softwares.Vendor
                        $Sheet7.Cells.Item($intRowSoft, 6) = $Softwares.IdentifyingNumber
						$intRowSoft = $intRowSoft + 1
					}

                    #Populate Event Log Sheet
                    foreach ($Error in $EventLogErr)
					{
						$Sheet8.Cells.Item($intRowErr, 1) = $StrComputer
                        $Sheet8.Cells.Item($intRowErr, 2) = $Error.TimeGenerated
                        $Sheet8.Cells.Item($intRowErr, 3) = $Error.EntryType
                        $Sheet8.Cells.Item($intRowErr, 4) = $Error.Source
                        $Sheet8.Cells.Item($intRowErr, 5) = $Error.InstanceID
                        $Sheet8.Cells.Item($intRowErr, 6) = $Error.Message
						$intRowErr = $intRowErr + 1
                        
					}

                    #Populate Printers Sheet
                    foreach ($Printer in $Printers)
					{
						$Sheet9.Cells.Item($intRowPrt, 1) = $StrComputer
                        $Sheet9.Cells.Item($intRowPrt, 2) = $Printers.Name
                        $Sheet9.Cells.Item($intRowPrt, 3) = $Printers.DriverName
                        $Sheet9.Cells.Item($intRowPrt, 4) = $Printers.PortName
                        $Sheet9.Cells.Item($intRowPrt, 5) = $Printers.Shared
						$intRowPrt = $intRowPrt + 1
                        
					}
							
					$intRow = $intRow + 1
					$intRowCPU = $intRowCPU + 1
					$intRowMem = $intRowMem + 1
					$intRowDisk = $intRowDisk + 1
					$intRowNet = $intRowNet + 1
                    $intRowSoft = $intRowSoft + 1
				}
			}

# =============================================================================================
# Function Name 'ListComputers' - Enumerates ALL computer objects in AD
# ==============================================================================================
Function 	ListComputers
			{
				$strCategory = "computer"
				$objDomain = New-Object System.DirectoryServices.DirectoryEntry
				$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
				$objSearcher.SearchRoot = $objDomain
				$objSearcher.Filter = ("(objectCategory=$strCategory)")
				$colProplist = "name"
				foreach ($i in $colPropList)
				{
					$objSearcher.PropertiesToLoad.Add($i)
				}
				$colResults = $objSearcher.FindAll()

				foreach ($objResult in $colResults)
				{
					$objComputer = $objResult.Properties; $objComputer.name
				}
			}

# ==============================================================================================
# Function Name 'ListServers' - Enumerates ALL Servers objects in AD
# ==============================================================================================
Function	ListServers
			{
				$strCategory = "computer"
				$strOS = "Windows*Server*"
				$objDomain = New-Object System.DirectoryServices.DirectoryEntry
				$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
				$objSearcher.SearchRoot = $objDomain
				$objSearcher.Filter = ("(&(objectCategory=$strCategory)(OperatingSystem=$strOS))")
				$colProplist = "name"
				foreach ($i in $colPropList)
				{
					$objSearcher.PropertiesToLoad.Add($i)
				}
				$colResults = $objSearcher.FindAll()
				foreach ($objResult in $colResults)
				{
					$objComputer = $objResult.Properties;
					$objComputer.name
				}
}

# ========================================================================
# Function Name 'ListTextFile' - Enumerates Computer Names in a text file
# Create a text file and enter the names of each computer. One computer
# name per line. Supply the path to the text file when prompted.
# ========================================================================
Function	ListTextFile
			{
				$strText = Read-Host "Enter the path for the text file"
				$colComputers = Get-Content $strText
			}

# ========================================================================
# Function Name 'SingleEntry' - Enumerates Computer from user input
# ========================================================================
Function	ManualEntry
			{
				$colComputers = Read-Host "Enter Computer Name or IP" 
			}

# ==============================================================================================
# Script Body
# ==============================================================================================
$erroractionpreference = "SilentlyContinue"

#Gather info from user.
Write-Host "********************************" 	-ForegroundColor Green
Write-Host "Computer Inventory Script" 			-ForegroundColor Green
Write-Host "By: Jesse Hamrick" 					-ForegroundColor Green
Write-Host "Created: 04/15/2009" 				-ForegroundColor Green
Write-Host "Contact: www.PowerShellPro.com" 	-ForegroundColor Green
Write-Host "********************************" 	-ForegroundColor Green
Write-Host " "
Write-Host "Admin rights are required to enumerate information." 	-ForegroundColor Green
Write-Host "Would you like to use an alternative credential?"		-ForegroundColor Green
$credResponse = Read-Host "[Y] Yes, [N] No"
	If($CredResponse -eq "y")
	{
		$cred = Get-Credential DOMAIN\USER
	}
Write-Host " "
Write-Host "Which computer resources would you like in the report?"	-ForegroundColor Green
$strResponse = Read-Host "[1] All Domain Computers, [2] All Domain Servers, [3] Computer names from a File, [4] Choose a Computer manually"
	If    ($strResponse -eq "1"){$colComputers = ListComputers | Sort-Object}
	elseif($strResponse -eq "2"){$colComputers = ListServers | Sort-Object}
	elseif($strResponse -eq "3"){. ListTextFile}
	elseif($strResponse -eq "4"){. ManualEntry}
	else{Write-Host "You did not supply a correct response, `
	Please run script again." -foregroundColor Red}				
Write-Progress -Activity "Getting Inventory" -status "Running..." -id 1

#New Excel Application
$Excel = New-Object -Com Excel.Application
$Excel.visible = $True

 

# Create 6 worksheets
$Excel = $Excel.Workbooks.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()
$Sheet = $Excel.Worksheets.Add()

# Assign each worksheet to a variable and
# name the worksheet.
$Sheet1 = $Excel.Worksheets.Item(1)
$Sheet2 = $Excel.WorkSheets.Item(2)
$Sheet3 = $Excel.WorkSheets.Item(3)
$Sheet4 = $Excel.WorkSheets.Item(4)
$Sheet5 = $Excel.WorkSheets.Item(5)
$Sheet6 = $Excel.WorkSheets.Item(6)
$Sheet7 = $Excel.WorkSheets.Item(7)
$Sheet8 = $Excel.WorkSheets.Item(8)
$Sheet9 = $Excel.WorkSheets.Item(9)
$Sheet10 = $Excel.WorkSheets.Item(10)
$Sheet1.Name = "General"
$Sheet2.Name = "System"
$Sheet3.Name = "Processor"
$Sheet4.Name = "Memory"
$Sheet5.Name = "Disk"
$Sheet6.Name = "Network"
$Sheet7.Name = "Softwares"
$Sheet8.Name = "EventLog"
$Sheet9.Name = "Printers"

#Create Heading for General Sheet
$Sheet1.Cells.Item(1,1) = "Device_Name"
$Sheet1.Cells.Item(1,2) = "Role"
$Sheet1.Cells.Item(1,3) = "HW_Make"
$Sheet1.Cells.Item(1,4) = "HW_Model"
$Sheet1.Cells.Item(1,5) = "HW_Type"
$Sheet1.Cells.Item(1,6) = "CPU_Count"
$Sheet1.Cells.Item(1,7) = "Memory_GB"
$Sheet1.Cells.Item(1,8) = "Operating_System"
$Sheet1.Cells.Item(1,9) = "Release_ID"
$Sheet1.Cells.Item(1,10) = "SP_Level"
$Sheet1.Cells.Item(1,11) = "OS_Install_Date"
$Sheet1.Cells.Item(1,12) = "Last_Boot_Time"
$Sheet1.Cells.Item(1,13) = "Current_UserName"
$Sheet1.Cells.Item(1,14) = "Get_Culture"
$Sheet1.Cells.Item(1,15) = "Win_System_Locale"
$Sheet1.Cells.Item(1,16) = "Windows_Key"

#Create Heading for System Sheet
$Sheet2.Cells.Item(1,1) = "Device_Name"
$Sheet2.Cells.Item(1,2) = "SMBIOSBIOSVersion"
$Sheet2.Cells.Item(1,3) = "Manufacturer"
$Sheet2.Cells.Item(1,4) = "BIOS_Name"
$Sheet2.Cells.Item(1,5) = "HW_Serial_#"
$Sheet2.Cells.Item(1,6) = "BIOS_Version"
$Sheet2.Cells.Item(1,7) = "Time_Zone"
$Sheet2.Cells.Item(1,8) = "WMI_Version"

#Create Heading for Processor Sheet
$Sheet3.Cells.Item(1,1) = "Device_Name"
$Sheet3.Cells.Item(1,2) = "Processor(s)"
$Sheet3.Cells.Item(1,3) = "Type"
$Sheet3.Cells.Item(1,4) = "Family"
$Sheet3.Cells.Item(1,5) = "Speed_MHz"
$Sheet3.Cells.Item(1,6) = "Cache_Size_MB"
$Sheet3.Cells.Item(1,7) = "Interface"
$Sheet3.Cells.Item(1,8) = "#_of_Sockets"

#Create Heading for Memory Sheet
$Sheet4.Cells.Item(1,1) = "Device_Name"
$Sheet4.Cells.Item(1,2) = "Bank_#"
$Sheet4.Cells.Item(1,3) = "Label"
$Sheet4.Cells.Item(1,4) = "Capacity_MB"
$Sheet4.Cells.Item(1,5) = "Form"
$Sheet4.Cells.Item(1,6) = "Type"

#Create Heading for Disk Sheet
$Sheet5.Cells.Item(1,1) = "Device_Name"
$Sheet5.Cells.Item(1,2) = "Disk_Type"
$Sheet5.Cells.Item(1,3) = "Drive_Letter"
$Sheet5.Cells.Item(1,4) = "Capacity_MB"
$Sheet5.Cells.Item(1,5) = "Free_Space_MB"

#Create Heading for Network Sheet
$Sheet6.Cells.Item(1,1) = "Device_Name"
$Sheet6.Cells.Item(1,2) = "Network_Card"
$Sheet6.Cells.Item(1,3) = "DHCP_Enabled"
$Sheet6.Cells.Item(1,4) = "IP_Address"
$Sheet6.Cells.Item(1,5) = "Subnet_Mask"
$Sheet6.Cells.Item(1,6) = "Default_Gateway"
$Sheet6.Cells.Item(1,7) = "DNS_Servers"
$Sheet6.Cells.Item(1,8) = "DNS_Reg"
$Sheet6.Cells.Item(1,9) = "Primary_WINS"
$Sheet6.Cells.Item(1,10) = "Secondary_WINS"
$Sheet6.Cells.Item(1,11) = "WINS_Lookup"

#Create Heading for Softwares Sheet
$Sheet7.Cells.Item(1,1) = "Device_Name"
$Sheet7.Cells.Item(1,2) = "Softwares"
$Sheet7.Cells.Item(1,3) = "Version"
$Sheet7.Cells.Item(1,4) = "Install Date"
$Sheet7.Cells.Item(1,5) = "Vendor"
$Sheet7.Cells.Item(1,6) = "Identifying Number"

#Create Heading for Event Log Sheet
$Sheet8.Cells.Item(1,1) = "Device_Name"
$Sheet8.Cells.Item(1,2) = "Time"
$Sheet8.Cells.Item(1,3) = "EntryType"
$Sheet8.Cells.Item(1,4) = "Source"
$Sheet8.Cells.Item(1,5) = "InstanceID"
$Sheet8.Cells.Item(1,6) = "Message"

#Create Heading for Printers Sheet
$Sheet9.Cells.Item(1,1) = "Device_Name"
$Sheet9.Cells.Item(1,2) = "Printer_Name"
$Sheet9.Cells.Item(1,3) = "Driver_Name"
$Sheet9.Cells.Item(1,4) = "Port_Name"
$Sheet9.Cells.Item(1,5) = "Shared"

$colSheets = ($Sheet1, $Sheet2, $Sheet3, $Sheet4, $Sheet5, $Sheet6, $Sheet7, $Sheet8, $Sheet9)
foreach ($colorItem in $colSheets)
{
	$intRow = 2
	$intRowCPU = 2
	$intRowMem = 2
	$intRowDisk = 2
	$intRowNet = 2
    $intRowSoft = 2
    $intRowErr = 2
    $intRowPrt = 2
	$WorkBook = $colorItem.UsedRange
	$WorkBook.Interior.ColorIndex = 20
	$WorkBook.Font.ColorIndex = 11
	$WorkBook.Font.Bold = $True
    
}

If($credResponse -eq "y"){WMILookupCred}
Else{WMILookup}

#Auto Fit all sheets in the Workbook
foreach ($colorItem in $colSheets)
{
	$WorkBook = $colorItem.UsedRange															
	$WorkBook.EntireColumn.AutoFit()
    $WorkBook.EntireRow.AutoFit()
    $WorkBook.AutoFilter()
    
	clear
}
Write-Host "*******************************" -ForegroundColor Green
Write-Host "The Report has been completed. " -ForeGroundColor Green
Write-Host "*******************************" -ForegroundColor Green
# ========================================================================
# END of Script
# ========================================================================

spiceuser-ess2w:

Hi all,

I am a powershell script beginer and sorry about my english

I have a powershell script that collect last 20 APP and SYS event log from a list of computers in a text file that returning me nothing in my excel file.

the code look like::

#################################################################

$EventLogErr = invoke-command -computer $StrComputer -scriptblock {(“Application”,“System” | %{Get-Eventlog -EntryType Error -Newest 20 -LogName $_})}

#Populate Event Log Sheet

foreach ($Computer in $StrComputer)

{
$Sheet8.Cells.Item($intRowSoft, 1) = $StrComputer
$Sheet8.Cells.Item($intRowSoft, 2) = $EventLogErr.EntryType
$intRowSoft = $intRowSoft + 1

}

##########################################

Any idea?

spiceuser-ess2w · 2021-02-10T02:46:17.000Z

I was maybe tired but now everything is working

Yé