Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Const intForReading = 1
Const intForAppending = 8
strDisableAccountsFile = “\ \ serverxx \ seguimiento \ UsersToDisable.txt”
strDisabledReportFile = “\ \ serverxx \ seguimiento \ DisabledUsers.txt”
Fijar el objOutput = objFSO.OpenTextFile (strDisabledReportFile, el intForAppending, verdad)
Fijar objFile = objFSO.OpenTextFile (strDisableAccountsFile, el intForReading, verdad)
Mientras que no objFile.AtEndOfStream
strUserDN = objFile.ReadLine
Si "" del ajuste (strUserDN <> ) entonces
Fijar el objUser = GetObject (“LDAP: /” y strUserDN)
objUser.AccountDisabled = verdad
objUser.SetInfo
Fijar el objUser = nada
strUserDN de objOutput.WriteLine
Terminar si
Wend
objFile.Close
objOutput.Close
Fijar objFile = nada
Fijar el objOutput = nada
Fijar objFile = objFSO.CreateTextFile (strDisableAccountsFile, verdad)
objFile.Close
Fijan objFile = nada
Cuentas de MsgBox las “que han sido minusválidos se han escrito” y VbCrLf y strDisabledReportsFile y VbCrLf y “y el archivo de usuarios al disalbe se ha despejado” y strDisableAccountsFile
|