Pergunta : Indicar a mensagem de início de uma sessão aos usuários novos no primeiro início de uma sessão.

Nós temos uma necessidade de indicar um tipo mensagem de “EULA” a um usuário de diretório ativo no primeiro desejo de logon.

We para fazer isto enquanto os meios assegurar a usuários novos lêem e aceitam nossas companhias que ELE policy.

We obviamente um pouco não o mandaria indicar todas as vezes um usuário entra, porém uma posição intermediária pode ser exemplo I de acceptable.

One pensado de é se nós mandamos um certificado do início de uma sessão verific a estação de trabalho para ver se há um perfil de usuário, se esse usuário não manda um perfil de usuário a seguir indicar a mensagem. serão mais do que provavelmente um usuário novo. No pior dos casos verão que este cada vez que se transportam que uma estação de trabalho nova ou a um início de uma sessão a um usuário diferente do citrix mas aos inícios de uma sessão nao subseqüentes uma vez o perfil local é created.

I encontraria um pouco alguma maneira de ler o atributo entrado último do anúncio e se aquele = o 0:00 etc. então eles é usuários novos e indica o início de uma sessão message.



 class= do

Resposta : Indicar a mensagem de início de uma sessão aos usuários novos no primeiro início de uma sessão.

O atributo LastLogin pode ser diferente para cada controlador do domínio em você é domínio (a C.C. da bruxa segurou o último início de uma sessão?)

Todo da função o getLastLogin do certificado nos enummerates unidos de você é controladores do domínio, e retornos o nome do lastlogin para o usuário dado.
Isto pode ser usado para verific para ver ou o usuário loged nunca sobre a você é domínio.
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 não ofuscante
Ajustar o objNetwork = o CreateObject (“WScript.Network”)
Ajustar o oRoot = o GetObject (“LDAP: //RootDSE”)

se getLastLogin (objNetwork.UserName) = “1-1-1970” então
 msgbox “primeiro início de uma sessão”
mais 
 o msgbox “loged dentro antes”
terminar se

getLastLogin da função (username)
 lastDate = “1-1-1970”
 sConfigNamingContext = oRoot.Get (“configurationNamingContext”)
 Ajustar o oADOCommand = o CreateObject (“ADODB.Command”)
 Ajustar o oADOConnection = o CreateObject (“ADODB.Connection”)
 oADOConnection.Provider = “ADsDSOObject”
 oADOConnection.Open “fornecedor ativo do diretório”
 oADOCommand.ActiveConnection = oADOConnection
 sADOQuery = “; (ObjectClass=nTDSDSA); AdsPath; subtree”
 oADOCommand.CommandText = sADOQuery
 oADOCommand.Properties (de “tamanho página”) = 100
 oADOCommand.Properties (“intervalo de parada”) = 30
 oADOCommand.Properties (o “esconderijo resulta”) = falso
 Ajustar o oRecordSet = o oADOCommand.Execute
 Fazer até oRecordSet.EOF
  Ajustar o oDC = o GetObject (GetObject (oRecordSet.Fields (“AdsPath”)). Pai)
  Ajustar conexão = CreateObject (“ADODB.Connection”)
  conexões. Fornecedor = “ADSDSOObject”
  conexão. Abrir dos “o fornecedor anúncios”
  strLDAP = “; (& (objectCategory=User) (sAMAccountName=” & username & ")); adspath; subtree "
  Ajustar o oComm = o CreateObject (“ADODB.Command”)
  oComm.ActiveConnection = conexão
  oComm.CommandText = strLDAP
  Ajustar rs = oComm.Execute
  Quando não rs.EOF
   Ajustar FoundObject = GetObject (rs. Campos (0). Valor)
   No resumo do erro em seguida 
   se datediff (“s”, lastDate, FoundObject.LastLogin) > 0 então
    lastDate = FoundObject.LastLogin
   terminar se
   rs.MoveNext
  Wend
  oRecordSet.MoveNext
 Laço
 oADOConnection.Close
 getLastLogin = lastDate
getLastLogin da função do fim '
Outras soluções  
 
programming4us programming4us