Hi there. I want to get DistinguishedName of PCs instead of their CN. I tried everything, and nothing is work. Please help to modify this code in way to display DN's:
function Get-ActivationStatus {
[CmdletBinding()]
[Parameter(ValueFromPipeline = $true, ValueFromPipelineByPropertyName = $true)]
[string]$DNSHostName = $Env:COMPUTERNAME
)
process {
try {
$wpa = Get-WmiObject SoftwareLicensingProduct -ComputerName $DNSHostName `
-Filter "ApplicationID = '55c92734-d682-4d71-983e-d6ec3f16059f'" `
-Property LicenseStatus,Description -ErrorAction Stop
}
catch {
$status = New-Object ComponentModel.Win32Exception ($_.Exception.ErrorCode) #
$wpa = $null
}
$out = New-Object psobject -Property @{
ComputerName = $DNSHostName
Status = [string]::Empty
Type = [string]::Empty
}
if ($wpa) {
:outer foreach($item in $wpa) {
switch ($item.LicenseStatus) {
0 {$out.Status = "Unlicensed"}
1 {$out.Status = "Licensed"; break outer}
default {$out.Status = "Unknown value"}
}
}
$out.Type = ($item.Description.Split(",")[1] -replace " channel").Trim()
} else {$out.Status = $status.Message}
$out
}
}
Function Using-Culture (
[System.Globalization.CultureInfo]$culture = (throw "USAGE: Using-Culture -Culture culture -Script {scriptblock}"),
[ScriptBlock]$script= (throw "USAGE: Using-Culture -Culture culture -Script {scriptblock}"))
{
$OldCulture = [System.Threading.Thread]::CurrentThread.CurrentCulture
trap
{
[System.Threading.Thread]::CurrentThread.CurrentCulture = $OldCulture
}
[System.Threading.Thread]::CurrentThread.CurrentCulture = $culture
Invoke-Command $script
[System.Threading.Thread]::CurrentThread.CurrentCulture = $OldCulture
}
$code={
$x= $y= $z = 2
$filter = "(&(objectclass=computer)(dnshostname=*)(!operatingsystem=Windows XP Professional)(name=w*)(!userAccountControl:1.2.840.113556.1.4.803:=2))"
$sr = [adsisearcher]$filter
$sr.SearchRoot = [ADSI]"LDAP://dc=domain,dc=com"
$pcs = ([adsisearcher]$filter).FindAll() | Foreach {
$o = $_.Properties.Item("operatingsystem")
$_.Properties.Item("dnshostname")
$_.Properties.Item("distinguishedname")| Get-ActivationStatus | Select ComputerName,DistinguishedName,Status,Type,@{n="OperatingSystem";e={$o}}
}
$xl = new-object -comobject excel.application
$xl.visible = $true
$b = $xl.Workbooks.Add()
$c = $b.Worksheets.Item()
$c.Name = "Undefined 2015"
$c.columns.item(1).columnWidth = 75
$c.columns.item(2).columnWidth = 75
$c.cells.item(1,1) = "Name"
$c.cells.item(1,2) = "Status"
$d = $b.Worksheets.Add()
$d.Name = "No licenses 2015"
$d.columns.item(1).columnWidth = 75
$d.columns.item(2).columnWidth = 75
$d.cells.item(1,1) = "Name"
$d.cells.item(1,2) = "OS"
$e = $b.Worksheets.Add(1)
$e.Name = "Licenses 2015"
$e.columns.item(1).columnWidth = 75
$e.columns.item(2).columnWidth = 75
$e.columns.item(3).columnWidth = 75
$e.cells.item(1,1) = "Name"
$e.cells.item(1,2) = "License type"
$e.cells.item(1,3) = "OS"
foreach($pc in $pcs)
{
switch($pc.Status)
{
"Licensed" {
$e.cells.item($x,1) = $pc.ComputerName
$e.cells.item($x,2) = $pc.Type
$e.cells.item($x,3) = $pc.OperatingSystem
$x++
}
"Unlicensed" {
$d.cells.item($y,1) = $pc.ComputerName
$d.cells.item($y,2) = $pc.OperatingSystem
$y++
}
default {
$c.cells.item($z,1) = $pc.ComputerName
$c.cells.item($z,2) = $pc.Status
$z++
}
}
}
$b.saveas("d:\License.xls")
}
Using-Culture en-us $code
[gc]::collect()
[gc]::WaitForPendingFinalizers()
- Edited by Net Ranger Wednesday, June 24, 2015 1:13 PM
Other recent topics
