Вопрос : Покажите сообщение logon к новому logon потребителей вначале.

Мы имеем потребность показать тип сообщение «EULA» к активно желанию потребителя директории вначале logon.

We для того чтобы сделать это по мере того как, котор середины обеспечить новых потребителей читают и признавают наши компании ОНО policy.

We очевидно довольно не имело бы его показать каждое время потребитель вносит в журнал дальше, тем ме менее средней полосой может быть пример iий acceptable.

One думаемое если мы имеем сценарий logon проверить рабочее место для профиля потребителя, то если тот потребитель не имеет профиль потребителя тогда показать сообщение. они больше чем вероятн будет новым потребителем. В худшем случае они увидят это каждый раз, котор они двигают к новому рабочему месту или logon к по-разному серверу citrix но затем logons раз местный профиль будет created.

I довольно нашло некоторую дорогу читать внесенное в журнал последнее на атрибуте от объявления и если то = 0:00 etc после этого они будет новыми потребителями и показывает logon message.



class=

Ответ : Покажите сообщение logon к новому logon потребителей вначале.

Атрибутом LastLogin может быть по-разному для каждого регулятора домена в вас будет домен (DC ведьмы отрегулировал последнее имя пользователя?)

getLastLogin в прикрепленных enummerates сценария всем функции вас будет регуляторами домена, и возвращениями имя lastlogin для, котор дали потребителя.
Это можно использовать для того чтобы проверить для того чтобы увидеть или потребитель всегда loged дальше к вам будет доменом.

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:

Тусклое objNetwork Установите objNetwork = CreateObject («WScript.Network») Установите oRoot = GetObject («LDAP: //RootDSE») если getLastLogin (objNetwork.UserName) = «1-1-1970» после этого msgbox «первое имя пользователя» еще msgbox «loged внутри раньше» закончитесь если getLastLogin функции (Username) lastDate = «1-1-1970» sConfigNamingContext = oRoot.Get («configurationNamingContext») Установите oADOCommand = CreateObject («ADODB.Command») Установите oADOConnection = CreateObject («ADODB.Connection») oADOConnection.Provider = «ADsDSOObject» oADOConnection.Open «активно провайдер директории» oADOCommand.ActiveConnection = oADOConnection sADOQuery = «; (ObjectClass=nTDSDSA); AdsPath; поддерево» oADOCommand.CommandText = sADOQuery oADOCommand.Properties («размер страницы») = 100 oADOCommand.Properties («перерыв») = 30 oADOCommand.Properties («тайник приводит к») = ложно Установите oRecordSet = oADOCommand.Execute Не сделать до oRecordSet.EOF Установите oDC = GetObject (GetObject (oRecordSet.Fields («AdsPath»)). Родитель) Установите conn = CreateObject («ADODB.Connection») conn. Провайдер = «ADSDSOObject» conn. Раскройте «провайдер объявлений» strLDAP = «; (& (objectCategory=User) (sAMAccountName=» & Username & ")); adspath; поддерево " Установите oComm = CreateObject («ADODB.Command») oComm.ActiveConnection = conn oComm.CommandText = strLDAP Установите rs = oComm.Execute Пока не rs.EOF Установите FoundObject = GetObject (rs. Поля (0). Значение) На резюме ошибки затем если datediff («s», lastDate, FoundObject.LastLogin) > 0 после этого lastDate = FoundObject.LastLogin закончитесь если rs.MoveNext Wend oRecordSet.MoveNext Петля oADOConnection.Close getLastLogin = lastDate getLastLogin функции конца '