Действие: указывает IEHV, в файл какого типа экспортировать историю. Доступные опции аналогичны опциям диалогового окна «Сохранить» (Save) в графическом интерфейсе утилиты. Файл назначения: абсолютный или относительный путь и имя файла для сохранения экспортируемых данных. Тип источника и источник: дополнительные параметры для выбора другого пользователя (действуют аналогично опциям, показанным на рис. D).
На рис. I показаны неудачные эксперименты с опциями командной строки, а также простая команда для экспорта полной истории пользователя «TRTest» в файл таблицы, разделенной пробелами, «export.tab». Для простого просмотра истории интерфейс командной строки не подходит, но зато он очень удобен для составления отчетов и архивации.
Рисунок I. Командная строка
Сбор и архивация данных
В этом разделе я просто попытаюсь доказать свою концепцию, поэтому предложенные здесь решения ни в коем случае не стоит воспринимать как абсолютные и всеобъемлющие. Для примера я воспользуюсь языком VB.NET 2005.
Суть концепции заключается в записи данных во временный файл с помощью интерфейса командной строки и импорт этого файла в приложение VB.NET для сбора и архивации данных. Сложность состоит в том, что для каждого компьютера/учетной записи/папки, историю которых нужно архивировать, придется написать собственную команду.
Для команд Visual Basic существует лишь несколько опций. Можно было бы воспользоваться командой Shell(), но она выводит весьма ограниченное количество данных и к тому же славится своим капризным характером. В .NET Framework в пространстве имен System.Diagnostics есть класс Process, который, на мой взгляд, несколько надежнее в этом отношении, так что воспользуемся лучше им.
ПРИМЕЧАНИЕ: Подробнее об этом читайте в документации для System.Diagnostics.Process.
В классе Process, помимо всего прочего, есть опции для имени файла (File Name) и аргументов (Arguments). В нашем случае имя файла — это полный путь к исполняемому файлу IEHV, а аргументы мы позже заполним индивидуальным набором опций. Нужная нам команда выглядит так:
Эта команда экспортирует данные из указанной папки истории во временный текстовый файл таблицы, разделенной пробелами, в папке временных файлов пользователя. Для начала уберем iehv, потому что эта команда будет указана в свойствах опции «Имя файла» класса Process. Теперь воспользуемся .NET Framework, чтобы получить путь к папке временных файлов пользователя и заменить его на %temp%. Наконец, нужно написать код для вывода приглашения к указанию пути для импорта файла в выбранное приложение.
Это можно сделать разными способами — в зависимости от сложности выбранного приложения и от того, сколько папок требуется импортировать за один раз. Для иллюстрации нашей концепции предположим, что нам необходимо получить историю посещений для всех пользователей одного конкретного компьютера и загрузить эту информацию в класс DataTable, связанный с внутренней базой данных.
Код, показанный в листинге A, представляет собой фрагмент общего кода, предназначенного для получения данных из папки временных файлов пользователя, экспорта истории Internet Explorer из всех пользовательских каталогов и импорта ее в DataTable.
Листинг A
Dim strTempDir As String = _ Environment.GetEnvironmentVariable("temp", _ EnvironmentVariableTarget.User) For Each strProfileDir As String In _ IO.Directory.GetDirectories("\" & Me.txtComputerName.Text & _ "c$documents and settings") Dim strProfileDirParts As String() = strProfileDir.Split("\"c) Dim strProfileName As String = _ strProfileDirParts(strProfileDirParts.Length - 1) Me.psIEHV.StartInfo.Arguments = "/stab """ & strTempDir & _ "iehv.txt"" -folder ""\" & _ Me.txtComputerName.Text & _ "c$Documents and Settings\" & _ strProfileName & "Local SettingsHistory\""" Me.psIEHV.Start() Do While Me.psIEHV.HasExited = False Loop If Me.psIEHV.HasExited = True Then Dim fs As New FileStream(strTempDir & "iehv.txt", _ FileMode.Open, FileAccess.Read) Dim sr As New StreamReader(fs) Dim strImport As String = sr.ReadToEnd() For Each strEntry As String In _ strImport.Split(New String() {ControlChars.CrLf}, _ StringSplitOptions.RemoveEmptyEntries) strEntry = strEntry.Substring(0, strEntry.Length - 1) Dim strEntryParts As New List(Of String) strEntryParts.Add(strComputer) strEntryParts.AddRange(strEntry. _ Split(ControlChars.Tab)) Me.DsHistory.dtHistory.Rows.Add(strEntryParts. _ ToArray()) Next sr.Close() fs.Close() sr = Nothing fs = Nothing End If Next
Общие соображения
Утилита IEHistoryView позволяет администраторам быстро получить доступ к истории посещения сайтов для каждого пользователя, не требуя при этом сложной настройки и предварительной подготовки. Для расширенного архивирования можно использовать интерфейс командной строки в сочетании с собственным программным кодом, чтобы создать простой и недорогой (время — деньги) монитор для наблюдения за тем, какие сайты пользователи посещают в Интернете.
Стоит отметить, что наблюдать за посещением сайтов с помощью IEHV можно только в том случае, если пользователи не удаляют свой журнал посещений в Internet Explorer. К счастью, это можно предотвратить с помощью свойств групповой политики (Group Policy).
