Да, Вы меня правильно поняли.
Есть Squid в прозрачном режиме проксирования, на нём висит Lightsquid, который берёт логи Squid и делает из них отчёты о посещаемых сайтах пользователями, данный отчёты в данный момент выглядят как:
Цитата:
|
№ | IP | ФИО | Соединений | Байт
|
Поле "ФИО" берётся из отдельного файла, назовём его файл Х. Вот мне и надо сделать скрипт, чтобы пользователь при логине на какой-либо машине, писал в файл информацию - кто и с какого ip залогинелся. В дальнейшем я бы подставлял нужные мне поля в файл Х и получал бы удобочитаемые отчёты.
Правда у меня пока даже не получается в базу записать...
Код:
Dim cn, rs, strComputer
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Microsoft.ACE.OLEDB.12.0;Data Source=D:\scripts\vbs\Ip2Name.mdb"
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.Open "Ip2Name", cn
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
ip = IPConfig.IPAddress(0)
End If
Next
Dim objADSystemInfo, objComp, objUser
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)
strUserName = objUser.sn + " " + objUser.GivenName
rs.Feilds("DataTime").Value = Date
rs.Feilds("IP").Value = ip
rs.Feilds("userName").Value = strUserName
Выполняю, и получаю ошибку:
Цитата:
Строка: 4
Символ: 1
Ошибка: [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию
Код: 80004005
Источник: Microsoft OLE DB Provider for ODBC Drivers
|
И у меня такой вопрос, все ли смогут писать в данную базу? Не нужны ли всем будут MS Acceess, Access Engine или подобное?
