ScriptBlocks/DryAD_SB_WMIFilter_Set.ps1
|
# DryActiveDirectory is an AD config module for use with DryDeploy, or by itself. # # Copyright (C) 2021 Bjørn Henrik Formo (bjornhenrikformo@gmail.com) # LICENSE: https://raw.githubusercontent.com/bjoernf73/DryActiveDirectory/main/LICENSE # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License along # with this program; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. [ScriptBlock]$DryAD_SB_WMIFilter_Set = { Param ( $Name, $Description, $Query, $Server ) Try { $ADRootDSE = Get-ADRootDSE -Server $Server -ErrorAction Stop $DomainDN = $ADRootDSE.DefaultNamingContext $WMIPath = ("CN=SOM,CN=WMIPolicy,CN=System,$DomainDN") $Guid = [System.Guid]::NewGuid() $msWMICreationDate = (Get-Date).ToUniversalTime().ToString("yyyyMMddhhmmss.ffffff-000") $msWMIAuthor = $(& whoami) $WMIGUID = "{$Guid}" $WMIDistinguishedName = "CN=$WMIGUID,$WMIPath" $msWMIParm1 = "$Description " # Fails if empty, therefore the space at the end... $msWMIParm2 = $Query.Count.ToString() + ";" $Query | ForEach-Object { $msWMIParm2 += "3;10;" + $_.Length + ";WQL;root\CIMv2;" + $_ + ";" } $Attributes = @{ 'msWMI-Name' = $Name 'msWMI-Parm1' = $msWMIParm1 'msWMI-Parm2' = $msWMIParm2 'msWMI-Author' = $msWMIAuthor 'msWMI-ID' = $WMIGUID 'instanceType' = 4 'showInAdvancedViewOnly' = 'TRUE' 'distinguishedname' = $WMIDistinguishedName 'msWMI-ChangeDate' = $msWMICreationDate 'msWMI-CreationDate' = $msWMICreationDate } $NewADObjectParams = @{ Name = $WMIGUID Type = 'msWMI-Som' Path = $WMIPath OtherAttributes = $Attributes Server = $Server ErrorAction = 'Stop' } New-ADObject @NewADObjectParams $True } Catch { $_ } } |