Hi there got this code however I'm haveing some problems displaying accounts that are locked. I was wondering if someone can modify this code to display accounts thats are locked.

 Code:
$selectedProperties = "displayName"
$propertynames = Split($selectedProperties,",")

$oCn = CreateObject("ADODB.Connection")
$oCmd = CreateObject("ADODB.Command")
$oCn.Provider = "ADsDSOObject"
$ = $oCn.Open("Active Directory Provider", "", "", -1)
$oCmd.ActiveConnection = $oCn
$oCmd.Properties("Page Size").Value = 1000
$oCmd.Properties("Searchscope").Value = 2 ;ADS_SCOPE_SUBTREE
$oCmd.CommandText = "SELECT " + $selectedProperties + " FROM 'LDAP://domain.co.uk' WHERE objectCategory='user' AND displayName = 'username' AND objectCategory = 'Person' AND objectClass = 'User' ORDER BY Name"

$oRS = $oCmd.Execute
While Not $oRS.EOF 
	For $i = 0 to UBound($propertynames)
		If VarType($oRS.Fields($propertyNames[$i]).Value) = 9 Or VarType($oRS.Fields($propertyNames[$i]).Value) >= 8192
			?  "[Complex Object]"
		Else
			?  $oRS.Fields($propertyNames[$i]).Value
		EndIf
	Next
	$oRS.MoveNext
Loop


Many Thanks