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.

NVLAN - Consultoria
Categorias: Soluções Microsoft