objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
Const, das = 1 intForReading ist
Const, das = 8 intForAppending ist
strDisableAccountsFile = „\ \ serverxx \ Spurhaltung \ UsersToDisable.txt“
strDisabledReportFile = „\ \ serverxx \ Spurhaltung \ DisabledUsers.txt“
objOutput = objFSO.OpenTextFile (strDisabledReportFile, das intForAppending, zutreffend) einstellen
objFile einstellen = objFSO.OpenTextFile (strDisableAccountsFile, das intForReading, zutreffend)
Während nicht objFile.AtEndOfStream
strUserDN = objFile.ReadLine
Wenn Ordnung (strUserDN) <> "" dann
objUser = GetObject einstellen („LDAP: /“ u. strUserDN)
objUser.AccountDisabled = ausrichten en
objUser.SetInfo
objUser einstellen = nichts
objOutput.WriteLine strUserDN
Beenden wenn
Wend
objFile.Close
objOutput.Close
objFile einstellen = nichts
objOutput einstellen = nichts
objFile einstellen = objFSO.CreateTextFile (strDisableAccountsFile, zutreffend)
objFile.Close
Einstellen objFile = nichts ts
MsgBox „zu den Konten, die Behinderte geschrieben worden“ gewesen u. VbCrLf u. strDisabledReportsFile u. VbCrLf u. „und die Akte der Benutzer zum disalbe gelöscht worden“ u. strDisableAccountsFile
|