# encoding: ascii
# api: powershell
# title: Get-OpenLDAP.ps1
# description: This script performs OpenLdap query against specified Server.
# version: 0.1
# type: class
# author: famingxia
# license: CC0
# x-poshcode-id: 5026
# x-archived: 2014-03-30T06:47:16
# x-published: 2014-03-28T06:50:00
#
# Note: $Path is the LDAP path for the User account to authenticate with.
#
Param($user,
$password = $(Read-Host "Enter Password" -asSec),
$filter = "(objectclass=user)",
$server = $(throw '$server is required'),
$path = $(throw '$path is required'),
[switch]$all,
[switch]$verbose)
function GetSecurePass ($SecurePassword) {
$Ptr = [System.Runtime.InteropServices.Marshal]::SecureStringToCoTaskMemUnicode($SecurePassword)
$password = [System.Runtime.InteropServices.Marshal]::PtrToStringUni($Ptr)
[System.Runtime.InteropServices.Marshal]::ZeroFreeCoTaskMemUnicode($Ptr)
$password
}
if($verbose){$verbosepreference = "Continue"}
$DN = "LDAP://$server/$path"
Write-Verbose "DN = $DN"
$auth = [System.DirectoryServices.AuthenticationTypes]::FastBind
Write-Verbose "Auth = FastBind"
$de = New-Object System.DirectoryServices.DirectoryEntry($DN,$user,(GetSecurePass $Password),$auth)
Write-Verbose $de
Write-Verbose "Filter: $filter"
$ds = New-Object system.DirectoryServices.DirectorySearcher($de,$filter)
Write-Verbose $ds
if($all)
{
Write-Verbose "Finding All"
$ds.FindAll()
}
else
{
Write-Verbose "Finding One"
$ds.FindOne()
}