Abra o Powershell ISE, com uma credencial que possuí acesso ao AD e acesso administrativo aos computadores, coloque o código abaixo, altere as partes em cinza e execute:
#ALTERE AS VARIAVEIS ABAIXO CONFORME SUA NECESSIDADE
$DN_onde_pcs_estao = "OU=PCs,DC=seudominio,DC=com,DC=br"
$salvar_na_pasta = "C:\Temp"
#SCRIPT
$data = (Get-Date -Format "yyyMMdd-hhmm")
$salvar_como = "$salvar_na_pasta\relatorio-$data.csv"
#SCRIPT
$Array = @()
Clear-Host
Get-ADComputer -filter * -SearchBase $DN_onde_pcs_estao | ForEach-Object {
$username = $null
$ComputerName = $null
$Office = $Null
$Version = $Null
$ComputerName = $_.name
Write-Host "Obtendo dados do computador $ComputerName" -NoNewline
$username = (Get-WmiObject -Class win32_computersystem -ComputerName $ComputerName).username
if($username -ne $null)
{
Get-WmiObject win32_product -ComputerName $ComputerName | where{$_.Name -like "Microsoft Office Professional" -or $_.Name -Like "Microsoft Office Standard" } | foreach-object {
$Office = $_.Name
$Version = $_.Version
}
$KeyData = New-Object PSObject
$KeyData | Add-Member -MemberType NoteProperty -Name "ComputerName" -Value $ComputerName
$KeyData | Add-Member -MemberType NoteProperty -Name "Username" -Value $username
$KeyData | Add-Member -MemberType NoteProperty -Name "Office" -Value $Office
$KeyData | Add-Member -MemberType NoteProperty -Name "Version" -Value $Version
$Array += $KeyData
Write-Host "- Dados obtidos com sucesso." -ForegroundColor blue
}
Else
{
Write-Host "- Dados obtidos com sucesso." -ForegroundColor red
}
}
$Array | Export-Csv -NoTypeInformation -Encoding UTF8 -Delimiter ';' $salvar_como
Write-Host ""
Write-Host "Programa finalizado, consulte arquivo gerado: $salvar_como" -ForegroundColor green
Mais Informações
Esperamos ter ajudado da melhor forma possível e estaremos sempre a disposição para mais informações.
Entre em contato conosco pelo e-mail equipe@nvlan.com.br.