添加动态值的Pscustomobject

Question

我正在尝试从特定OU读取计算机的组成员资格并写入CSV文件。组成员的输入标准类似于如果计算机是">admin"我需要下面格式的CSV文件

---------------------------------------------------------
Computer   Group1  Group2  Group3 Group4
ABCD       admin1   admin2 admin3 admin4
EFGH                admin2  admin3
XYZZ       admin1                  admin4
--------------------------------------------------------------
but end up like this.
---------------------------------------------------------
Computer   Group1  Group2  Group3 Group4
ABCD       admin1  admin2  admin3 admin4
EFGH       admin2  admin3
XYZZ       admin1  admin4
--------------------------------------------------------------

代码是这样的

$All_computer = Get-ADComputer -Filter * -Property * -SearchBase $ou -Server $server | Select-object Name,DNSHostName,Description,memberof 
$computerExport = $All_computer | 
ForEach-Object {
$ComputerName = $_.Name
$Description = $_.description
$DNSHostname = $_.DNSHostName
$memberof = $_.memberof

$groups = $memberof.where{$_ -like  "*$unput_group*"} 
$Group_member = [pscustomobject]@{
Workstation = $ComputerName
Comp_Description = $Description
DNS_Hostname = $DNSHostname
}
$i = 0
foreach($group in $Groups) 
{
$i++
$member = $group.split('=')[1].split(',')[0]
$Group_member | add-member -MemberType NoteProperty -Name "Group$i" -Value $member
}
$Group_member
} 
}
$computerExport | export-csv .Membership_status.csv -NoTypeInformation

我需要做什么来获得组成员填充到适当的列。

Answer 1

当然有。我是说它在做你让它做的事。您只是将属性的数量添加到从where对象查询中找到的自定义对象。我真的很难理解你为什么要这样做，但我认为你真正想要的是每个对象都有所有可能的属性，但对于那些不匹配特定计算机的对象有空值，或者更好的是使用布尔值。

所以…也许像这样:

[string]$GroupSearch = "admin"
$All_computer = Get-ADComputer -Filter * -Property DNSHostName, Description, memberof -SearchBase $ou -Server $server | Select-Object Name, DNSHostName, Description, memberof 
$MatchedGroups = $All_Computer.MemberOf | Sort -Unique | ?{$_.Name -match $GroupSearch}
$computerExport = ForEach ($C in $All_computer) {
$Group_member = [pscustomobject]@{
Workstation      = $($C.Name)
Comp_Description = $($C.Description)
DNS_Hostname     = $($C.DNSHostName)
}
ForEach ($group in $MatchedGroups) {
[string]$GrpName = $($group.split('=')[1].split(',')[0])
If ($C.MemberOf -contains $group) {
$Group_member | Add-Member -MemberType NoteProperty -Name $GrpName -Value $true
} else {
$Group_member | Add-Member -MemberType NoteProperty -Name $GrpName -Value $false
}
}
$Group_member
} 
$computerExport | Export-Csv .Membership_status.csv -NoTypeInformation

Answer 2

如果我理解了这个问题，那么您需要从某个OU中获取所有计算机，这些计算机是具有相似部分名称的组的成员。要做到这一点，我建议首先创建一个计算机对象数组，该数组具有一个临时的额外属性，称为"Groups"，其中存储与部分名称匹配的组名。

之后，我们将把这些按正确的顺序作为新属性，称为'Group1'， 'Group2'等。

# the partial groupname to search for
$unput_group = 'admin'
# Get-ADComputer by default already returns these properties:
# DistinguishedName, DNSHostName, Enabled, Name, ObjectClass, ObjectGUID, SamAccountName, SID,  UserPrincipalName
# get an array of computer objects that are member of 'admin*' group(s) with the desired properties
# one extra temporary property is added which contains an array of 'admin*' group names
$All_computer = Get-ADComputer -Filter * -Property Description, MemberOf  -SearchBase $ou -Server $server |
Where-Object { $_.MemberOf -match $unput_group} |
Select-Object @{Name = 'Workstation'; Expression = {$_.Name}},
@{Name = 'Comp_Description'; Expression = {$_.Description}},
@{Name = 'DNS_Hostname'; Expression = {$_.DNSHostName}},
@{Name = 'Groups'; Expression = { @($_.MemberOf |
Where-Object { $_ -match "CN=($unput_group[^,]+)" } | 
ForEach-Object { $matches[1] }) }}
# get all the group names from the computers we have collected and sort unique
$All_Groups = $All_computer.Groups | Sort-Object -Unique
# build a lookup hashtable with property names ('Group1', 'Group2' etc)
$hash = [ordered]@{}
for ($i = 1; $i -le $All_Groups.Count; $i++) {
$hash["Group$i"] = $All_Groups[$i - 1]
}
# now loop through the collection and add the group properties in order
$result = foreach ($computer in $All_computer) {
foreach ($propertyName in $hash.Keys) {
$group = if ($computer.Groups -contains $hash[$propertyName]) { $hash[$propertyName] }
$computer | Add-Member -MemberType NoteProperty -Name $propertyName -Value $group
}
# output the updated object and remove the temporary 'Groups' property
$computer | Select-Object * -ExcludeProperty Groups
}
# finally, save the results to disk
$result | Export-Csv -Path .Membership_status.csv -NoTypeInformation