Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Const intForReading = 1
Const intForAppending = 8
strDisableAccountsFile = «\ \ serverxx \ отслеживать \ UsersToDisable.txt»
strDisabledReportFile = «\ \ serverxx \ отслеживать \ DisabledUsers.txt»
Установите objOutput = objFSO.OpenTextFile (strDisabledReportFile, intForAppending, поистине)
Установите objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, поистине)
Пока не objFile.AtEndOfStream
strUserDN = objFile.ReadLine
Если "" уравновешивания (strUserDN <> ) после этого
Установите objUser = GetObject («LDAP: /» & strUserDN)
objUser.AccountDisabled = True
objUser.SetInfo
Установите objUser = ничего
strUserDN objOutput.WriteLine
Закончитесь если
Wend
objFile.Close
objOutput.Close
Установите objFile = ничего
Установите objOutput = ничего
Установите objFile = objFSO.CreateTextFile (strDisableAccountsFile, поистине)
objFile.Close
Установите objFile = ничего
Учетом MsgBox «были инвалид был написан к» & VbCrLf & strDisabledReportsFile & VbCrLf & «и архивом потребителей к disalbe освобождает» & strDisableAccountsFile
|