SosachParser

$id = "289853309"
$out_file = "e:\good.txt"
$error_title = "Ошибка | ВКонтакте"

For( $i = 0; $i -lt 999999999; $i++ )
{
    $url = "http://vk.com/doc"+ $id +"_"+("{0:D9}" -f $i)
    $result = Invoke-WebRequest $url
    $title = $($result.ParsedHtml.getElementsByTagName("title"))
    if( !( $title.IHTMLTitleElement_text -eq $error_title ) )
    {
        $url >> $out_file
    }
}