Something along these lines:
code:
$oConnect = CreateObject("ADODB.Connection")
$oConnect.Provider = "ADsDSOObject"
$oConnect.Properties("User ID") = $stUser
$oConnect.Properties("Password") = $stPass
$oConnect.Properties("Encrypt Password") = not 0
$oConnect.Open "DS Query", $stUser, $stPass

Adapted from Searching with ActiveX Data Objects (ADO)
_________________________
There are two types of vessels, submarines and targets.