Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Const que intForReading = 1
Const que intForAppending = 8
strDisableAccountsFile = “\ \ serverxx \ seguimento \ UsersToDisable.txt”
strDisabledReportFile = “\ \ serverxx \ seguimento \ DisabledUsers.txt”
Ajustar o objOutput = o objFSO.OpenTextFile (strDisabledReportFile, intForAppending, verdadeiro)
Ajustar objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, verdadeiro)
Quando não objFile.AtEndOfStream
strUserDN = objFile.ReadLine
Se "" da guarnição (strUserDN <> ) então
Ajustar o objUser = o GetObject (“LDAP: /” & strUserDN)
objUser.AccountDisabled = retificam
objUser.SetInfo
Ajustar o objUser = nada
strUserDN de objOutput.WriteLine
Terminar se
Wend
objFile.Close
objOutput.Close
Ajustar objFile = nada
Ajustar o objOutput = nada
Ajustar objFile = objFSO.CreateTextFile (strDisableAccountsFile, verdadeiro)
objFile.Close
Ajustam-se objFile = nada
Clientes de MsgBox os “que foram deficientes foram escritos” & o VbCrLf & strDisabledReportsFile & o VbCrLf & “e a lima dos usuários ao disalbe foi cancelado” & strDisableAccountsFile
|