New-Variable -Name LdapRoot -Visibility Private -Option Readonly -value ([String]::Concat("LDAP://" ,([adsi]"LDAP://RootDSE").defaultNamingContext)) -Scope Global
Function Global:New-LdapPath
{
$object = New-Object Management.Automation.PSObject
Add-Member -in $object ScriptProperty Root {$LdapRoot}{Throw "Root readonly"}
Add-Member -in $object NoteProperty Input ""
Add-Member -in $object ScriptProperty Path `
{
$path = $this.Root
$value = $this.Input
If ($value )
{
If ($value -is [string])
{
$value = $value.Trim()
If ($value.StartsWith("LDAP://")){$path = $value }
Else { If ($value) {$path