That's weird - I posted a sample and it's disappeared!

Anyhoo, using the Is* functions described above, here is one way of checking that a password contains at lease one digit, at least one lower case letter and at least one upper case letter:

Code:
While 1
	"Enter password: "
	GetS $s
	if $s="q" Exit 0 EndIf
	If IsPasswordOk($s)
		"Password is OK" ?
	Else
		"Password fails test" ?
	EndIf
Loop
 
Function IsPasswordOK($s)
	Dim $iHasDigit, $iHasLower, $iHasUpper

	$IsPasswordOK=0
	While $s
		$iHasDigit=$iHasDigit | IsDigit(Left($s,1))
		$iHasLower=$iHasLower | IsLower(Left($s,1))
		$iHasUpper=$iHasUpper | IsUpper(Left($s,1))
		$s=SubStr($s,2)
	Loop
	If $iHasDigit AND $iHasLower AND $iHasUpper $IsPasswordOK=1 EndIf
	Exit Not $IsPasswordOK
EndFunction