Pergunta : A contagem de VBS data para baixo o certificado que travará o cliente do ANÚNCIO do usuário

Eu preciso de adicionar o código que contará abaixo da data de uma ou dois semanas no MsgBox trava então o cliente do ANÚNCIO do usuário quando o objSysInfo da data expires.


Dim, objUser, strwWWHomePage, strUserDN, ppt, objSysInfo do strMbox

Set = CreateObject (“ADSystemInfo")
strUserDN = de objSysInfo.UserName
Set = GetObject (“LDAP: /” & o

' do strUserDN) permitir restaurações que do comando de Next
' primeiro do resumo do erro do handling
On do erro o valor da variável ao
' do "" tenta em segundo o ajustar com o formulário AD
' do valor se o segundo falha a variável será ajustado ainda ao
strwWWHomePage = "": strwWWHomePage = teste empreendedores do erro 0

' do handling
On do erro da inutilização do
' de objUser.Get (“wWWHomePage”) o valor no ppt ajustado de Then
do strwWWHomePage = do "" do variable
If = em CreateObject (de “strMbox PowerPoint.Application")
= MsgBox (“você tem os dias de X para terminar este treinamento imperativo ou seu cliente será fechado. Estalar a APROVAÇÃO para começar o ppt do
da apresentação de PowerPoint”). Visível =
Else
wscript.quit

End If
do
do seguimento do ppt. Presentations.Open de True
” \ \ serverxx \ \ ppt.ppsx " class= do

Resposta : A contagem de VBS data para baixo o certificado que travará o cliente do ANÚNCIO do usuário

Alguém mudou a posse da lima de modo que não lhe pertencesse anymore.  Você precisa um dos admins com privilégios da “raiz” mudá-lo para trás.