[Iska]

pogo, выбор текстового файла — не самая удачная идея. Лучше используйте базу данных. Во-первых, не будет коллизий при добавлении данных (что рано или поздно случится при попытке одновременного доступа к единому текстовому файлу), во-вторых, выборка в базе данных по логину+дате будет делаться банальнейшим запросом.

[pogo]

База данных мне кажется не очень хороший вариант, т.к. всё это делается, что бы в дальнейшем скормить файл lightsquid-у.
А поднимать тот же mysql, для того чтобы туда писать 2 значения (IP и ФИО), мне кажется это очень излишне. К тому же потом, до из базы как то значения доставить, запихивать в файл и кормить lightsquid-у.
Если ещё идея, что бы каждый пользователь создавал отдельный файл с IP в имени и с ФИО в содержании.
Но тут возникает вопрос, как потом из этого всего дела собирать 1 файл который опять-таки будет отдаваться lightsquid?

[Iska]

База данных мне кажется не очень хороший вариант, т.к. всё это делается, что бы в дальнейшем скормить файл lightsquid-у. »

Причины, по которым текстовый файл не слишком подходит, я описал выше.

А поднимать тот же mysql, для того чтобы туда писать 2 значения (IP и ФИО) »

Разве я что-то говорил про MySQL?

Пример работы: Работа с базами данных при помощи ADO из vbscript: самостоятельная работа - AskIt.RU.

мне кажется это очень излишне. »

А мне — нет: я пробовал и то, и другое.

К тому же потом, до из базы как то значения доставить, запихивать в файл и кормить lightsquid-у. »

Извлекать данные из реляционной базы данных на порядок проще, нежели из csv.

P.S. Я не очень представляю себе, какой конечный формат текстового файла Вам нужен, равно как и зачем. Посему за него судить не берусь.

[pogo]

Пример работы: Работа с базами данных при помощи ADO из vbscript: самостоятельная работа - AskIt.RU. »

Честно говоря, что то про базы MS Access я даже не подумал.

P.S. Я не очень представляю себе, какой конечный формат текстового файла Вам нужен, равно как и зачем. Посему за него судить не берусь. »

Конечный формат исходного файла, я приводил в самом первом посте. Нужно это, для для удобства просмотра логов lightsquid.
Не могли бы Вы помочь в реализации, а то в vbs я не силён, а уж с базами это вообще темнота...
Вот пытаюсь сделать по той ссылке, что Вы дали. Создал файл .mdb. Создал там таблицу со столбцами DataTime | IP | UserName. Поправил код:

Код:

Dim cn, rs, strComputer
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source=D:\scripts\vbs\Ip2Name.mdb"
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

но при запуске получаю ошибку:

Строка: 6 Символ: 1 Ошибка: Не удаётся найти указанны йпоставщик. Вероятно, он установлен неправильно. Код: 800A0E7A Источник: ADODB.Connection

[Iska]

pogo, кажется, я примерно понял Вашу мысль. Вы хотите как-то на основе логов доступа в интернет (вида локальный ip-адрес/удалённый адрес, время) и создаваемых логов входа/выхода пользователей на машины получить в итоге картинку вида кто куда ходил, так?

[pogo]

Да, Вы меня правильно поняли.
Есть 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 или подобное?

[pogo]

Т.к. проблему надо было решать "ещё вчера". Пришлось отказаться о товыряний с базой и пойти по протезному варианту, в итоге получилось так:
Получилось 2 скрипта:
1-ый, через GPO запускается при logon пользователя и создаёт файл. IP-адрес машины с которой залогинелись в имени файла. Имя пользователя, кто залогинелся, в теле файла. И потом созданный файл скидывается на сервер.

Код:

' Получение IP-адреса компьютера
Dim objWMIService, IPConfigSet, strComputer, ip
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, objUser
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)
strUserName = objUser.sn + " " + objUser.GivenName

' Создание файла с IP-адресом в имени и именем пользователя в теле файла.
Dim objFSO, file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set file = objFSO.CreateTextFile("\\server\vbs\" & ip & "", True)
file.Write strUserName

'WScript.Echo "Script complite"

На сервере работает 2-ой скрипт, который смотрит в папку куда скидываются файлы пользователя, разбирает их и создаёт временный файл в формате IP \t UserName. Данный файл нужен для дальнейшего преобразования кодировок его соджержимого и уже потом создания выходного файла. Который в дальнейшем будет сброжен на Squid

Код:

Dim objFSO, objRootFolder, file_in, file_out, userName
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists("C:\scripts\realname.cfg") then objFSO.DeleteFile("C:\scripts\realname.cfg")
'Создаём файл temp.cfg в корне папке откуда запускается скрипт.
'Это требуется, что бы затирать старый файл, т.к. ForAppending 
'добавляет записи в конец файла, не удаляю и не заменяя имеющееся.
Set file_out = objFSO.CreateTextFile("C:\scripts\temp.cfg", True)
file_out.Close

Set objRootFolder = objFSO.GetFolder("C:\scripts\vbs")
Set filesInRootFolder = objRootFolder.Files

For Each fileInFolder in filesInRootFolder    'проходимся по всем файла в папке
    fileName = fileInFolder.Name    'имя файла = IP-адрес
    'Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set file_in = objFSO.OpenTextFile("C:\scripts\vbs\" & fileName & "", ForReading)    'открываем файл на чтение 
    userName = file_in.ReadLine    'Считываем содержимое файла = имя пользователя
    file_in.Close    'закрываем исходный файл
    resultStr = fileName & vbTab & userName    'создаём результирующую строку
    Set file_out = objFSO.OpentextFile("C:\scripts\temp.cfg", ForAppending, True)    'открываем файд на запись(добавление)
    file_out.WriteLine resultStr    'Записываем результирующую строку
    file_out.Close    'закрываем файл
Next

Set file_result = objFSO.OpenTextFile("C:\scripts\temp.cfg", ForReading)
strForConvert = file_result.ReadAll
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2
objStream.Open
objStream.Charset = "UTF-8"
objStream.WriteText strForConvert
objStream.SaveToFile("C:\scripts\realname.cfg")
objStream.Close

if objFSO.FileExists("C:\scripts\temp.tmp") then objFSO.DeleteFile("C:\scripts\temp.tmp")

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\scripts\realname.cfg" , "\\squid\lightsquid$\", OverwriteExisting

'WScript.Echo "Script complite"

В том, что вышел очень знатный протез, я и сам знаю. Но может кому приходиться или кто-то посоветует как улучшить\поправить\допилить сиё творение.

[Iska]

Т.к. проблему надо было решать "ещё вчера". Пришлось отказаться о товыряний с базой … »

Ну, тогда и я пока отложу этот вопрос. Как у Вас появится достаточное время — «свистите» в личку.

[pogo]

Подскажите пожалуйста.
При логине на несколько серверов под Win2012, первый скрипт выпадает в ошибку:

Script: ....\logon.vbs Line: 32 Char: 1 Error: Invalid procedure call or argument Code: 800A0005 Source: Microsoft VBScript runtime error

Подскажите пожалуйста куда копать, на др серверах и рабочих станциях всё нормально.