Question : Compte d'utilisateur de débronchement avec le manuscrit de VBS dans l'annuaire actif

Le compte d'utilisateur ne placera pas pour désactiver quand la date est objSysInfo expired ou de passed.

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 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 »). Évident =
Else
du cheminement du ppt. Presentations.Open de True
 » \ \ serverxx \ \ ppt.ppsx " extrémité If
End If
d'objUser.AccountDisabled = de True
objUser.SetInfo
wscript.quit
class= de

Réponse : Compte d'utilisateur de débronchement avec le manuscrit de VBS dans l'annuaire actif

Puis, le matin après que la date découpée, courent ce manuscrit, et lui liront le dossier des textes et désactiveront les comptes.

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 :

Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject ») Const intForReading = 1 Const intForAppending = 8 strDisableAccountsFile = « \ \ serverxx \ cheminement \ UsersToDisable.txt » strDisabledReportFile = « \ \ serverxx \ cheminement \ DisabledUsers.txt » Placer l'objOutput = l'objFSO.OpenTextFile (strDisabledReportFile, intForAppending, vrai) Placer objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, vrai) Tandis que pas objFile.AtEndOfStream strUserDN = objFile.ReadLine Si "" d'équilibre (strUserDN <> ) alors Placer l'objUser = le GetObject (« LDAP : / » et strUserDN) objUser.AccountDisabled = rectifient objUser.SetInfo Placer l'objUser = rien strUserDN d'objOutput.WriteLine Finir si Wend objFile.Close objOutput.Close Placer objFile = rien Placer l'objOutput = rien Placer objFile = objFSO.CreateTextFile (strDisableAccountsFile, vrai) objFile.Close Placent objFile = rien Comptes de MsgBox aux les « qui ont été des handicapés ont été écrits » et le VbCrLf et strDisabledReportsFile et le VbCrLf et « et le dossier des utilisateurs au disalbe a été dégagé » et strDisableAccountsFile