Richard Siddaway's Blog - All Comments

re: AD MoL Chapter 10 MEAP

kl — Fri, 10 May 2013 16:23:16 GMT

re: IE history to CSV

VasekB vaclav.berounsky@tiscali.cz — Wed, 17 Apr 2013 10:34:21 GMT

- function get-iehistory

add "Title" to foreach { $visit ... }:

Title = $( $pageFolder.GetDetailsOf($_,1))

I wrote "Graphics interpretation" of data taken by your script

- run PS>get-iehistory.ps1 | export-csv -Path 'C:\ieh.csv' -NoTypeInformation -Delimiter ";" -Encoding 'UTF8'

- run PS>get-iehistory-Graph.ps1

get-iehistory-Graph.ps1

Clear-Host

# Load Assembly

[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") | Out-Null

[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms.DataVisualization") | Out-Null

# Create ChartArea

$ChartArea = New-Object System.Windows.Forms.DataVisualization.Charting.ChartArea

$ChartArea.Area3DStyle.Enable3D = $false

# X

$ChartArea.AxisX.Title = "X - URL" # jmeno osy

$ChartArea.AxisX.Interval = 1 # jak casto je cara

$ChartArea.AxisX.IntervalOffset = 0 # posun cislovani osy

$ChartArea.AxisX.LabelStyle.Interval = 1 # jak casto je popis

#$ChartArea.AxisY.LabelStyle.Format = '' # viz $Chart.Series["Data"].XValueType

$ChartArea.AxisY.LabelStyle.IsEndLabelVisible = $true # vypisovat prvni-posledni

# Y

$ChartArea.AxisY.Title = "Y - čas" # jmeno osy

$ChartArea.AxisY.Interval = 1 # jak casto je cara

$ChartArea.AxisY.IntervalOffset = 0 # posun cislovani osy

$ChartArea.AxisY.LabelStyle.Interval = 1 # jak casto je popis

$ChartArea.AxisY.LabelStyle.Format = 'yyyy-MM-dd HH:m' # format datumu, viz $Chart.Series["Data"].YValueType

$ChartArea.AxisY.LabelStyle.IsEndLabelVisible = $true # vypisovat prvni-posledni

# zoom, scroll

$ChartArea.CursorX.IsUserEnabled = $true

$ChartArea.CursorX.IsUserSelectionEnabled = $true

$ChartArea.CursorY.IsUserEnabled = $true

$ChartArea.CursorY.IsUserSelectionEnabled = $true

# object Graphic

$Chart = New-object System.Windows.Forms.DataVisualization.Charting.Chart

$Chart.Anchor = [System.Windows.Forms.AnchorStyles]::Bottom -bor [System.Windows.Forms.AnchorStyles]::Right -bor [System.Windows.Forms.AnchorStyles]::Top -bor [System.Windows.Forms.AnchorStyles]::Left

# $Chart.Width = 500

# $Chart.Height = 500

$Chart.Left = 0

$Chart.Top = 0

$Chart.ChartAreas.Add($ChartArea)

$Chart.chartAreas[0].AxisX.LabelStyle.Font = new-object system.drawing.font("Courier New",10,[system.drawing.fontstyle]::Regular)

$Chart.chartAreas[0].AxisY.LabelStyle.Angle = 90

# Change the color of the text box

# BackColor: A choice of colors

$Chart.BackColor = [System.Drawing.Color]::White

# Palette: None,Bright,Grayscale,Excel,Light,Pastel,EarthTones,SemiTransparent,Berry,Chocolate,Fire,SeaGreen,BrightPastel

$Chart.Palette = [System.Windows.Forms.DataVisualization.Charting.ChartColorPalette]::Excel

# Adding Title and Labels

[void]$Chart.Titles.Add("Graf")

$Chart.Titles[0].Font = 'Arial,10pt'

$Chart.Titles[0].Alignment = 'topCenter'

# Adding Data in Chart

[void]$Chart.Series.Add("Data")

# The data Chart

$Chart.Series["Data"].Sort([System.Windows.Forms.DataVisualization.Charting.PointSortOrder]::Ascending, "Y")

# Applicable chart elements: Series, DataPoint

# Value range: Cylinder, Emboss, LightToDark, Wedge, Default

$Chart.Series["Data"]["DrawingStyle"] = "Default"

# Series.ChartType: Point, FastPoint, Bubble, Line, Spline, StepLine, FastLine, Bar, StackedBar, StackedBar100, Column, StackedColumn,

# StackedColumn100,Area, SplineArea, StackedArea, StackedArea100, Pie, Doughnut, Stock, Candlestick, Range, SplineRange,

# RangeBar, RangeColumn, Radar,Polar, ErrorBar, BoxPlot, Renko, ThreeLineBreak, Kagi, PointAndFigure, Funnel, Pyramid

$Chart.Series["Data"].ChartType = [System.Windows.Forms.DataVisualization.Charting.SeriesChartType]::RangeBar

# Chart ValueType - LabelStyle.Format

$Chart.Series["Data"].XValueType = [System.Windows.Forms.DataVisualization.Charting.ChartValueType]::String

$Chart.Series["Data"].YValueType = [System.Windows.Forms.DataVisualization.Charting.ChartValueType]::DateTime

# nacteni dat

# cesta k LogStatus-Debug.csv nebo Log_LogStatusDebug-SaveToLocal.csv

$logPath = 'C:\Users\user\SkyDrive\Vasek\IE\ieh.csv'

# CSV file DateTime format

$Culture = [System.Globalization.CultureInfo]::GetCultureInfo("en-us")

$FormatString = 'dd.MM.yyyy HH:mm'

# find the oldest and the newest record

$log = Import-Csv -Delimiter ';' -Path $logPath | Sort-Object @{expression={$_.Date -as [DateTime]}}

$index = 0

$Value = $log[$index].Date

$Value

[DateTime]$LogStop = [System.DateTime]::ParseExact($Value,$FormatString,$Culture)

$Value = $log[$log.Count-1].Date

[DateTime]$LogStart = [System.DateTime]::ParseExact($Value,$FormatString,$Culture)

[DateTime]$LogStop

[DateTime]$LogStart

# sort graph by URL

$log = Import-Csv -Delimiter ';' -Path $logPath | Sort-Object -Property 'Site'

# sort graph by DATE

# $log = Import-Csv -Delimiter ';' -Path $logPath | Sort-Object @{expression={$_.Date -as [DateTime]}}

[hashtable]$StartStop = @{}

[hashtable]$label = @{}

[hashtable]$legend = @{}

[int]$labelId = 0

[int]$TotalTime = 0

foreach ($line in $log) {

# "Date";"Title";"Site";"URL"

# $line.Date + ";" + $line.Index + ";" + $line.ScriptFile + ";" + $line.Type + ";" + $line.Period + ";" + $line.COMPUTERNAME

$Value = $line.Date

$startTime = [System.DateTime]::ParseExact($Value,$FormatString,$Culture)

$stopTime = $startTime.AddMinutes(1)

$TotalTime += 1

# if domain is not in label-list yet, add to Label X

## $labelName = $($line.Site +' # '+ $line.Title).ToString()

$labelName = $($line.Site +' # ').ToString()

if ($label.ContainsKey($labelName)) {

# exist in Label-list, get Label ID

$labelId = $label.Get_Item($labelName)

} else {

# new Label, add Label ID and Name

$labelId = $label.Count +1

$label.Add($labelName, $labelId)

}

# draw point

[void]$Chart.Series["Data"].Points.AddXY($labelId, $startTime, $stopTime)

}

# transform [hashtable]$label to [hashtable]$legend ($label.$labelName=$labelId ==> $legend.Id=$labelName)

foreach ($labelKey in $label.Keys){

$legend.Add($label.get_Item($labelKey).ToString(), $labelKey)

}

# X axis legend

foreach ($bod in $Chart.Series["Data"].Points) {

# $bod.AxisLabel = $legend.Get_Item($($bod.XValue).ToString())

$temp = $legend.Get_Item($($bod.XValue).ToString())

$bod.AxisLabel = $temp -replace '#',$(' ' * (65-$temp.Split('#')[0].Length-$temp.Split('#')[1].Length))

}

# Displays the graph in the Windows Form

$Form = New-Object Windows.Forms.Form

$Form.Text = "PowerShell – Microsoft Chart Control"

# $Form.Width = $FormWidth

# $Form.Height = $FormHeight

$Form.WindowState = [System.Windows.Forms.FormWindowState]'Maximized'

$Form.Controls.Add($Chart)

$Form.Add_Shown({$Form.Activate()})

$Form.ShowDialog()

$($TotalTime / $(New-TimeSpan -Start $LogStop -End $LogStart).Days / 60)

re: Find user accounts that are disabled

Rossell — Mon, 08 Apr 2013 21:27:45 GMT

Excelent post, congratulations!

re: AD Management in a Month of Lunches

Wayne — Sun, 07 Apr 2013 04:42:45 GMT

thank you

re: Putting the date in a file name

Vincent — Sat, 06 Apr 2013 09:18:46 GMT

To solve that "2step" problem following use could be used.

"c:\folder\Prefix_$((Get-Date).ToString("s").Replace(":","-")).txt"

re: Putting the date in a file name

Vadims Podans — Thu, 04 Apr 2013 11:48:10 GMT

Another (easier) way is to use -Format parameter in the Get-Date cmdlet:

Cet-Date -Format dd-MM-yyyyThh-mm-ss

re: Putting the date in a file name

BernhardW — Wed, 03 Apr 2013 21:59:07 GMT

If you want to get this work with one line you can use it that way...

$file = "c:\folder\Prefix_$((Get-Date).ToString("s").Replace(":","-")).txt"

re: MVP renewal 2013

Peter Kriegel — Tue, 02 Apr 2013 10:01:05 GMT

Congratulation !

Well earned honor!

re: WMI LIKEs Wildcards

Mr_Latein — Mon, 25 Mar 2013 15:56:00 GMT

Thank you so much :-)

You made my day..

IT WORKS :D

re: Finding Domain Controllers

Maria — Sun, 24 Mar 2013 17:52:41 GMT

In case it helps someone else, I figured out how to record the DC that is used by a DirectorySearcher. Don't let the searcher connect to the remote domain but instead connect to the remote domain *before* creating the searcher, like this:

$rootDSE = [ADSI] "LDAP://$DnsDomainName/RootDSE"

$defaultDC = $rootDSE.PSBase.Properties.dnsHostName.Value.ToString()

Write-Host "DC used by the searcher: $defaultDC"

$searcher = [adsisearcher] $root

etc.

If the default DC happens to be the one that keeps failing with "more data is available" errors, it is now possible to get the list of DCs for the remote domain and pick a different one for use by the searcher.

$context = new-object System.DirectoryServices.ActiveDirectory.DirectoryContext('domain', $DnsDomainName)

$domain = [system.directoryservices.activedirectory.Domain]::GetDomain($context)

$DCs = $domain.DomainControllers

etc.

re: Testing the computer secure channel

ESP — Fri, 22 Mar 2013 17:21:19 GMT

From my Win7 system I can run “test-computersecurechannel –server xxxx.xxxxx.com” against any DC in my environment and have it return TRUE (2003 or 2008). If I run that command from my Win7 against any Win2008 DC that is housing the PDC, I get the “The specified domain either does not exist or could not be contacted”. Is that normal ?

re: New book

Marko — Tue, 26 Feb 2013 20:47:07 GMT

Exelent!

re: New book

Marko — Tue, 26 Feb 2013 20:46:45 GMT

Exelent

re: CIM cmdlets and remote access

John — Wed, 20 Feb 2013 11:51:16 GMT

Hi Richard,

I'm still very much a beginner so don't completly understand all of your blog post, but I have a question, actually 2.

None of the servers we use have PS v3 installed but I have PS v3 running on my desktop. Rather than using a work around would I be better to just use PS v2? If this is correct, if I want to still use PS v3 is it possible to have PS v3 & v2 installed on my desktop?

If I've copletely misunderstood your blog post please accept my apologies.

Regards,

John.

re: Unlocking AD accounts

sami — Tue, 29 Jan 2013 21:08:42 GMT

thanks

PowerShell and Active Directory–reminder

Richard Siddaway's Blog — Mon, 28 Jan 2013 18:21:08 GMT

Quick reminder for tomorrow’s session from the UK PowerShell group. Details from: http://msmvps

PowerShell and Active Directory–reminder

Richard Siddaway's Blog — Mon, 28 Jan 2013 18:16:15 GMT

Quick reminder for tomorrow’s session from the UK PowerShell group. Details from: http://msmvps

re: Authentication, Impersonation and Privileges

RichardSiddaway — Fri, 18 Jan 2013 10:23:39 GMT

Just a thought. When you specified the credential for the remote machine did you explicitly put the remote machine in as the domain. If you didn't get-credential takes your domain.

re: PowerShell v3 installed modules

Guy Thomas — Wed, 16 Jan 2013 21:50:04 GMT

A great explanation. I even tried naively copying the \modules folder from Windows 8. The cmdlets arrived in Windows 7, but gave an invalid namespace error.

re: Authentication, Impersonation and Privileges

Jonathan — Wed, 16 Jan 2013 13:59:08 GMT

Hi There

I am running a script that works perfectly against all other boxes except Server 2008 R2.

I have tried your suggestions and nothing seems to work

Here is the code:

gwmi win32_service -ComputerName $Server -credential $cred -Authentication PacketPrivacy -Imperson

ation Impersonate | Where-Object {$_.name -like "*sql*"}

The error returned is:

Get-WmiObject : Access is denied. (Exception from HRESULT: 0x80070005 (E_ACCESSDENIED))

At line:1 char:5

+ gwmi <<<< win32_service -ComputerName $Server -credential $cred -Authentication PacketPrivacy -Impersonation Impers

onate | Where-Object {$_.name -like "*sql*"}

+ CategoryInfo : NotSpecified: (:) [Get-WmiObject], UnauthorizedAccessException

+ FullyQualifiedErrorId : System.UnauthorizedAccessException,Microsoft.PowerShell.Commands.GetWmiObjectCommand

I am using a credential object for authentication and the user in my credential object is in the Local Admin group. (It is also a local machine account, not domain account)