Code:
Dim $objAdsPath, $obj, $filter[0]
$filter[0] = "User"
$objADsPath = GetObject("LDAP://OU=Users,DC=mydomain,DC=local")
$objAdsPath.filter = $filter
For Each $obj in $objAdsPath
  If Left($obj.scriptPath,9) = "kix32.exe"
    ? $obj.CN
    $obj.Put("scriptPath","kix32.exe start.kix")
    $obj.SetInfo
  EndIf
Next