Cuestión : La cuenta de VBS abajo fecha la escritura que trabará cuenta del ANUNCIO del usuario

Necesito agregar el código que contará abajo de la fecha a partir de uno o dos semanas en el MsgBox entonces traba la cuenta del ANUNCIO del usuario cuando el objSysInfo de la fecha expires.


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

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

' del strUserDN) permitir los reajustes del comando de Next
' primer del curriculum vitae del error del handling
On del error que el valor de la variable al
' del "" intenta en segundo lugar fijarlo con la forma AD
' del valor si el segundo falla la variable todavía es fijado al
strwWWHomePage = "": strwWWHomePage = prueba indicada del error 0

' del handling
On del error de la neutralización del
' de objUser.Get (“wWWHomePage”) el valor en el ppt determinado de Then
del strwWWHomePage = del "" del variable
If = CreateObject (“strMbox de PowerPoint.Application")
= MsgBox (“usted tiene días de X para terminar este entrenamiento obligatorio o su cuenta será bloqueada. Chascar la AUTORIZACIÓN para comenzar el ppt del
de la presentación del PowerPoint”). Visible =
Else
wscript.quit

End If
del
del seguimiento \ ppt.ppsx del ppt. Presentations.Open de True
” \ \ serverxx \ " class= del

Respuesta : La cuenta de VBS abajo fecha la escritura que trabará cuenta del ANUNCIO del usuario

Alguien ha cambiado la propiedad del archivo de modo que no pertenezca a usted más.  Usted necesita uno de los admins con privilegios de la “raíz” de cambiarlo detrás.