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
|