BSonPosh

Set-CitrixServerLogon.ps1 (Citrix Top 10)

Here is a useful little script. This Creates a MFCom Server Object and disables or Enables Logons for that Server.

# Set-CitrixServerLogon.ps1
# Brandon Shell [MVP]
# www.bsonposh.com
# Sets the Server to Enable or Disable Logons
Param($Server,[switch]$enable,[switch]$disable,[switch]$help)
function HelpMe{
Write-Host
Write-Host " Set-CitrixServerLogon.ps1:" -fore Green
Write-Host " Sets the Server to Enable or Disable Logons"
Write-Host
Write-Host " Parameters:" -fore Green
Write-Host " -Server : Optional. Server to Set Logon"
Write-Host " -Enable : Optional. Checks Hours of Idle Time (Default)"
Write-Host " -Disable : Optional. Checks Minutes of Idle Time"
Write-Host " -Help : Optional. Displays This"
Write-Host
Write-Host " Examples:" -fore Green
Write-Host " To disable the Logon for a Server" -fore White
Write-Host " Set-CitrixServerLogon.ps1 -server <serverName> -Disable" -fore Yellow
Write-Host
}
if(!$Server -or $help){helpme;Write-Host;return}
Write-Host
Write-Host " Getting Server [$Server]"
$mfsrv = New-Object -ComObject MetaFrameCOM.MetaFrameServer
Write-Host " - Initializing Server"
$mfsrv.Initialize(6,$Server)
if($enable)
{
Write-Host " - Setting to EnableLogon = 1"
$mfSrv.WinServerObject.EnableLogon = 1
}
if($disable)
{
Write-Host " - Setting to EnableLogon = 0"
$mfSrv.WinServerObject.EnableLogon = 0
}
Write-Host " - Server [$($mfSrv.ServerName)] is set to [$($mfSrv.WinServerObject.EnableLogon)] for EnableLogon"
Write-Host

Another option would be to remove the Apps from the Server all together.

# Unpublish-CitrixServer.ps1
# Brandon Shell [MVP]
# www.bsonposh.com
# Removes all App from Server
Param($Server)
$mfsrv = New-Object -ComObject MetaFrameCOM.MetaFrameServer
$mfsrv.Initialize(6,$Server.ToUpper())
$mfsrv | foreach{$_.Applications} | foreach{$_.LoadData(1);$_.RemoveServer($Server.ToUpper());$_.SaveData()}

tshell :: Apr.09.2008 :: All, Citrix, Powershell, Scripting :: No Comments »

Find-CitrixIdleUser.ps1 (Citrix Top 10)

This is one of the more useful scripts (at least for me.) It will query the farm and tell you all the user who have exceeded the idle time specified. I also combined another script that logged off users.

Name: Find-CitrixIdleUser.ps1
Purpose: Finds users with idle time greater than value passed and logs them off if -logoff is passed

# Find-CitrixIdleUser.ps1
# Brandon Shell [MVP]
# www.bsonposh.com
# Finds users with idle time greater than value passed
Param($time,[switch]$day,[switch]$hour,[switch]$minute,[switch]$logoff,[switch]$verbose,[switch]$help)
function HelpMe{
Write-Host
Write-Host " Find-CitrixIdleUser.ps1:" -fore Green
Write-Host " Finds users with idle time greater than value passed"
Write-Host
Write-Host " Parameters:" -fore Green
Write-Host " -Time : Optional. Server to Get Print Info From "
Write-Host " -Day : Optional. Checks Days of Idle Time "
Write-Host " -Hour : Optional. Checks Hours of Idle Time (Default)"
Write-Host " -Minute : Optional. Checks Minutes of Idle Time"
Write-Host " -Logoff : Optional. Logs User off if Idle Time exceeds Time"
Write-Host " -Verbose : Optional. Show Verbose Output"
Write-Host " -Help : Optional. Displays This"
Write-Host
Write-Host " Examples:" -fore Green
Write-Host " Finds Users who have been idle 2 hours and return AppName, UserName, SessionID, and ClientName" -fore White
Write-Host " Find-CitrixIdleUser.ps1 2 -hour | ft AppName,UserName,SessionID,ClientName -auto" -fore Yellow
Write-Host
Write-Host " Finds Users who have been idle 2 hours and Logs them Off" -fore White
Write-Host " Find-CitrixIdleUser.ps1 2 -hour -logoff" -fore Yellow
Write-Host
}
if($verbose){$verbosepreference = "Continue"}
Write-Host
if(!$time -or $help){helpme;Write-Host;Return}
# Get Citrix Farm Object
Write-Verbose " - Creating MFFarm Object"
$farm = new-Object -com "MetaframeCOM.MetaframeFarm"
$farm.Initialize(1)
# Parse Sessions
Write-Verbose " - Parsing Sessions. Total of [$($farm.Sessions.count)] Sessions"
foreach($session in $farm.Sessions)
{
Write-Verbose " - Processing Session ID [$($Session.SessionId)]"
$shouldLogOff = $false
# Getting Citrix Session Idle Time and Convert to System.DateTime
Write-Verbose " - Getting LastInputTime"
$ctxDate = $session.LastInputTime(1)
Write-Verbose " - Checking if idle time is -gt 0"
if(($ctxDate.HighPart -ne 0) -and ($ctxDate.LowPart -ne 0))
{
$date = "{0,4}{1,2:00}{2,2:00}{3,2:00}{4,2:00}" -f $ctxDate.year,$ctxDate.Month,$ctxDate.Day,$ctxDate.Hour,$ctxDate.Minute
Write-Verbose " - Converted LastInputTime to [$date]"
$SessionIdleTime = [system.DateTime]::ParseExact($date,‘yyyyMMddHHmm’,$null)
# Get Current Time in System.DateTime
Write-Verbose " - Getting Current Date"
$now = Get-Date
Write-Verbose " - Current Date is [$now]"
# Find Difference
Write-Verbose " + Getting Time Difference"
$diff = $now - $SessionIdleTime
Write-Verbose " - Found Days [$($diff.TotalDays)] Hours [$($diff.Totalhours)] Minutes [$($diff.TotalMinutes)]"
# Output Sessions that match
if($day) { if($diff.TotalDays -gt $time) {$session;$shouldLogOff = $true} }
if($hour) { if($diff.Totalhours -gt $time) {$session;$shouldLogOff = $true} }
if($minute){ if($diff.TotalMinutes -gt $time) {$session;$shouldLogOff = $true} }
Write-Verbose " - Set `$shouldLogOff to [$shouldLogOff]"
# Logging Off User
if($logoff -and $shouldLogOff)
{
Write-Verbose " - Logging Off Session ID [$($Session.SessionId)]"
$session.Logoff($false)
}
}
else
{
Write-Verbose " - Session ID [$($Session.SessionId)] NOT Idle"
}
Write-Host
}

tshell :: Apr.07.2008 :: All, Citrix, Powershell, Scripting :: No Comments »

Check Active Directory Latency

The other day I had a need to see how long it took for an object to be replicated to all the Domain Controllers in my Environment.

Here is the script I came up with. It does the following:
- Finds all Domain Controllers in the Domain (using .NET)
- Creates a contact object in a specified OU (Default is users container for the Domain)
- Gets the start Time
- Loops and Checks each DC for the object.
- Once all DCs have the object it gets End Time
- Outputs the results

Some extra features
- re-writes screen using $host.UI.RawUI.CursorPosition. No scrolling text - Outputs a custom object with Name and Time to Replicate (-table)

Parameters/Switches
-target: DC to create object on. (Default: it will find one for you)
-fqdn: Used to Find Domain Controllers (Default: Use current Domain)
-ou: DN of the path to create contact objects (Default Users Container)
-remove: If $true it removes the temp object (default is $true)
-table: switch that will return a table with the DC and Time it took to replicate (as output)

Here is the code:

Param($target = (([ADSI]"LDAP://rootDSE").dnshostname),
$fqdn = (([ADSI]"").distinguishedname -replace "DC=","" -replace ",","."),
$ou = ("cn=users," + ([ADSI]"").distinguishedname),
$remove = $true,
[switch]$table
)
$context = new-object System.DirectoryServices.ActiveDirectory.DirectoryContext("Domain",$fqdn)
$dclist = [System.DirectoryServices.ActiveDirectory.DomainController]::findall($context)
if($table)
{
$DCTable = @()
$myobj = "" | select Name,Time
$myobj.Name = ("$target [SOURCE]").ToUpper()
$myobj.Time = 0.00
$DCTable += $myobj
}
$name = "rTest" + (Get-Date -f MMddyyHHmmss)
Write-Host "`n Creating Temp Contact Object [$name] on [$target]"
$contact = ([ADSI]"LDAP://$target/$ou").Create("contact","cn=$Name")
$contact.SetInfo()
$dn = $contact.distinguishedname
Write-Host " Temp Contact Object [$dn] Created! `n"
$start = Get-Date
$i = 0
Write-Host " Found [$($dclist.count)] Domain Controllers"
$cont = $true
While($cont)
{
$i++
$oldpos = $host.UI.RawUI.CursorPosition
Write-Host " =========== Check $i ===========" -fore white
start-Sleep 1
$replicated = $true
foreach($dc in $dclist)
{
if($target -match $dc.Name){continue}
$object = [ADSI]"LDAP://$($dc.Name)/$dn"
if($object.name)
{
Write-Host " - $($dc.Name.ToUpper()) Has Object [$dn]" (" "*5) -fore Green
if($table -and !($dctable | ?{$_.Name -match $dc.Name}))
{
$myobj = "" | Select-Object Name,Time
$myobj.Name = ($dc.Name).ToUpper()
$myobj.Time = ("{0:n2}" -f ((Get-Date)-$start).TotalSeconds)
$dctable += $myobj
}
}
else{Write-Host " ! $($dc.Name.ToUpper()) Missing Object [$dn]" -fore Red;$replicated = $false}
}
if($replicated){$cont = $false}else{$host.UI.RawUI.CursorPosition = $oldpos}
}
$end = Get-Date
$duration = "{0:n2}" -f ($end.Subtract($start).TotalSeconds)
Write-Host "`n Took $duration Seconds `n" -fore Yellow
if($remove)
{
Write-Host " Removing Test Object `n"
([ADSI]"LDAP://$target/$ou").Delete("contact","cn=$Name")
}
if($table){$dctable | Sort-Object Time | Format-Table -auto}

tshell :: Mar.11.2008 :: Active Directory, HowTo, Powershell, Scripting :: No Comments »

Sync Folder Script.

I initially wrote this for a guy on the NG, but I decided to use at work to sync some application folders I used to store tools and scripts and such. Please Try it out and tell me what you think.

Basic Flow
- Checks for Folders that Source has the Destination Does NOT and Creates.
- Checks for Folders that Destination has the Source Does NOT and Creates.
- Checks for files that Source has the Destination Does NOT and Copies.
- If the file is found in both, the MD5 of both files are checked… Last Write Wins
- Checks for Folders that Destination has the Source Does NOT
- It does NOT Delete anything yet… I am considering using a mirror switch

Param($Source,$Destination)
function Get-FileMD5 {
Param([string]$file)
$mode = [System.IO.FileMode]("open")
$access = [System.IO.FileAccess]("Read")
$md5 = New-Object System.Security.Cryptography.MD5CryptoServiceProvider
$fs = New-Object System.IO.FileStream($file,$mode,$access)
$Hash = $md5.ComputeHash($fs)
$fs.Close()
[string]$Hash = $Hash
Return $Hash
}
function Copy-LatestFile{
Param($File1,$File2,[switch]$whatif)
$File1Date = get-Item $File1 | foreach-Object{$_.LastWriteTimeUTC}
$File2Date = get-Item $File2 | foreach-Object{$_.LastWriteTimeUTC}
if($File1Date -gt $File2Date)
{
Write-Host "$File1 is Newer… Copying…"
if($whatif){Copy-Item -path $File1 -dest $File2 -force -whatif}
else{Copy-Item -path $File1 -dest $File2 -force}
}
else
{
Write-Host "$File2 is Newer… Copying…"
if($whatif){Copy-Item -path $File2 -dest $File1 -force -whatif}
else{Copy-Item -path $File2 -dest $File1 -force}
}
Write-Host
}
if(!(test-Path $Destination))
{
New-Item $Destination -type Directory -force | out-Null
}
# Getting Files/Folders from Source and Destination
$SrcEntries = Get-ChildItem $Source -Recurse
$DesEntries = Get-ChildItem $Destination -Recurse
# Parsing the folders and Files from Collections
$Srcfolders = $SrcEntries | Where-Object{$_.PSIsContainer}
$SrcFiles = $SrcEntries | Where-Object{!$_.PSIsContainer}
$Desfolders = $DesEntries | Where-Object{$_.PSIsContainer}
$DesFiles = $DesEntries | Where-Object{!$_.PSIsContainer}
# Checking for Folders that are in Source, but not in Destination
foreach($folder in $Srcfolders)
{
$SrcFolderPath = $source -replace "\\","\\" -replace "\:","\:"
$DesFolder = $folder.Fullname -replace $SrcFolderPath,$Destination
if($DesFolder -ne ""){
if(!(test-path $DesFolder))
{
Write-Host "Folder $DesFolder Missing. Creating it!"
new-Item $DesFolder -type Directory | out-Null
}
}
}
# Checking for Folders that are in Destinatino, but not in Source
foreach($folder in $Desfolders)
{
$DesFilePath = $Destination -replace "\\","\\" -replace "\:","\:"
$SrcFolder = $folder.Fullname -replace $DesFilePath,$Source
if($srcFolder -ne "")
{
if(!(test-path $SrcFolder))
{
Write-Host "Folder $SrcFolder Missing. Creating it!"
new-Item $SrcFolder -type Directory | out-Null
}
}
}
# Checking for Files that are in the Source, but not in Destination
foreach($entry in $SrcFiles)
{
$SrcFullname = $entry.fullname
$SrcName = $entry.Name
$SrcFilePath = $Source -replace "\\","\\" -replace "\:","\:"
$DesFile = $SrcFullname -replace $SrcFilePath,$Destination
if(test-Path $Desfile)
{
$SrcMD5 = Get-FileMD5 $SrcFullname
$DesMD5 = Get-FileMD5 $DesFile
If($srcMD5 -ne $desMD5)
{
Write-Host "The Files MD5’s are Different… Checking Write Dates"
Write-Host $SrcMD5
Write-Host $DesMD5
Copy-LatestFile $SrcFullname $DesFile
}
}
else
{
Write-Host "$Desfile Missing… Copying from $SrcFullname"
copy-Item -path $SrcFullName -dest $DesFile -force
}
}
# Checking for Files that are in the Destinatino, but not in Source
foreach($entry in $DesFiles)
{
$DesFullname = $entry.fullname
$DesName = $entry.Name
$DesFilePath = $Destination -replace "\\","\\" -replace "\:","\:"
$SrcFile = $DesFullname -replace $DesFilePath,$Source
if($SrcFile -ne "")
{
if(!(test-Path $SrcFile))
{
Write-Host "$SrcFile Missing… Copying from $DesFullname"
copy-Item -path $DesFullname -dest $SrcFile -force
}
}
}
Write-Host

tshell :: Sep.05.2007 :: HowTo, Powershell, Scripting :: No Comments »

The “Power” of SHELL

Set-CitrixServerLogon.ps1 (Citrix Top 10)

Find-CitrixIdleUser.ps1 (Citrix Top 10)

Check Active Directory Latency

Sync Folder Script.

Microsoft MVP

Non-Posh Blogs

Recent Posts

Meta

Top OS

Visitors Online

BSonPosh

The “Power” of SHELL

Set-CitrixServerLogon.ps1 (Citrix Top 10)

Find-CitrixIdleUser.ps1 (Citrix Top 10)

Check Active Directory Latency

Sync Folder Script.

Microsoft MVP

Non-Posh Blogs

Recent Posts

Tags

Meta

Top OS

Visitors Online