How to get the groups a computer is member of in AD with Quest Powershell?

Question

Hi all
I would need a script in Quest PowerShell that gathers the groups that multiple computers are member of in Active Directory. I have this script, but what it does is to get USERNAMES from a .txt file and then display the groups
each user is member of in AD. I couldn't modified it so instead of USERNAMES in the txt file I can put computers name, here's the code:
$out = @()
Get-Content M:\Tools\Reportes_Power_Shell\Contenedor_Power_Shell\Users.txt | ForEach {
$date = (Get-Date).ToString()
$username = $_
$displayName = (Get-QADUser $username -Properties DisplayName).DisplayName
$groups = Get-QADMemberOf $username | Sort-Object Name
ForEach ( $group in $groups ) {
$obj = New-Object -TypeName PSObject
$obj | Add-Member -MemberType NoteProperty -Name Date -Value $date
$obj | Add-Member -MemberType NoteProperty -Name UserName -Value $username
$obj | Add-Member -MemberType NoteProperty -Name DisplayName -Value $displayName
$obj | Add-Member -MemberType NoteProperty -Name GroupName -Value $group.name
$out += $obj
$out | Export-CSV M:\Tools\Reportes_Power_Shell\Reportes_de_Power_Shell_y_AD_Info\Users_Memberships.csv
Thanks!

Answer 1

I did it but didn't work out, I get this error:
Get-QADMemberOf : Ambiguous identity: <NAME OF THE COMPUTER>.
At line:5 char:30
+     $groups = Get-QADMemberOf <<<<  $username | Sort-Object Name
    + CategoryInfo          : NotSpecified: (:) [Get-QADMemberOf], IdentityException
    + FullyQualifiedErrorId : Quest.ActiveRoles.ArsPowerShellSnapIn.BusinessLogic.IdentityException,Quest.ActiveRoles.
   ArsPowerShellSnapIn.Powershell.Cmdlets.GetMemberOfCmdlet
I can't help with Quest, but here's an example using the AD module:
Get-Content .\computerList.txt | ForEach {
$computerName = $_
$props = @{
ComputerName = $computerName
Groups = ''
try {
$details = Get-ADComputer $computerName -Properties memberOf -ErrorAction Stop
$props.Groups = (($details.memberOf | ForEach { (Get-ADGroup $_).Name }) | Sort) -join ','
} catch {
$props.Groups = 'ERROR'
New-Object PsObject -Property $props
} | Select ComputerName,Groups | Export-Csv .\GroupList.csv -NoTypeInformation
Don't retire TechNet! -
(Don't give up yet - 13,085+ strong and growing)