Question : Le compte de VBS datent vers le bas le manuscrit qui fermera à clef le compte d'ANNONCE d'utilisateur

Je dois ajouter le code qui comptera en bas de la date d'un ou deux semaines dans le MsgBox ferment à clef alors le compte d'ANNONCE d'utilisateur quand l'objSysInfo de la date expires.


Dim, objUser, strwWWHomePage, strUserDN, le ppt, objSysInfo du strMbox

Set = CreateObject (« ADSystemInfo")
strUserDN = d'objSysInfo.UserName
Set = GetObject (« LDAP : / » et le

'de strUserDN) permettre les remises de commande de Next
'premier de résumé d'erreur du handling
On d'erreur que la valeur de la variable au
'de "" essaye en second lieu de le placer avec la forme AD
'de valeur si la seconde échoue la variable sera toujours placée au
strwWWHomePage = "" : strwWWHomePage = essai Goto de l'erreur 0

'du handling
On d'erreur de débronchement du
'd'objUser.Get (« wWWHomePage ») la valeur dans le ppt réglé de Then
de strwWWHomePage = de "" du variable
If = CreateObject (« strMbox de PowerPoint.Application")
= MsgBox (« vous avez des jours de X pour accomplir cette formation obligatoire ou votre compte sera verrouillé. Cliquer l'OK pour commencer le ppt du
de présentation de PowerPoint »). Évident =
Else
wscript.quit

End If
du
du cheminement du ppt. Presentations.Open de True
 » \ \ serverxx \ \ ppt.ppsx " class= de

Réponse : Le compte de VBS datent vers le bas le manuscrit qui fermera à clef le compte d'ANNONCE d'utilisateur

Quelqu'un a changé la propriété du dossier de sorte qu'il n'appartienne plus à vous.  Vous avez besoin d'un des admins avec des privilèges de « racine » de le changer en arrière.