Question : Ne peut pas obtenir le manuscrit de créer ou écrire à UsersToDisable.txt sur le serveur d'archivage

Je ne peux pas obtenir le manuscrit pour créer ou écrire à UsersToDisable.txt sur le serveur d'archivage. J'emploie la date coupée de 18-Jul-2010 pour l'examiner. Il n'y a aucune valeur dans l'attribut de wWWHomePage. Queest-ce que je suis absent ? objSysInfo du


Dim, objUser, strwWWHomePage, strUserDN, 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 valeur d'AD
'si la seconde échoue la variable sera toujours placée au
strwWWHomePage = "" : strwWWHomePage = erreur 0

On d'erreur de débronchement du
'd'objUser.Get (dteCutOffDate de « wWWHomePage »)/>dteCutOffDate =

intDaysLeft = intDaysLeft de

If de DateDiff (« d », maintenant,) > 0 essai de Then
'la valeur dans le variable
si ppt réglé de Then
de strwWWHomePage = de "" = CreateObject (« strMbox de PowerPoint.Application")
= MsgBox (« vous avez » et l'intDaysLeft et « les jours pour accomplir cette formation obligatoire ou votre compte seront verrouillés. Cliquer l'OK pour commencer le ppt du
de présentation de PowerPoint »). class= de

Réponse : Ne peut pas obtenir le manuscrit de créer ou écrire à UsersToDisable.txt sur le serveur d'archivage

Bonjour, le manuscrit créera seulement le dossier si là *is* quelque chose dans l'attribut de wwwHomePage.

Si je me rappelle correctement, quand l'utilisateur finit de regarder le PPT, vous écrirez une valeur dans l'attribut de wwwHomePage.

Ainsi, voici ce que le manuscrit fait actuellement :
1) Si la date du jour est passé la date découpée, ne faire rien.
2) Si le jour de l'arrêté comptable n'a pas été atteint, et il n'y a aucune valeur de wwwHomePage (c'est-à-dire, l'utilisateur n'a pas regardé le PPT), alors montrer le PPT.
3) Si le jour de l'arrêté comptable n'a pas été atteint, et il y a une valeur de wwwHomePage (c'est-à-dire, l'utilisateur a regardé le PPT), alors écrire au dossier pour informer Admins pour désactiver le compte.

Lisant cela, je ne pense pas est réellement qui de ce que vous avez besoin.  Voici ce que je pense que vous avez besoin :
1) S'il n'y a pas une valeur dans le wwwHomePage, et le jour de l'arrêté comptable n'a pas été atteint, montrent le PPT
2) S'il n'y a pas une valeur dans le wwwHomePage, et le jour de l'arrêté comptable a été atteint, écrivent au dossier pour désactiver le compte.
3) S'il Y A une valeur dans le wwwHomePage, ne faire rien, parce que le PPT a été regardé

Ainsi, j'ai commandé à nouveau le manuscrit pour adapter à cela.

Ce que j'ai réalisé que vous devrez faire, est couru le manuscrit que je vous ai donné les comptes pour lire de handicapés utilisateur, quotidiennement, ou peut-être plus si vous aimez, parce que les comptes d'utilisateur ne seront pas écrits là jusqu'à ce que chaque utilisateur ouvre une session, et ceci peuvent prendre un moment si vous prenez des utilisateurs loin pour un moment.

En outre, se sentir libre pour examiner ceci avant de fermer la question.  Vous êtes bienvenu pour demander la clarification et les difficultés, si ceci ne fait pas de ce que vous avez besoin.

Respect,

Rob.

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 :

Faible objSysInfo, objUser, strwWWHomePage, strUserDN, ppt, strMbox Placer l'objSysInfo = le CreateObject (« ADSystemInfo ») strUserDN = objSysInfo.UserName Placer l'objUser = le GetObject (« LDAP : / » et strUserDN) 'Permettre la gestion d'erreur Sur l'erreur reprendre après La 'première commande remet à zéro la valeur de la variable au "" 'Essaye en second lieu de la placer avec la valeur de l'ANNONCE 'Si la seconde échoue la variable sera encore placée au "" strwWWHomePage = "" : strwWWHomePage = objUser.Get (« wWWHomePage ») 'Gestion d'erreur de débronchement Sur l'erreur 0 Goto dteCutOffDate = CDate (« 18-Jul-2010 ») intDaysLeft = DateDiff (« d », maintenant, dteCutOffDate) 'Examiner la valeur dans la variable Si strwWWHomePage = puis "" S'intDaysLeft > 0 puis Placer le ppt = le CreateObject (« PowerPoint.Application ») strMbox = MsgBox (« vous avez » et l'intDaysLeft et les « jours pour accomplir cette formation obligatoire ou votre compte seront verrouillés. OK de clic pour commencer la présentation de PowerPoint ») ppt. Évident = rectifier ppt. Presentations.Open « \ \ serverxx \ cheminement \ ppt.ppsx » Autrement Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject ») Const intForAppending = 8 strDisableAccountsFile = « \ \ serverxx \ cheminement \ UsersToDisable.txt » objFile réglé = objFSO.CreateTextFile (strDisableAccountsFile, intForAppending, vrai) strUserDN d'objFile.WriteLine objFile.Close 'objUser.AccountDisabled = rectifient 'objUser.SetInfo Finir si Finir si