Вопрос : Сценарий для того чтобы контролировать внесенное в журнал на потребителе. Если по-разному персона нашла после этого электронная почта.

Hi,

Script для того чтобы контролировать внесенное в журнал на потребителе. Если по-разному персона нашла после этого email.
I для того чтобы иметь архив, то txt имеет имя машины и имя потребителя. к whome машина будет именем allotted.
Machine; username

I хочет сценарий просмотреть все машины в этом архиве txt каждые 4 hrs. Если будет рассогласование после этого, то посылайте по электронной почте.

powershell или vbs script.

regards
Sharath
class=

Ответ : Сценарий для того чтобы контролировать внесенное в журнал на потребителе. Если по-разному персона нашла после этого электронная почта.

Я дорабатывал Кодего как спрошено.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52:

Тусклое objFSO, objFile, strBuffer, arrUser, strCurrentUser На резюме ошибки затем Установите objFSO = CreateObject («Scripting.FileSystemObject») «На следующей линии редактируйте архив - имя и курс» Установите objFile = objFSO.OpenTextFile («C:\eeTesting\sharath1.txt ") Не сделать до objFile.AtEndOfStream strBuffer = objFile.ReadLine arrUser = разделило (strBuffer, «; ") strCurrentUser = GetUserName (arrUser (0)) Если arrUser, то <> strCurrentUser (1) после этого arrUser SendMsg (0), strCurrentUser, arrUser (1) Закончитесь если Петля objFile.Close Установленное objFile = ничего Установите objFSO = ничего На ошибке переход 0 WScript.Quit Функция GetUserName (strComputer) Тусклое objWMIService, colItems, objItem, arrTemp На резюме ошибки затем Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 Установите objWMIService = GetObject («winmgmts: \ \» & strComputer & «\ корень \ CIMV2») Установите colItems = objWMIService.ExecQuery («ВЫБЕРИТЕ * ОТ Win32_ComputerSystem», «WQL», wbemFlagReturnImmediately + wbemFlagForwardOnly) Для каждого objItem в colItems arrTemp = разделило (objItem.UserName, «\ ") GetUserName = arrTemp (1) Затем Установите objWMIService = ничего Установите colItems = ничего Установите objItem = ничего На ошибке переход 0 Функция конца Sub SendMsg (strComputer, strUser, strOwner) Тусклое olkApp, olkMsg Установите olkApp = GetObject (, «Outlook.Application») Установите olkMsg = olkApp.CreateItem (0) С olkMsg «На следующей линии редактируйте адрес электронная почта» . = «[email protected]» 'На следующей линии редактируйте подчиненный " . Вопрос = «ваш вопрос идет здесь» «На следующей линии редактируйте текст сообщения как пожелано» . Тело = «потребитель» & strUser & «внесено в журнал дальше к компьютеру» & strComputer & «где как оно» & strOwner & «'машина s.» . Пошлите Закончитесь с Установите olkMsg = ничего Установите olkApp = ничего Закончите подводную лодку